Mercurial > emacs

changeset 23456:934152e1b9a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-coding-system): Create -with-esc variant coding system.
author Kenichi Handa <handa@m17n.org>
date Wed, 14 Oct 1998 12:41:02 +0000
parents 84276318b663
children 3ca22a873859
files lisp/international/mule.el
diffstat 1 files changed, 26 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Wed Oct 14 07:17:22 1998 +0000
+++ b/lisp/international/mule.el	Wed Oct 14 12:41:02 1998 +0000
@@ -548,9 +548,10 @@
 	  ((= type 2)			; ISO2022
 	   (let ((i 0)
 		 (vec (make-vector 32 nil))
-		 (g1-designation nil))
+		 (g1-designation nil)
+		 (fl flags))
 	     (while (< i 4)
-	       (let ((charset (car flags)))
+	       (let ((charset (car fl)))
 		 (if (and no-initial-designation
 			  (> i 0)
 			  (or (charsetp charset)
@@ -575,10 +576,10 @@
 			     (setq no-alternative-designation nil)
 			   (error "Invalid charset: %s" charset)))))
 		 (aset vec i charset))
-	       (setq flags (cdr flags) i (1+ i)))
-	     (while (and (< i 32) flags)
-	       (aset vec i (car flags))
-	       (setq flags (cdr flags) i (1+ i)))
+	       (setq fl (cdr fl) i (1+ i)))
+	     (while (and (< i 32) fl)
+	       (aset vec i (car fl))
+	       (setq fl (cdr fl) i (1+ i)))
 	     (aset coding-spec 4 vec)
 	     (setq coding-category
 		   (if (aref vec 8)	; Use locking-shift.
@@ -625,9 +626,10 @@
 	  ;; In the old version, the arg PROPERTIES is a list to be
 	  ;; set in PLIST as a value of property `safe-charsets'.
 	  (plist-put plist 'safe-charsets properties)
-	(while properties
-	  (plist-put plist (car (car properties)) (cdr (car properties)))
-	  (setq properties (cdr properties))))
+	(let ((l properties))
+	  (while l
+	    (plist-put plist (car (car l)) (cdr (car l)))
+	    (setq l (cdr l)))))
       (aset coding-spec coding-spec-plist-idx plist))
     (put coding-system 'coding-system coding-spec)
     (put coding-category 'coding-systems
@@ -646,6 +648,21 @@
   (setq coding-system-list (cons coding-system coding-system-list))
   (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.
+  (let ((coding-category (coding-system-category coding-system)))
+    (if (or (eq coding-category 'coding-category-iso-8-1)
+	    (eq coding-category 'coding-category-iso-8-2))
+	(let ((esc (intern (concat (symbol-name coding-system) "-with-esc")))
+	      (doc (format "Same as %s but can handle any charsets by ISO's escape sequences." coding-system)))
+	  (make-coding-system esc type mnemonic doc
+			      (if (listp (car flags))
+				  (cons (append (car flags) '(t)) (cdr flags))
+				(cons (list (car flags) t) (cdr flags)))
+			      properties)
+	  (coding-system-put esc 'safe-charsets t))))
+
   coding-system)
 
 (defun define-coding-system-alias (alias coding-system)