# HG changeset patch # User Ben Wing # Date 1268687712 18000 # Node ID 0b0241ae382f8303a2f93c7110cb008b1c824f28 # Parent 9f2f39c806601c09a62d9a509cc8a36ab06c95fe fix bug in generating display-table entries for error octet characters -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-03-15 Ben Wing * 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 + + * 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 * 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)