From 011c45526351ad6b518a0a131a58476086bffecd Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 19 Jun 2013 00:19:42 -0700 Subject: [PATCH] * international/titdic-cnv.el (tit-process-header, miscdic-convert): Don't include a date stamp in the header of the generated file; it leads to needless differences between output files. --- lisp/ChangeLog | 6 ++++++ lisp/international/titdic-cnv.el | 6 ++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2e5ca2019ce..793f3ec346b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-06-19 Glenn Morris + + * international/titdic-cnv.el (tit-process-header, miscdic-convert): + Don't include a date stamp in the header of the generated file; + it leads to needless differences between output files. + 2013-06-19 Michael Albinus * net/secrets.el (secrets-struct-secret-content-type): Replace diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 7d7619df70e..bcad78d8ce0 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -273,9 +273,8 @@ SPC, 6, 3, 4, or 7 specifying a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy (princ ";; Quail package `") (princ package) (princ (format "' -*- coding:%s -*-\n" coding-system-for-write)) - (princ ";; Generated by the command `titdic-convert'\n;;\tDate: ") - (princ (current-time-string)) - (princ "\n;;\tOriginal TIT dictionary file: ") + (princ ";; Generated by the command `titdic-convert'\n") + (princ ";;\tOriginal TIT dictionary file: ") (princ (file-name-nondirectory filename)) (princ "\n\n;;; Comment:\n\n") (princ ";; Byte-compile this file again after any modification.\n\n") @@ -1152,7 +1151,6 @@ the generated Quail package is saved." (insert (format ";; Quail package `%s' -*- coding:%s -*-\n" name coding)) (insert ";; Generated by the command `miscdic-convert'\n") - (insert ";; Date: " (current-time-string) "\n") (insert ";; Source dictionary file: " dicfile "\n") (insert ";; Copyright notice of the source file\n") (insert ";;------------------------------------------------------\n") -- 2.11.4.GIT