Function: batch-tit-miscdic-convert

batch-tit-miscdic-convert is a byte-compiled function defined in titdic-cnv.el.gz.

Signature

(batch-tit-miscdic-convert)

Documentation

Run tit-miscdic-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. If there's an argument "-dir", the next argument specifies a directory to store generated Quail packages.

Aliases

batch-miscdic-convert (obsolete since 30.1)

Source Code

;; Defined in /usr/src/emacs/lisp/international/titdic-cnv.el.gz
(defun batch-tit-miscdic-convert ()
  "Run `tit-miscdic-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.
If there's an argument \"-dir\", the next argument specifies a directory
to store generated Quail packages."
  (defvar command-line-args-left)	; Avoid compiler warning.
  (if (not noninteractive)
      (error "`batch-tit-miscdic-convert' should be used only with -batch"))
  (let ((dir default-directory)
	filename)
    (while command-line-args-left
      (if (string= (car command-line-args-left) "-dir")
	  (progn
	    (setq command-line-args-left (cdr command-line-args-left))
	    (setq dir (car command-line-args-left))
	    (setq command-line-args-left (cdr command-line-args-left))))
      (setq filename (car command-line-args-left)
	    command-line-args-left (cdr command-line-args-left))
      (if (file-directory-p filename)
	  (dolist (file (directory-files filename t nil t))
	    (or (file-directory-p file)
		(tit-miscdic-convert file dir)))
	(tit-miscdic-convert filename dir))))
  (kill-emacs 0))