mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(create-glyph): Don't use slots that look like ASCII.

Browse Source
This commit is contained in:
Karl Heuer 1994-03-19 03:00:25 +00:00
parent 49b0dd7595
commit 03fd83c58a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/disp-table.el
View File

@ -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)))