[Emacs-diffs] Changes to emacs/lisp/disp-table.el

[Kenichi Handa]

Index: emacs/lisp/disp-table.el
diff -c emacs/lisp/disp-table.el:1.50 emacs/lisp/disp-table.el:1.51
*** emacs/lisp/disp-table.el:1.50       Mon Sep  1 11:45:11 2003
--- emacs/lisp/disp-table.el    Tue Oct 28 01:52:20 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