/[emacs]/emacs/lisp/disp-table.el
ViewVC logotype

Diff of /emacs/lisp/disp-table.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48.4.2 by miles, Tue Oct 14 23:50:57 2003 UTC revision 1.48.4.3 by miles, Fri Nov 21 00:36:03 2003 UTC
# Line 113  Valid symbols are `truncation', `wrap', Line 113  Valid symbols are `truncation', `wrap',
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)
# Line 122  Valid symbols are `truncation', `wrap', Line 124  Valid symbols are `truncation', `wrap',
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))
# Line 133  Valid symbols are `truncation', `wrap', Line 137  Valid symbols are `truncation', `wrap',
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
# Line 142  This function assumes that your terminal Line 148  This function assumes that your terminal
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    
# Line 152  This function assumes VT100-compatible e Line 160  This function assumes VT100-compatible e
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

Legend:
Removed from v.1.48.4.2  
changed lines
  Added in v.1.48.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26