diff options
| author | Kim F. Storm | 2007-02-14 11:29:05 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2007-02-14 11:29:05 +0000 |
| commit | 9a184b00295e9960b7949712347c349df6fddf5c (patch) | |
| tree | 1db3b116d61147fac8abb50888cf28817d8e9761 | |
| parent | 7dbfbd9191092032c2878b6d0eac28773e2982e5 (diff) | |
| download | emacs-9a184b00295e9960b7949712347c349df6fddf5c.tar.gz emacs-9a184b00295e9960b7949712347c349df6fddf5c.zip | |
(latin1-display-char): Use make-glyph-code.
| -rw-r--r-- | lisp/international/latin1-disp.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el index 6b2b6c50760..7a78e6628b9 100644 --- a/lisp/international/latin1-disp.el +++ b/lisp/international/latin1-disp.el | |||
| @@ -177,14 +177,10 @@ asis." | |||
| 177 | (if (eq 'default latin1-display-face) | 177 | (if (eq 'default latin1-display-face) |
| 178 | (standard-display-ascii char (format latin1-display-format display)) | 178 | (standard-display-ascii char (format latin1-display-format display)) |
| 179 | (aset standard-display-table char | 179 | (aset standard-display-table char |
| 180 | (vconcat (mapcar (lambda (c) | 180 | (vconcat (mapcar (lambda (c) (make-glyph-code c latin1-display-face)) |
| 181 | (logior c (lsh (face-id latin1-display-face) | ||
| 182 | 19))) | ||
| 183 | display)))) | 181 | display)))) |
| 184 | (aset standard-display-table char | 182 | (aset standard-display-table char |
| 185 | (if (eq 'default latin1-display-face) | 183 | (make-glyph-code display latin1-display-face)))) |
| 186 | display | ||
| 187 | (logior display (lsh (face-id latin1-display-face) 19)))))) | ||
| 188 | 184 | ||
| 189 | (defun latin1-display-identities (charset) | 185 | (defun latin1-display-identities (charset) |
| 190 | "Display each character in CHARSET as the corresponding Latin-1 character. | 186 | "Display each character in CHARSET as the corresponding Latin-1 character. |