From 695effccdfe78132059e054a85e9200b868e0621 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 20 Nov 2005 07:48:44 +0000 Subject: [PATCH] (encoded-string-description): Use Lisp-readable syntax for hex. --- lisp/ChangeLog | 11 +++++++++++ lisp/international/mule-cmds.el | 4 ++-- 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 + + * 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 * 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) -- 2.39.5