[Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el

[Kenichi Handa]

Index: emacs/lisp/international/titdic-cnv.el
diff -c emacs/lisp/international/titdic-cnv.el:1.33 
emacs/lisp/international/titdic-cnv.el:1.34
*** emacs/lisp/international/titdic-cnv.el:1.33 Wed Jul 24 18:18:11 2002
--- emacs/lisp/international/titdic-cnv.el      Thu Dec  5 03:39:14 2002
***************
*** 667,682 ****
  ;; CCE; see the file COPYING.  If not, write to the Free Software Foundation, 
  ;; 675 Mass Ave, Cambridge, MA 02139, USA.")
  
-     ("chinese-b5-quick" "$(0X|(BB"
-      "cangjie-table.b5" big5 "quick-b5.el" 
-      quick-b5-converter
-      "\
- ;; # Copyright 2001 Christian Wittern <address@hidden>
- ;; #
- ;; # Permission to copy and distribute both modified and
- ;; # unmodified versions is granted without royalty provided
- ;; # this notice is preserved.")
- 
      ("chinese-ctlau" "$AAuTA(B"
       "CTLau.html" cn-gb-2312 "CTLau.el"
       ctlau-gb-converter
--- 667,672 ----
***************
*** 1171,1177 ****
        (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 filename (car command-line-args-left)
            command-line-args-left (cdr command-line-args-left))
        (if (file-directory-p filename)
--- 1161,1168 ----
        (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)