* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e5ca2019ce9b955145416fed630525a44d329bf..793f3ec346b7b45224cd301b9909565da032529b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-06-19  Glenn Morris  <rgm@gnu.org>
+
+       * 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  <michael.albinus@gmx.de>
 
        * net/secrets.el (secrets-struct-secret-content-type): Replace

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 7d7619df70e7932d4a7de673de405b59322dac33..bcad78d8ce023b5993813fd564228dc7b272cfd9 100644 (file)
--- 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:\e$(0?v(N\e(B, 6:\e$(0Dm(N\e(B, 3:\e$(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")