From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 19 Mar 1994 03:00:25 +0000 (+0000)
Subject: (create-glyph): Don't use slots that look like ASCII.
X-Git-Tag: emacs-19.34~9435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03fd83c58a643a75adfabb1e2558948b5383ed08;p=emacs.git

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

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