diff options
| author | Kenichi Handa | 2008-01-11 04:16:14 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2008-01-11 04:16:14 +0000 |
| commit | a6bbf9f489e6704a9c082eaa702479e86c8827ef (patch) | |
| tree | f173f1e1a31242322f91a2a801d57e12b674fad8 | |
| parent | cc07ec4a357ad1f234046c8bd5811e6ed4c88665 (diff) | |
| download | emacs-a6bbf9f489e6704a9c082eaa702479e86c8827ef.tar.gz emacs-a6bbf9f489e6704a9c082eaa702479e86c8827ef.zip | |
(describe-char-display): Fix previous change.
| -rw-r--r-- | lisp/descr-text.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 47d17664e67..dfa87308fbe 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el | |||
| @@ -336,11 +336,12 @@ This function is semi-obsolete. Use `get-char-code-property'." | |||
| 336 | (defun describe-char-display (pos char) | 336 | (defun describe-char-display (pos char) |
| 337 | (if (display-graphic-p (selected-frame)) | 337 | (if (display-graphic-p (selected-frame)) |
| 338 | (let ((char-font-info (internal-char-font pos char))) | 338 | (let ((char-font-info (internal-char-font pos char))) |
| 339 | (if (integerp (cdr char-font-info)) | 339 | (if char-font-info |
| 340 | (setcdr char-font-info (format "%02X" (cdr char-font-info))) | 340 | (if (integerp (cdr char-font-info)) |
| 341 | (setcdr char-font-info | 341 | (setcdr char-font-info (format "%02X" (cdr char-font-info))) |
| 342 | (format "%04X%04X" | 342 | (setcdr char-font-info |
| 343 | (cadr char-font-info) (cddr char-font-info)))) | 343 | (format "%04X%04X" |
| 344 | (cadr char-font-info) (cddr char-font-info))))) | ||
| 344 | char-font-info) | 345 | char-font-info) |
| 345 | (let* ((coding (terminal-coding-system)) | 346 | (let* ((coding (terminal-coding-system)) |
| 346 | (encoded (encode-coding-char char coding))) | 347 | (encoded (encode-coding-char char coding))) |