diff options
| author | Karl Heuer | 1994-03-19 03:00:25 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-19 03:00:25 +0000 |
| commit | 03fd83c58a643a75adfabb1e2558948b5383ed08 (patch) | |
| tree | 4190b2ab331af62d8b95d72a15775a87e49e9df8 | |
| parent | 49b0dd75955ed595dcd2b0f16756fe1251e0639e (diff) | |
| download | emacs-03fd83c58a643a75adfabb1e2558948b5383ed08.tar.gz emacs-03fd83c58a643a75adfabb1e2558948b5383ed08.zip | |
(create-glyph): Don't use slots that look like ASCII.
| -rw-r--r-- | lisp/disp-table.el | 3 |
1 files changed, 3 insertions, 0 deletions
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 @@ | |||
| 123 | (defun create-glyph (string) | 123 | (defun create-glyph (string) |
| 124 | (if (= (length glyph-table) 65536) | 124 | (if (= (length glyph-table) 65536) |
| 125 | (error "No free glyph codes remain")) | 125 | (error "No free glyph codes remain")) |
| 126 | ;; Don't use slots that correspond to ASCII characters. | ||
| 127 | (if (= (length glyph-table) 32) | ||
| 128 | (setq glyph-table (vconcat glyph-table (make-vector 224 nil)))) | ||
| 126 | (setq glyph-table (vconcat glyph-table (list string))) | 129 | (setq glyph-table (vconcat glyph-table (list string))) |
| 127 | (1- (length glyph-table))) | 130 | (1- (length glyph-table))) |
| 128 | 131 | ||