mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

Coding system name changed to

Browse Source 
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.
This commit is contained in:
Kenichi Handa 1997-07-02 12:59:37 +00:00
parent 7d84255680
commit 3a852bbe71
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/international/skkdic-cnv.el
View File

@ -47,7 +47,7 @@
;; To make a generated skkdic.el smaller. ;; To make a generated skkdic.el smaller.
(make-coding-system (make-coding-system
'iso-2022-7-short 'iso-2022-7bit-short
2 ?J 2 ?J
"Like `iso-2022-7bit' but no ASCII designation before SPC." "Like `iso-2022-7bit' but no ASCII designation before SPC."
'(ascii nil nil nil t t nil t)) '(ascii nil nil nil t t nil t))
@ -364,7 +364,7 @@ the generated \"skkdic.el\" is saved."
"\n\n" "\n\n"
";;; Comment:\n\n" ";;; Comment:\n\n"
";; Do byte-compile this file again after any modification.\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) (set-buffer skkbuf)
(widen) (widen)
(goto-char 1) (goto-char 1)
@ -418,7 +418,7 @@ the generated \"skkdic.el\" is saved."
;; Save the working buffer. ;; Save the working buffer.
(set-buffer buf) (set-buffer buf)
(set-visited-file-name (expand-file-name skkdic-filename dirname) t) (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)) (save-buffer 0))
(kill-buffer skkbuf) (kill-buffer skkbuf)
(switch-to-buffer buf))) (switch-to-buffer buf)))
@ -478,7 +478,7 @@ To get complete usage, invoke:
vec)) vec))
(defun skkdic-extract-conversion-data (entry) (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)))) (let ((kana (substring entry (match-beginning 0) (1- (match-end 0))))
(i (match-end 0)) (i (match-end 0))
candidates) candidates)