[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/disp-table.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/disp-table.el [lexbind] |
Date: |
Thu, 20 Nov 2003 19:36:35 -0500 |
Index: emacs/lisp/disp-table.el
diff -c emacs/lisp/disp-table.el:1.48.4.2 emacs/lisp/disp-table.el:1.48.4.3
*** emacs/lisp/disp-table.el:1.48.4.2 Tue Oct 14 19:50:57 2003
--- emacs/lisp/disp-table.el Thu Nov 20 19:36:03 2003
***************
*** 113,118 ****
--- 113,120 ----
;;;###autoload
(defun standard-display-8bit (l h)
"Display characters in the range L to H literally."
+ (or standard-display-table
+ (setq standard-display-table (make-display-table)))
(while (<= l h)
(if (and (>= l ?\ ) (< l 127))
(aset standard-display-table l nil)
***************
*** 122,127 ****
--- 124,131 ----
;;;###autoload
(defun standard-display-default (l h)
"Display characters in the range L to H using the default notation."
+ (or standard-display-table
+ (setq standard-display-table (make-display-table)))
(while (<= l h)
(if (and (>= l ?\ ) (char-valid-p l))
(aset standard-display-table l nil))
***************
*** 133,138 ****
--- 137,144 ----
;;;###autoload
(defun standard-display-ascii (c s)
"Display character C using printable string S."
+ (or standard-display-table
+ (setq standard-display-table (make-display-table)))
(aset standard-display-table c (vconcat s)))
;;;###autoload
***************
*** 142,147 ****
--- 148,155 ----
it is meaningless for an X frame."
(if (memq window-system '(x w32))
(error "Cannot use string glyphs in a windowing system"))
+ (or standard-display-table
+ (setq standard-display-table (make-display-table)))
(aset standard-display-table c
(vector (create-glyph (concat "\016" (char-to-string sc) "\017")))))
***************
*** 152,163 ****
--- 160,175 ----
X frame."
(if (memq window-system '(x w32))
(error "Cannot use string glyphs in a windowing system"))
+ (or standard-display-table
+ (setq standard-display-table (make-display-table)))
(aset standard-display-table c
(vector (create-glyph (concat "\e(0" (char-to-string gc) "\e(B")))))
;;;###autoload
(defun standard-display-underline (c uc)
"Display character C as character UC plus underlining."
+ (or standard-display-table
+ (setq standard-display-table (make-display-table)))
(aset standard-display-table c
(vector
(if window-system
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/disp-table.el [lexbind],
Miles Bader <=