/[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 by monnier, Sun Dec 2 07:51:49 2001 UTC revision 1.48.4.1 by miles, Fri Apr 4 06:20:04 2003 UTC
# Line 159  X frame." Line 159  X frame."
159  (defun standard-display-underline (c uc)  (defun standard-display-underline (c uc)
160    "Display character C as character UC plus underlining."    "Display character C as character UC plus underlining."
161    (aset standard-display-table c    (aset standard-display-table c
162          (vector          (vector
163           (if window-system           (if window-system
164               (logior uc (lsh (face-id 'underline) 19))               (logior uc (lsh (face-id 'underline) 19))
165             (create-glyph (concat "\e[4m" (char-to-string uc) "\e[m"))))))             (create-glyph (concat "\e[4m" (char-to-string uc) "\e[m"))))))

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.48.4.1

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