carbon2-commit: fix bug in generating display-table entries for error octet characters

[Ben Wing]

changeset:   5197:0b0241ae382f
user:        Ben Wing <ben at xemacs.org>
date:        Mon Mar 15 16:15:12 2010 -0500
files:       lisp/ChangeLog lisp/mule/mule-cmds.el
description:
fix bug in generating display-table entries for error octet characters

-------------------- ChangeLog entries follow: --------------------

lisp/ChangeLog addition:

2010-03-15  Ben Wing  <ben at xemacs.org>

	* mule/mule-cmds.el:
	* mule/mule-cmds.el (finish-set-language-environment):
	Fix bug in generating display-table entries for error octet characters.


diff -r 9f2f39c80660 -r 0b0241ae382f lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Mar 13 12:35:54 2010 -0600
+++ b/lisp/ChangeLog	Mon Mar 15 16:15:12 2010 -0500
@@ -1,3 +1,9 @@
+2010-03-15  Ben Wing  <ben at xemacs.org>
+
+	* mule/mule-cmds.el:
+	* mule/mule-cmds.el (finish-set-language-environment):
+	Fix bug in generating display-table entries for error octet characters.
+
 2010-03-12  Ben Wing  <ben at xemacs.org>
 
 	* test-harness.el (test-harness-from-buffer):
diff -r 9f2f39c80660 -r 0b0241ae382f lisp/mule/mule-cmds.el
--- a/lisp/mule/mule-cmds.el	Sat Mar 13 12:35:54 2010 -0600
+++ b/lisp/mule/mule-cmds.el	Mon Mar 15 16:15:12 2010 -0500
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997 MORIOKA Tomohiko
-;; Copyright (C) 2000, 2001, 2002, 2003 Ben Wing.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2010 Ben Wing.
 
 ;; Keywords: mule, multilingual
 
@@ -789,8 +789,8 @@
 	     (setq string (format "%c" unicode-error-lookup)))
            ;; Treat control characters specially:
            (setq first-char (aref string 0))
-           (when (or (and (>= #x00 first-char) (<= first-char #x1f))
-                     (and (>= #x80 first-char) (<= first-char #x9f)))
+           (when (or (and (>= first-char #x00) (<= first-char #x1f))
+                     (and (>= first-char #x80) (<= first-char #x9f)))
 	     (setq string (format "^%c" (+ ?@ (aref string 0))))))
          (setq glyph (make-glyph (vector 'string :data string)))
          (set-glyph-face glyph 'unicode-invalid-sequence-warning-face)