Skip to content

GitLab

Commit a6bbf9f4 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent cc07ec4a
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 5 deletions
lisp/descr-text.el
View file @ a6bbf9f4
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment