diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-19 03:00:25 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-19 03:00:25 +0000 |
| commit | 6b131b2083a4d0ae53061896816c4fd0f45a72cc (patch) | |
| tree | 725ce43326090432b4bea776c8b145fd1ad8bf28 /lisp/disp-table.el | |
| parent | e9908f530fc189819a89b4e474f5485f8f0517e1 (diff) | |
| download | emacs-6b131b2083a4d0ae53061896816c4fd0f45a72cc.tar.gz | |
(create-glyph): Don't use slots that look like ASCII.
Diffstat (limited to 'lisp/disp-table.el')
| -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 d162d4ef8bc..fdf6a5acbb2 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))) |