From: Dave Love <fx@gnu.org>
Date: Thu, 23 May 2002 18:17:35 +0000 (+0000)
Subject: Add coding tag.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~782
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68545baaa67fd96629a0c9d0905c0eaab8c0a3fe;p=emacs.git

Add coding tag.
(tit-process-header): Add coding tag to output.
---

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 1950a8febf8..d179b171080 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -1,4 +1,4 @@
-;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package
+;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -267,8 +267,8 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy
 	(tit-keyprompt nil))
 
     (princ ";; Quail package `")
-    (princ package)
-    (princ "' generated by the command `titdic-convert'\n;;\tDate: ")
+    (princ package) (princ "' -*- coding:iso-2022-7bit; -*-\n")
+    (princ ";;   Generated by the command `titdic-convert'\n;;\tDate: ")
     (princ (current-time-string))
     (princ "\n;;\tOriginal TIT dictionary file: ")
     (princ (file-name-nondirectory filename))