From 3a852bbe71f02615b8cda8b02ce38db2b49b992f Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Wed, 2 Jul 1997 12:59:37 +0000
Subject: [PATCH] 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.

---
 lisp/international/skkdic-cnv.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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)