[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule.el |
Date: |
Sun, 22 Jan 2006 12:24:02 +0000 |
Index: emacs/lisp/international/mule.el
diff -u emacs/lisp/international/mule.el:1.229
emacs/lisp/international/mule.el:1.230
--- emacs/lisp/international/mule.el:1.229 Mon Jan 16 12:07:26 2006
+++ emacs/lisp/international/mule.el Sun Jan 22 12:24:02 2006
@@ -620,16 +620,16 @@
(subsidiaries (vector (intern (format "%s-unix" coding-system))
(intern (format "%s-dos" coding-system))
(intern (format "%s-mac" coding-system))))
- (i 0)
- temp)
- (while (< i 3)
- (put (aref subsidiaries i) 'coding-system coding-spec)
- (put (aref subsidiaries i) 'eol-type i)
- (add-to-coding-system-list (aref subsidiaries i))
- (setq coding-system-alist
- (cons (list (symbol-name (aref subsidiaries i)))
- coding-system-alist))
- (setq i (1+ i)))
+ elt)
+ (dotimes (i 3)
+ (setq elt (aref subsidiaries i))
+ (put elt 'coding-system coding-spec)
+ (put elt 'eol-type i)
+ (put elt 'coding-system-define-form nil)
+ (add-to-coding-system-list elt)
+ (or (assoc (symbol-name elt) coding-system-alist)
+ (setq coding-system-alist
+ (cons (list (symbol-name elt)) coding-system-alist))))
subsidiaries))
(defun transform-make-coding-system-args (name type &optional doc-string props)
@@ -1082,8 +1082,9 @@
;; At last, register CODING-SYSTEM in `coding-system-list' and
;; `coding-system-alist'.
(add-to-coding-system-list coding-system)
- (setq coding-system-alist (cons (list (symbol-name coding-system))
- coding-system-alist))
+ (or (assoc (symbol-name coding-system) coding-system-alist)
+ (setq coding-system-alist (cons (list (symbol-name coding-system))
+ coding-system-alist)))
;; For a coding system of cateogory iso-8-1 and iso-8-2, create
;; XXX-with-esc variants.
@@ -1114,8 +1115,9 @@
(put alias 'coding-system (coding-system-spec coding-system))
(put alias 'coding-system-define-form nil)
(add-to-coding-system-list alias)
- (setq coding-system-alist (cons (list (symbol-name alias))
- coding-system-alist))
+ (or (assoc (symbol-name alias) coding-system-alist)
+ (setq coding-system-alist (cons (list (symbol-name alias))
+ coding-system-alist)))
(let ((eol-type (coding-system-eol-type coding-system)))
(if (vectorp eol-type)
(progn