diff options
author | Karl Heuer <[email protected]> | 1994-03-19 03:00:25 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1994-03-19 03:00:25 +0000 |
commit | 03fd83c58a643a75adfabb1e2558948b5383ed08 (patch) | |
tree | 4190b2ab331af62d8b95d72a15775a87e49e9df8 /lisp | |
parent | 49b0dd75955ed595dcd2b0f16756fe1251e0639e (diff) |
(create-glyph): Don't use slots that look like ASCII.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/disp-table.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index d162d4ef8b..fdf6a5acbb 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -123,6 +123,9 @@ (defun create-glyph (string) (if (= (length glyph-table) 65536) (error "No free glyph codes remain")) + ;; Don't use slots that correspond to ASCII characters. + (if (= (length glyph-table) 32) + (setq glyph-table (vconcat glyph-table (make-vector 224 nil)))) (setq glyph-table (vconcat glyph-table (list string))) (1- (length glyph-table))) |