Mercurial > emacs
changeset 6417:81e96cd91613
(create-glyph): Don't use slots that look like ASCII.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 19 Mar 1994 03:00:25 +0000 |
| parents | 6f57787905d9 |
| children | 43dea22be493 |
| files | lisp/disp-table.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/disp-table.el Sat Mar 19 02:54:00 1994 +0000 +++ b/lisp/disp-table.el Sat Mar 19 03:00:25 1994 +0000 @@ -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)))