martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(titdic-convert): Message improved.

Browse Source 
(tit-process-header): Change `Do byte-compile' to `Byte-compile'.
(batch-titdic-convert): Likewise.
This commit is contained in:
Kenichi Handa
1998-04-14 01:07:28 +00:00
parent f30cc6122e
commit 86e4f7c080
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/international/titdic-cnv.el
View File

@@ -153,7 +153,7 @@
(princ "\n;;\tOriginal TIT dictionary file: ")
(princ (file-name-nondirectory filename))
(princ "\n\n;;; Comment:\n\n")
(princ ";; Do byte-compile this file again after any modification.\n\n")
(princ ";; Byte-compile this file again after any modification.\n\n")
(princ ";;; Start of the header of original TIT dictionary.\n\n")
(while (not (eobp))
@@ -355,7 +355,7 @@ the generated Quail package is saved."
(if (not slot)
(error "Invalid ENCODE: value in TIT dictionary"))
(setq coding-system (nth 1 slot))
(message "Decoding by %s..." coding-system)
(message "Decoding with coding system %s..." coding-system)
(goto-char (point-min))
(decode-coding-region (point-min) (point-max) coding-system))
@@ -415,7 +415,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"."
(titdic-convert file targetdir))
(setq files (cdr files)))
(setq command-line-args-left (cdr command-line-args-left)))
(message "Do byte-compile the created files by:")
(message "Byte-compile the created files by:")
(message " %% emacs -batch -f batch-byte-compile XXX.el")))
(kill-emacs 0))