From: Glenn Morris <rgm@gnu.org>
Date: Wed, 19 Jun 2013 07:19:42 +0000 (-0700)
Subject: * international/titdic-cnv.el (tit-process-header, miscdic-convert):
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2016^2~51
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=011c45526351ad6b518a0a131a58476086bffecd;p=emacs.git

* 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 2e5ca2019ce..793f3ec346b 100644
--- 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 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")