113 |
;;;###autoload |
;;;###autoload |
114 |
(defun standard-display-8bit (l h) |
(defun standard-display-8bit (l h) |
115 |
"Display characters in the range L to H literally." |
"Display characters in the range L to H literally." |
116 |
|
(or standard-display-table |
117 |
|
(setq standard-display-table (make-display-table))) |
118 |
(while (<= l h) |
(while (<= l h) |
119 |
(if (and (>= l ?\ ) (< l 127)) |
(if (and (>= l ?\ ) (< l 127)) |
120 |
(aset standard-display-table l nil) |
(aset standard-display-table l nil) |
124 |
;;;###autoload |
;;;###autoload |
125 |
(defun standard-display-default (l h) |
(defun standard-display-default (l h) |
126 |
"Display characters in the range L to H using the default notation." |
"Display characters in the range L to H using the default notation." |
127 |
|
(or standard-display-table |
128 |
|
(setq standard-display-table (make-display-table))) |
129 |
(while (<= l h) |
(while (<= l h) |
130 |
(if (and (>= l ?\ ) (char-valid-p l)) |
(if (and (>= l ?\ ) (char-valid-p l)) |
131 |
(aset standard-display-table l nil)) |
(aset standard-display-table l nil)) |
137 |
;;;###autoload |
;;;###autoload |
138 |
(defun standard-display-ascii (c s) |
(defun standard-display-ascii (c s) |
139 |
"Display character C using printable string S." |
"Display character C using printable string S." |
140 |
|
(or standard-display-table |
141 |
|
(setq standard-display-table (make-display-table))) |
142 |
(aset standard-display-table c (vconcat s))) |
(aset standard-display-table c (vconcat s))) |
143 |
|
|
144 |
;;;###autoload |
;;;###autoload |
148 |
it is meaningless for an X frame." |
it is meaningless for an X frame." |
149 |
(if (memq window-system '(x w32)) |
(if (memq window-system '(x w32)) |
150 |
(error "Cannot use string glyphs in a windowing system")) |
(error "Cannot use string glyphs in a windowing system")) |
151 |
|
(or standard-display-table |
152 |
|
(setq standard-display-table (make-display-table))) |
153 |
(aset standard-display-table c |
(aset standard-display-table c |
154 |
(vector (create-glyph (concat "\016" (char-to-string sc) "\017"))))) |
(vector (create-glyph (concat "\016" (char-to-string sc) "\017"))))) |
155 |
|
|
160 |
X frame." |
X frame." |
161 |
(if (memq window-system '(x w32)) |
(if (memq window-system '(x w32)) |
162 |
(error "Cannot use string glyphs in a windowing system")) |
(error "Cannot use string glyphs in a windowing system")) |
163 |
|
(or standard-display-table |
164 |
|
(setq standard-display-table (make-display-table))) |
165 |
(aset standard-display-table c |
(aset standard-display-table c |
166 |
(vector (create-glyph (concat "\e(0" (char-to-string gc) "\e(B"))))) |
(vector (create-glyph (concat "\e(0" (char-to-string gc) "\e(B"))))) |
167 |
|
|
168 |
;;;###autoload |
;;;###autoload |
169 |
(defun standard-display-underline (c uc) |
(defun standard-display-underline (c uc) |
170 |
"Display character C as character UC plus underlining." |
"Display character C as character UC plus underlining." |
171 |
|
(or standard-display-table |
172 |
|
(setq standard-display-table (make-display-table))) |
173 |
(aset standard-display-table c |
(aset standard-display-table c |
174 |
(vector |
(vector |
175 |
(if window-system |
(if window-system |