# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1101984279 0
# Node ID 9a3bb995aa8b6c7b70a3bf6bb41c3d7546a60f6b
# Parent  8acd64f0bef09b85e6ece94a455d0d34361420d5
Undo 2004-12-01 change.  Display table is now
setup in faces.el.

diff -r 8acd64f0bef0 -r 9a3bb995aa8b lisp/disp-table.el
--- a/lisp/disp-table.el	Thu Dec 02 10:43:56 2004 +0000
+++ b/lisp/disp-table.el	Thu Dec 02 10:44:39 2004 +0000
@@ -35,21 +35,8 @@
   "Return a new, empty display table."
   (make-char-table 'display-table nil))
 
-;;;###autoload (setq standard-display-table #^[t nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil #^^[nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil [11534428 32] nil nil nil nil nil nil nil nil nil nil nil nil [11534428 45] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil display-table nil nil 11534428 11534430 [11534382 11534382 11534382] nil])
-;; This code generates the preceding table:
-;; (let* ((face (lsh (face-id 'glyph) 19))
-;;        (backslash (+ face ?\\))
-;;        (dot (+ face ?.))
-;;        (table (make-display-table))
-;;        print-length)
-;;   (set-char-table-extra-slot table 2 backslash)
-;;   (aset table 2208 (vector backslash ?\ ))
-;;   (aset table 2221 (vector backslash ?-))
-;;
-;;   (set-char-table-extra-slot table 3 (+ face ?^))
-;;
-;;   (set-char-table-extra-slot table 4 (vector dot dot dot))
-;;   (print table))
+(or standard-display-table
+    (setq standard-display-table (make-display-table)))
 
 ;;; Display-table slot names.  The property value says which slot.