Lines Matching defs:display
32 (put 'display-table 'char-table-extra-slots 6)
35 (defun make-display-table ()
36 "Return a new, empty display table."
37 (make-char-table 'display-table nil))
39 (or standard-display-table
40 (setq standard-display-table (make-display-table)))
44 (put 'truncation 'display-table-slot 0)
45 (put 'wrap 'display-table-slot 1)
46 (put 'escape 'display-table-slot 2)
47 (put 'control 'display-table-slot 3)
48 (put 'selective-display 'display-table-slot 4)
49 (put 'vertical-border 'display-table-slot 5)
52 (defun display-table-slot (display-table slot)
56 `selective-display', and `vertical-border'."
59 (or (get slot 'display-table-slot)
60 (error "Invalid display-table slot name: %s" slot)))))
61 (char-table-extra-slot display-table slot-number)))
64 (defun set-display-table-slot (display-table slot value)
68 `selective-display', and `vertical-border'."
71 (or (get slot 'display-table-slot)
72 (error "Invalid display-table slot name: %s" slot)))))
73 (set-char-table-extra-slot display-table slot-number value)))
76 (defun describe-display-table (dt)
77 "Describe the display table DT in a help buffer."
80 (prin1 (display-table-slot dt 'truncation))
82 (prin1 (display-table-slot dt 'wrap))
84 (prin1 (display-table-slot dt 'escape))
86 (prin1 (display-table-slot dt 'control))
87 (princ "\nSelective display glyph sequence: ")
88 (prin1 (display-table-slot dt 'selective-display))
90 (prin1 (display-table-slot dt 'vertical-border))
91 (princ "\nCharacter display glyph sequences:\n")
104 (defun describe-current-display-table ()
105 "Describe the display table in use in the selected window and buffer."
107 (let ((disptab (or (window-display-table (selected-window))
108 buffer-display-table
109 standard-display-table)))
111 (describe-display-table disptab)
112 (message "No display table"))))
115 (defun standard-display-8bit (l h)
117 (or standard-display-table
118 (setq standard-display-table (make-display-table)))
120 (aset standard-display-table l (if (or (< l ?\s) (>= l 127)) (vector l)))
124 (defun standard-display-default (l h)
126 (or standard-display-table
127 (setq standard-display-table (make-display-table)))
130 (aset standard-display-table l nil))
137 (defun standard-display-ascii (c s)
139 (or standard-display-table
140 (setq standard-display-table (make-display-table)))
141 (aset standard-display-table c (vconcat s)))
144 (defun standard-display-g1 (c sc)
150 (or standard-display-table
151 (setq standard-display-table (make-display-table)))
152 (aset standard-display-table c
156 (defun standard-display-graphic (c gc)
162 (or standard-display-table
163 (setq standard-display-table (make-display-table)))
164 (aset standard-display-table c
168 (defun standard-display-underline (c uc)
170 (or standard-display-table
171 (setq standard-display-table (make-display-table)))
172 (aset standard-display-table c
180 "Allocate a glyph code to display by sending STRING to the terminal."
214 (defun standard-display-european (arg)
215 "Semi-obsolete way to toggle display of ISO 8859 European characters.
222 With prefix argument, this command enables European character display
224 European character display.
227 display not as octal escapes, but as accented characters. Codes 146
228 and 160 display as apostrophe and space, even though they are not the
231 Enabling European character display with this command noninteractively
239 (char-table-p standard-display-table)
241 (equal (aref standard-display-table 161) [161])))
243 (standard-display-default 160 255)
248 (display-warning 'i18n
249 "`standard-display-european' is semi-obsolete; see its doc string for details"
263 (standard-display-european-internal)))