From: Kenichi Handa <handa@m17n.org>
Date: Thu, 17 Jul 1997 07:16:21 +0000 (+0000)
Subject: (batch-titdic-convert): Add optional arg FORCE.
X-Git-Tag: emacs-20.1~1115
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44cbfae907e464bf443399fd774187721509eca9;p=emacs.git

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

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