Mercurial > emacs
changeset 18831:e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 17 Jul 1997 07:16:21 +0000 |
| parents | ac0f5f1912c0 |
| children | f08b8f993e3a |
| files | lisp/international/titdic-cnv.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/titdic-cnv.el Thu Jul 17 06:51:28 1997 +0000 +++ b/lisp/international/titdic-cnv.el Thu Jul 17 07:16:21 1997 +0000 @@ -397,7 +397,7 @@ (message "Save this buffer after you make any modification")))) ;;;###autoload -(defun batch-titdic-convert () +(defun batch-titdic-convert (&optional force) "Run `titdic-convert' on the files remaining on the command line. Use this from the command line, with `-batch'; it won't work in an interactive Emacs. @@ -428,11 +428,11 @@ (setq files (list filename))) (while files (setq file (expand-file-name (car files))) - (if (file-newer-than-file-p - file (tit-make-quail-package-file-name file targetdir)) - (progn - (message "Converting %s to quail-package..." file) - (titdic-convert file targetdir))) + (when (or force + (file-newer-than-file-p + file (tit-make-quail-package-file-name file targetdir))) + (message "Converting %s to quail-package..." file) + (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:")