[Emacs-diffs] trunk r113071: * international/titdic-cnv.el (tit-process-header, miscdic-convert):

[Glenn Morris]

------------------------------------------------------------
revno: 113071
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-06-19 00:19:42 -0700
message:
  * 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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/international/titdic-cnv.el 
titdiccnv.el-20091113204419-o5vbwnq5f7feedwu-1050

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-19 06:24:12 +0000
+++ b/lisp/ChangeLog    2013-06-19 07:19:42 +0000
@@ -1,3 +1,9 @@
+2013-06-19  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * net/secrets.el (secrets-struct-secret-content-type): Replace

=== modified file 'lisp/international/titdic-cnv.el'
--- a/lisp/international/titdic-cnv.el  2013-01-01 09:11:05 +0000
+++ b/lisp/international/titdic-cnv.el  2013-06-19 07:19:42 +0000
@@ -273,9 +273,8 @@
     (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 @@
          (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")