procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(batch-titdic-convert): Add optional arg FORCE.

Browse source
This commit is contained in:
Kenichi Handa 1997-07-17 07:16:21 +00:00
parent c5ca4d3a1b
commit 44cbfae907
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/international/titdic-cnv.el
View file

@ -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:")