1.1 --- a/yatexadd.el	Thu Jan 05 17:49:05 2017 +0900
     1.2 +++ b/yatexadd.el	Thu Jan 05 23:15:34 2017 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
     1.5  ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
     1.6 -;;; Last modified Thu Jan  5 17:45:50 2017 on firestorm
     1.7 +;;; Last modified Thu Jan  5 23:13:23 2017 on firestorm
     1.8  ;;; $Id$
     1.9  
    1.10  ;;; Code:
    1.11 @@ -66,7 +66,7 @@
    1.12    (message (if YaTeX-japan "分かりやすいコメントに変えるとref補完が楽よ"
    1.13  	     "Changing comment string reduces effort at `ref' completion"))
    1.14    (concat " " YaTeX-comment-prefix
    1.15 -	  (YaTeX::ref-default-label "%H:%M")
    1.16 +	  (YaTeX::ref-default-label " %Y-%m-%d %H:%M")
    1.17  	  (if YaTeX-japan "の式群" "equations")))
    1.18  
    1.19  (defun YaTeX:read-oneof (oneof &optional quick allow-dup)
    1.20 @@ -568,6 +568,7 @@
    1.21    "Default auto-genarated label string."
    1.22    ;; We do not use (format-time-string) for emacs-19
    1.23    (let*((ts (substring (current-time-string) 4))
    1.24 +	(Y (substring ts -4))
    1.25  	(y (substring ts -2))
    1.26  	(b (substring ts 0 3))
    1.27  	(d (format "%d" (string-to-int (substring ts 4 6))))
    1.28 @@ -587,6 +588,7 @@
    1.29      (YaTeX-replace-formats
    1.30       (or format YaTeX-ref-default-label-string)
    1.31       (list (cons "y" y)
    1.32 +	   (cons "Y" Y)
    1.33  	   (cons "b" b)
    1.34  	   (cons "m" m)
    1.35  	   (cons "d" d)