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.
(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)