Mercurial > emacs

comparison lisp/disp-table.el @ 6417:81e96cd91613

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(create-glyph): Don't use slots that look like ASCII.
author Karl Heuer <kwzh@gnu.org>
date Sat, 19 Mar 1994 03:00:25 +0000
parents 35e9402cb6bf
children 43dea22be493
comparison
equal deleted inserted replaced
6416:6f57787905d9 6417:81e96cd91613
121 ;; Allocate a glyph code to display by sending STRING to the terminal. 121 ;; Allocate a glyph code to display by sending STRING to the terminal.
122 ;;;###autoload 122 ;;;###autoload
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
129 ;;;###autoload 132 ;;;###autoload
130 (defun standard-display-european (arg) 133 (defun standard-display-european (arg)