diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-07-17 07:16:21 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-07-17 07:16:21 +0000 |
| commit | 44cbfae907e464bf443399fd774187721509eca9 (patch) | |
| tree | 1545ac453c6e86a0591d54679b7f12e82c064e16 /lisp/international/titdic-cnv.el | |
| parent | c5ca4d3a1b9bb3165401212fa39621562c5c0e1f (diff) | |
| download | emacs-44cbfae907e464bf443399fd774187721509eca9.tar.gz | |
(batch-titdic-convert): Add optional arg FORCE.
Diffstat (limited to 'lisp/international/titdic-cnv.el')
| -rw-r--r-- | lisp/international/titdic-cnv.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index abf3d0ef070..a92157744e9 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -397,7 +397,7 @@ the generated Quail package is saved." (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 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." (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:") |