diff options
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 517e2895cb4..4a6db284747 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -413,12 +413,6 @@ The character information includes: (charset (if eight-bit-p 'eight-bit (or (get-text-property pos 'charset) (char-charset char)))) - ;; TIS620.2533 overlaps eight-bit-control, but we want to - ;; show eight-bit for raw bytes, not some obscure character - ;; set no one heard of. - (charset (if (eq charset 'tis620-2533) - 'eight-bit - charset)) (composition (find-composition pos nil nil t)) (component-chars nil) (display-table (or (window-display-table) @@ -850,8 +844,6 @@ The character information includes: (if text-props-desc (insert text-props-desc)) (setq buffer-read-only t)))))) -(define-obsolete-function-alias 'describe-char-after 'describe-char "22.1") - ;;; Describe-Char-ElDoc (defun describe-char-eldoc--truncate (name width) |