procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't print the "decomposition" line for control chars in what-cursor-position

Browse source 
This is a temporary workaround for bug #23594, where the decomposition line
for linefeed corrupted the display on a Linux virtual terminal.

* lisp/descr-text.el (describe-char): Remove `decomposition' from the list of
character code properties printed for control characters.
This commit is contained in:
Alan Mackenzie 2016-05-22 21:02:34 +00:00
parent 869092c9ed
commit 2671179b11
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/descr-text.el
View file

@ -806,9 +806,16 @@ relevant to POS."
'describe-char-unidata-list))
'follow-link t)
(insert "\n")
(dolist (elt (if (eq describe-char-unidata-list t)
(nreverse (mapcar 'car char-code-property-alist))
describe-char-unidata-list))
(dolist (elt
(cond ((eq describe-char-unidata-list t)
(nreverse (mapcar 'car char-code-property-alist)))
((< char 32)
;; Temporary fix (2016-05-22): The
;; decomposition item for \n corrupts the
;; display on a Linux virtual terminal.
;; (Bug #23594).
(remq 'decomposition describe-char-unidata-list))
(t describe-char-unidata-list)))
(let ((val (get-char-code-property char elt))
description)
(when val