[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/admin/charsets mule-charsets.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] emacs/admin/charsets mule-charsets.el |
Date: |
Fri, 12 Jun 2009 07:21:57 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kenichi Handa <handa> 09/06/12 07:21:57
Modified files:
admin/charsets : mule-charsets.el
Log message:
Mostly re-written to generate all MULE-*.map files.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/admin/charsets/mule-charsets.el?cvsroot=emacs&r1=1.5&r2=1.6
Patches:
Index: mule-charsets.el
===================================================================
RCS file: /cvsroot/emacs/emacs/admin/charsets/mule-charsets.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- mule-charsets.el 8 Jan 2009 04:24:45 -0000 1.5
+++ mule-charsets.el 12 Jun 2009 07:21:57 -0000 1.6
@@ -19,11 +19,9 @@
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/admin/charsets mule-charsets.el,
Kenichi Handa <=