mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(describe-char-display): Fix previous change.

Browse Source
This commit is contained in:
Kenichi Handa 2008-01-11 04:16:14 +00:00
parent cc07ec4a35
commit a6bbf9f489
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/descr-text.el
View File

@ -336,11 +336,12 @@ This function is semi-obsolete. Use `get-char-code-property'."
(defun describe-char-display (pos char)
(if (display-graphic-p (selected-frame))
(let ((char-font-info (internal-char-font pos char)))
(if (integerp (cdr char-font-info))
(setcdr char-font-info (format "%02X" (cdr char-font-info)))
(setcdr char-font-info
(format "%04X%04X"
(cadr char-font-info) (cddr char-font-info))))
(if char-font-info
(if (integerp (cdr char-font-info))
(setcdr char-font-info (format "%02X" (cdr char-font-info)))
(setcdr char-font-info
(format "%04X%04X"
(cadr char-font-info) (cddr char-font-info)))))
char-font-info)
(let* ((coding (terminal-coding-system))
(encoded (encode-coding-char char coding)))