From: Kenichi Handa Date: Wed, 2 Jul 1997 12:59:37 +0000 (+0000) Subject: Coding system name changed to X-Git-Tag: emacs-20.1~1389 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a852bbe71f02615b8cda8b02ce38db2b49b992f;p=emacs.git Coding system name changed to iso-2022-7bit-short. (skkdic-convert): Fix typo in a comment. (skkdic-convert): Save buffer in iso-2022-7bit-short. (skkdic-extract-conversion-data): Fix a bug in regular expression pattern. --- diff --git a/lisp/international/skkdic-cnv.el b/lisp/international/skkdic-cnv.el index 29192150fc8..5bbfaeee354 100644 --- a/lisp/international/skkdic-cnv.el +++ b/lisp/international/skkdic-cnv.el @@ -47,7 +47,7 @@ ;; To make a generated skkdic.el smaller. (make-coding-system - 'iso-2022-7-short + 'iso-2022-7bit-short 2 ?J "Like `iso-2022-7bit' but no ASCII designation before SPC." '(ascii nil nil nil t t nil t)) @@ -364,7 +364,7 @@ the generated \"skkdic.el\" is saved." "\n\n" ";;; Comment:\n\n" ";; Do byte-compile this file again after any modification.\n\n" - ";;; Start of the header of the original TIT dictionary.\n\n") + ";;; Start of the header of the original SKK dictionary.\n\n") (set-buffer skkbuf) (widen) (goto-char 1) @@ -418,7 +418,7 @@ the generated \"skkdic.el\" is saved." ;; Save the working buffer. (set-buffer buf) (set-visited-file-name (expand-file-name skkdic-filename dirname) t) - (set-buffer-file-coding-system 'iso-2022-7-short) + (set-buffer-file-coding-system 'iso-2022-7bit-short) (save-buffer 0)) (kill-buffer skkbuf) (switch-to-buffer buf))) @@ -478,7 +478,7 @@ To get complete usage, invoke: vec)) (defun skkdic-extract-conversion-data (entry) - (string-match "^\\cH+[a-z]* " entry) + (string-match "^\\cj+[a-z]* " entry) (let ((kana (substring entry (match-beginning 0) (1- (match-end 0)))) (i (match-end 0)) candidates)