From 03fd83c58a643a75adfabb1e2558948b5383ed08 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 19 Mar 1994 03:00:25 +0000 Subject: [PATCH] (create-glyph): Don't use slots that look like ASCII. --- lisp/disp-table.el | 3 +++ 1 file changed, 3 insertions(+) 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))) -- 2.39.5