comparison lisp/international/skkdic-cnv.el @ 17098:8917133b7e82

Remove prefix "coding-system-" from coding system symbol names.

17097:c3c90aba16f9

;; Name of a file to generate from SKK dictionary.
(defvar skkdic-filename "skkdic.el")

;; To make a generated skkdic.el smaller.
(make-coding-system
 'coding-system-iso-2022-7-short
 2 ?J
 "Like `coding-system-iso-2022' but no ASCII designation before SPC."
 '(ascii nil nil nil t t nil t))

(defconst skkdic-jbytes
  (charset-bytes 'japanese-jisx0208))

	  (insert ";;\n(provide 'skkdic)\n\n;; skkdic.el ends here\n")))

      ;; Save the working buffer.
      (set-buffer buf)
      (set-visited-file-name (expand-file-name skkdic-filename dirname) t)
      (set-buffer-file-coding-system 'coding-system-iso-2022-7-short)
      (save-buffer 0))
    (kill-buffer skkbuf)
    (switch-to-buffer buf)))

(defun batch-skkdic-convert ()

17098:8917133b7e82

;; Name of a file to generate from SKK dictionary.
(defvar skkdic-filename "skkdic.el")

;; To make a generated skkdic.el smaller.
(make-coding-system
 'iso-2022-7-short
 2 ?J
 "Like `iso-2022-7' but no ASCII designation before SPC."
 '(ascii nil nil nil t t nil t))

(defconst skkdic-jbytes
  (charset-bytes 'japanese-jisx0208))

	  (insert ";;\n(provide 'skkdic)\n\n;; skkdic.el ends here\n")))

      ;; 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)
      (save-buffer 0))
    (kill-buffer skkbuf)
    (switch-to-buffer buf)))

(defun batch-skkdic-convert ()