# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1483625734 -32400
# Node ID 9a91ec831762402853a472f220886214221a0d8f
# Parent  a3ba09c1e8e907578f679fceb99264ce2d4eb777
Fix infinite loop in subequations-env completion.

diff -r a3ba09c1e8e9 -r 9a91ec831762 yatex.el
--- a/yatex.el	Thu Jan 05 20:44:41 2017 +0900
+++ b/yatex.el	Thu Jan 05 23:15:34 2017 +0900
@@ -1,6 +1,6 @@
 ;;; yatex.el --- Yet Another tex-mode for emacs //野鳥// -*- coding: sjis -*-
 ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Thu Jan  5 17:45:40 2017 on firestorm
+;;; Last modified Thu Jan  5 23:13:56 2017 on firestorm
 ;;; $Id$
 ;;; The latest version of this software is always available at;
 ;;; http://www.yatex.org/
@@ -8,7 +8,7 @@
 ;;; Code:
 (require 'comment)
 (require 'yatexlib)
-(defconst YaTeX-revision-number "1.79"
+(defconst YaTeX-revision-number "1.79.1"
   "Revision number of running yatex.el")
 
 ;---------- Local variables ----------
diff -r a3ba09c1e8e9 -r 9a91ec831762 yatexadd.el
--- a/yatexadd.el	Thu Jan 05 20:44:41 2017 +0900
+++ b/yatexadd.el	Thu Jan 05 23:15:34 2017 +0900
@@ -1,6 +1,6 @@
 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
 ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Thu Jan  5 17:45:50 2017 on firestorm
+;;; Last modified Thu Jan  5 23:13:23 2017 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -66,7 +66,7 @@
   (message (if YaTeX-japan "分かりやすいコメントに変えるとref補完が楽よ"
 	     "Changing comment string reduces effort at `ref' completion"))
   (concat " " YaTeX-comment-prefix
-	  (YaTeX::ref-default-label "%H:%M")
+	  (YaTeX::ref-default-label " %Y-%m-%d %H:%M")
 	  (if YaTeX-japan "の式群" "equations")))
 
 (defun YaTeX:read-oneof (oneof &optional quick allow-dup)
@@ -568,6 +568,7 @@
   "Default auto-genarated label string."
   ;; We do not use (format-time-string) for emacs-19
   (let*((ts (substring (current-time-string) 4))
+	(Y (substring ts -4))
 	(y (substring ts -2))
 	(b (substring ts 0 3))
 	(d (format "%d" (string-to-int (substring ts 4 6))))
@@ -587,6 +588,7 @@
     (YaTeX-replace-formats
      (or format YaTeX-ref-default-label-string)
      (list (cons "y" y)
+	   (cons "Y" Y)
 	   (cons "b" b)
 	   (cons "m" m)
 	   (cons "d" d)