Undo 2004-12-01 change. Display table is now

setup in faces.el.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50cbc41d107f411c63bcaca962c6aed455c26554..67f6db4a95e9141caa4a05e80fe7b10d05c35921 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2004-12-02  Kim F. Storm  <storm@cua.dk>
+
+       * faces.el (escape-glyph): Rename from glyph.
+       (standard-display-table): Set it here.  Add escape-glyph face to
+       extra slot characters.
+
+       * disp-table.el: Undo 2004-12-01 change.  Display table is now
+       setup in faces.el.
+
 2004-12-02  Mark A. Hershberger  <mah@everybody.org>
 
        * xml.el (xml-parse-dtd): Don't show validity messages when
@@ -7706,7 +7715,7 @@
        (compilation-forget-errors): Don't localize already local
        compilation-locs and remove FIXME about refontifying.
 
-2004-04-14  
+2004-04-14
        Split the rule for dired marks into 3 separate rules: for marks,
        marked file names and flagged file names.
 

diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index e0afe241a5ac045ac08f0da4f908ca746987d6a2..87781f5f8ae154b36c1adda50eaf64f23f847d6f 100644 (file)
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -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.