/[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.57 by rsteib, Thu Sep 8 18:41:12 2005 UTC revision 1.58 by mituharu, Fri Oct 21 08:26:54 2005 UTC
# Line 145  Valid symbols are `truncation', `wrap', Line 145  Valid symbols are `truncation', `wrap',
145    "Display character C as character SC in the g1 character set.    "Display character C as character SC in the g1 character set.
146  This function assumes that your terminal uses the SO/SI characters;  This function assumes that your terminal uses the SO/SI characters;
147  it is meaningless for an X frame."  it is meaningless for an X frame."
148    (if (memq window-system '(x w32))    (if (memq window-system '(x w32 mac))
149        (error "Cannot use string glyphs in a windowing system"))        (error "Cannot use string glyphs in a windowing system"))
150    (or standard-display-table    (or standard-display-table
151        (setq standard-display-table (make-display-table)))        (setq standard-display-table (make-display-table)))
# Line 157  it is meaningless for an X frame." Line 157  it is meaningless for an X frame."
157    "Display character C as character GC in graphics character set.    "Display character C as character GC in graphics character set.
158  This function assumes VT100-compatible escapes; it is meaningless for an  This function assumes VT100-compatible escapes; it is meaningless for an
159  X frame."  X frame."
160    (if (memq window-system '(x w32))    (if (memq window-system '(x w32 mac))
161        (error "Cannot use string glyphs in a windowing system"))        (error "Cannot use string glyphs in a windowing system"))
162    (or standard-display-table    (or standard-display-table
163        (setq standard-display-table (make-display-table)))        (setq standard-display-table (make-display-table)))
# Line 217  for users who call this function in `.em Line 217  for users who call this function in `.em
217                 (equal (aref standard-display-table 161) [161])))                 (equal (aref standard-display-table 161) [161])))
218        (progn        (progn
219          (standard-display-default 160 255)          (standard-display-default 160 255)
220          (unless (or (memq window-system '(x w32)))          (unless (or (memq window-system '(x w32 mac)))
221            (and (terminal-coding-system)            (and (terminal-coding-system)
222                 (set-terminal-coding-system nil))))                 (set-terminal-coding-system nil))))
223    

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

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