-;;; ja-dic-cnv.el --- Convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp
+;;; ja-dic-cnv.el --- convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp
;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
(save-excursion
(set-buffer buf)
(insert ")\n\n")))
-
+
(defconst skkdic-prefix-list '(skkdic-prefix-list))
(defun skkdic-convert-prefix (skkbuf buf)
(save-excursion
(set-buffer buf)
(insert ")\n\n")))
-
+
;; FROM and TO point the head and tail of "/J../J../.../".
(defun skkdic-get-candidate-list (from to)
(let (candidates)
(goto-char from)
- (while (re-search-forward "/\\cj+" to t)
+ (while (re-search-forward "/[^/ \n]+" to t)
(setq candidates (cons (buffer-substring (1+ (match-beginning 0))
(match-end 0))
candidates)))
(setq candidates (cdr candidates)))
(nreverse l)))
-(defconst skkdic-okuri-nasi-entries (list nil))
-(defconst skkdic-okuri-nasi-entries-count 0)
+(defvar skkdic-okuri-nasi-entries (list nil))
+(defvar skkdic-okuri-nasi-entries-count 0)
(defun skkdic-collect-okuri-nasi ()
(message "Collecting OKURI-NASI entries ...")
(set-buffer buf)
(erase-buffer)
(buffer-disable-undo)
- (insert ";; ja-dic.el -- dictionary for Japanese input method\n"
+ (insert ";;; ja-dic.el --- dictionary for Japanese input method"
+ " -*-coding: iso-2022-jp;-*-\n"
";;\tGenerated by the command `skkdic-convert'\n"
";;\tDate: " (current-time-string) "\n"
";;\tOriginal SKK dictionary file: "
(file-name-nondirectory filename)
"\n\n"
- ";;; Comment:\n\n"
+ ";; This file is part of GNU Emacs.\n\n"
+ ";;; Commentary:\n\n"
";; Do byte-compile this file again after any modification.\n\n"
";;; Start of the header of the original SKK dictionary.\n\n")
(set-buffer skkbuf)
(goto-char to)
(skkdic-convert-prefix skkbuf buf)
- ;;
+ ;;
(skkdic-collect-okuri-nasi)
;; Convert okuri-nasi general entries.
(save-excursion
(set-buffer buf)
(goto-char (point-max))
- (insert ";;\n(provide 'ja-dic)\n\n;; ja-dic.el ends here\n")))
+ (insert ";;\n(provide 'ja-dic)\n\n;;; ja-dic.el ends here\n")))
;; Save the working buffer.
(set-buffer buf)
(provide 'ja-dic-cnv)
-;; ja-dic-cnv.el ends here
+;; Local Variables:
+;; coding: iso-2022-7bit
+;; End:
+
+;;; arch-tag: dec06fb0-8118-45b1-80d7-dc360b6fd3b2
+;;; ja-dic-cnv.el ends here