Commit 03fd83c5 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent 49b0dd75
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment