(encoded-string-description): Use Lisp-readable syntax for hex.

2 files changed, 13 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 082c37f3365..d4e96182fcc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2005-11-20  Juri Linkov  <juri@jurta.org>
+
+        * simple.el (what-cursor-position):
+        * descr-text.el (describe-char): Use Lisp-readable syntax
+        for octal and hex.  Reorder decimal, octal and hex values.
+        Remove excess whitespace in the output.  Use `=' in `column='
+        like in `point=' and `Hscroll='.
+
+        * international/mule-cmds.el (encoded-string-description):
+        Use Lisp-readable syntax for hex.
+
 2005-11-19  Chong Yidong  <cyd@stupidchicken.com>
 
         * longlines.el (longlines-before-revert-hook)
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index c84a66bcd63..ba9ec37a042 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2647,8 +2647,8 @@ It can be retrieved with `(get-char-code-property CHAR PROPNAME)'."
    (if (and coding-system (eq (coding-system-type coding-system) 2))
        ;; Try to get a pretty description for ISO 2022 escape sequences.
        (function (lambda (x) (or (cdr (assq x iso-2022-control-alist))
-                                 (format "0x%02X" x))))
-     (function (lambda (x) (format "0x%02X" x))))
+                                 (format "#x%02X" x))))
+     (function (lambda (x) (format "#x%02X" x))))
    str " "))
 
 (defun encode-coding-char (char coding-system)