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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 082c37f..d4e9618 100644 (file)
--- 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 c84a66b..ba9ec37 100644 (file)
--- 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)