667 |
;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
668 |
;; 675 Mass Ave, Cambridge, MA 02139, USA.") |
;; 675 Mass Ave, Cambridge, MA 02139, USA.") |
669 |
|
|
|
("chinese-b5-quick" "$(0X|(BB" |
|
|
"cangjie-table.b5" big5 "quick-b5.el" |
|
|
quick-b5-converter |
|
|
"\ |
|
|
;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
|
|
;; # |
|
|
;; # Permission to copy and distribute both modified and |
|
|
;; # unmodified versions is granted without royalty provided |
|
|
;; # this notice is preserved.") |
|
|
|
|
670 |
("chinese-ctlau" "$AAuTA(B" |
("chinese-ctlau" "$AAuTA(B" |
671 |
"CTLau.html" cn-gb-2312 "CTLau.el" |
"CTLau.html" cn-gb-2312 "CTLau.el" |
672 |
ctlau-gb-converter |
ctlau-gb-converter |
1161 |
(if (string= (car command-line-args-left) "-dir") |
(if (string= (car command-line-args-left) "-dir") |
1162 |
(progn |
(progn |
1163 |
(setq command-line-args-left (cdr command-line-args-left)) |
(setq command-line-args-left (cdr command-line-args-left)) |
1164 |
(setq dir (car command-line-args-left)))) |
(setq dir (car command-line-args-left)) |
1165 |
|
(setq command-line-args-left (cdr command-line-args-left)))) |
1166 |
(setq filename (car command-line-args-left) |
(setq filename (car command-line-args-left) |
1167 |
command-line-args-left (cdr command-line-args-left)) |
command-line-args-left (cdr command-line-args-left)) |
1168 |
(if (file-directory-p filename) |
(if (file-directory-p filename) |