/[emacs]/emacs/lisp/international/ja-dic-cnv.el
ViewVC logotype

Diff of /emacs/lisp/international/ja-dic-cnv.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pj, Wed Jul 18 09:06:38 2001 UTC revision 1.7.8.1 by miles, Fri Apr 4 06:20:22 2003 UTC
# Line 162  Line 162 
162    (save-excursion    (save-excursion
163      (set-buffer buf)      (set-buffer buf)
164      (insert ")\n\n")))      (insert ")\n\n")))
165              
166  (defconst skkdic-prefix-list '(skkdic-prefix-list))  (defconst skkdic-prefix-list '(skkdic-prefix-list))
167    
168  (defun skkdic-convert-prefix (skkbuf buf)  (defun skkdic-convert-prefix (skkbuf buf)
# Line 192  Line 192 
192    (save-excursion    (save-excursion
193      (set-buffer buf)      (set-buffer buf)
194      (insert ")\n\n")))      (insert ")\n\n")))
195              
196  ;; FROM and TO point the head and tail of "/J../J../.../".  ;; FROM and TO point the head and tail of "/J../J../.../".
197  (defun skkdic-get-candidate-list (from to)  (defun skkdic-get-candidate-list (from to)
198    (let (candidates)    (let (candidates)
# Line 358  The name of generated file is specified Line 358  The name of generated file is specified
358        (set-buffer buf)        (set-buffer buf)
359        (erase-buffer)        (erase-buffer)
360        (buffer-disable-undo)        (buffer-disable-undo)
361        (insert ";;; ja-dic.el --- dictionary for Japanese input method\n"        (insert ";;; ja-dic.el --- dictionary for Japanese input method"
362                  " -*-coding: iso-2022-jp;-*-\n"
363                ";;\tGenerated by the command `skkdic-convert'\n"                ";;\tGenerated by the command `skkdic-convert'\n"
364                ";;\tDate: " (current-time-string) "\n"                ";;\tDate: " (current-time-string) "\n"
365                ";;\tOriginal SKK dictionary file: "                ";;\tOriginal SKK dictionary file: "
# Line 406  The name of generated file is specified Line 407  The name of generated file is specified
407          (goto-char to)          (goto-char to)
408          (skkdic-convert-prefix skkbuf buf)          (skkdic-convert-prefix skkbuf buf)
409    
410          ;;          ;;
411          (skkdic-collect-okuri-nasi)          (skkdic-collect-okuri-nasi)
412    
413          ;; Convert okuri-nasi general entries.          ;; Convert okuri-nasi general entries.

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.7.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26