Commit 9a184b00 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(latin1-display-char): Use make-glyph-code.

parent 7dbfbd91
...@@ -177,14 +177,10 @@ asis." ...@@ -177,14 +177,10 @@ asis."
(if (eq 'default latin1-display-face) (if (eq 'default latin1-display-face)
(standard-display-ascii char (format latin1-display-format display)) (standard-display-ascii char (format latin1-display-format display))
(aset standard-display-table char (aset standard-display-table char
(vconcat (mapcar (lambda (c) (vconcat (mapcar (lambda (c) (make-glyph-code c latin1-display-face))
(logior c (lsh (face-id latin1-display-face)
19)))
display)))) display))))
(aset standard-display-table char (aset standard-display-table char
(if (eq 'default latin1-display-face) (make-glyph-code display latin1-display-face))))
display
(logior display (lsh (face-id latin1-display-face) 19))))))
(defun latin1-display-identities (charset) (defun latin1-display-identities (charset)
"Display each character in CHARSET as the corresponding Latin-1 character. "Display each character in CHARSET as the corresponding Latin-1 character.
......
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