Mercurial > emacs
changeset 21503:d08387c742bb
(titdic-convert): Message improved.
(tit-process-header): Change `Do byte-compile' to `Byte-compile'.
(batch-titdic-convert): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 14 Apr 1998 01:07:28 +0000 |
| parents | 388b7c77183b |
| children | 0e2b0f6fc9c0 |
| files | lisp/international/titdic-cnv.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/titdic-cnv.el Tue Apr 14 01:06:44 1998 +0000 +++ b/lisp/international/titdic-cnv.el Tue Apr 14 01:07:28 1998 +0000 @@ -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 @@ (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 @@ (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))