Mercurial > hgrepos > hgweb.cgi > yatex

changeset 447:9a91ec831762 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix infinite loop in subequations-env completion.
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 05 Jan 2017 23:15:34 +0900
parents a3ba09c1e8e9
children 59459111e042 c2c547e147c7
files yatex.el yatexadd.el
diffstat 2 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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 ----------
--- 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)

yatex.org