# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 869123781 0
# Node ID e6f6c2712a5f91d823d911c0c2f1d6a148cecc39
# Parent  ac0f5f1912c014fe53ed5cf9302b92b9d3af4853
(batch-titdic-convert): Add optional arg FORCE.

diff -r ac0f5f1912c0 -r e6f6c2712a5f lisp/international/titdic-cnv.el
--- 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:")