From 1a3cbf350a9b5f4ac9d89747e80032308f0b5a4c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 12 Jun 2009 07:21:57 +0000 Subject: Mostly re-written to generate all MULE-*.map files. --- admin/charsets/mule-charsets.el | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) diff --git a/admin/charsets/mule-charsets.el b/admin/charsets/mule-charsets.el index deca1c129c4..5ae51b3dcfd 100644 --- a/admin/charsets/mule-charsets.el +++ b/admin/charsets/mule-charsets.el @@ -19,11 +19,9 @@ ;; along with GNU Emacs. If not, see . -(if (or (< emacs-major-version 21) - (< emacs-minor-version 3) - (and (= emacs-minor-version 3) - (string< emacs-version "21.3.50"))) - (error "Use Emacs of version 21.3.50 or later")) +(if (not (or (and (= emacs-major-version 21) (= emacs-minor-version 4)) + (= emacs-major-version 22))) + (error "Use Emacs of version 21.4 or any of version 22")) (defun func (start end) (while (<= start end) @@ -45,15 +43,15 @@ ("MULE-lviscii.map" . vietnamese-viscii-lower) ("MULE-uviscii.map" . vietnamese-viscii-upper))) -(setq file (car command-line-args-left)) -(or (stringp file) - (error "Invalid file name: %s" file)) -(setq charset (cdr (assoc file charset-alist))) -(or charset - (error "Invalid charset: %s" (car command-line-args-left))) +(defconst header + (format + "# Generated by running amdin/charsets/mule-charsets.el in Emacs %d.%d.\n" + emacs-major-version emacs-minor-version)) -(with-temp-buffer - (map-charset-chars 'func charset) - (write-file file)) +(dolist (elt charset-alist) + (with-temp-buffer + (insert header) + (map-charset-chars 'func (cdr elt)) + (write-file (car elt)))) ;;; arch-tag: 515989d7-2e2d-41cc-9163-05ad472fede4 -- cgit v1.2.3