# HG changeset patch
# User Daniel Pfeiffer <occitan@esperanto.org>
# Date 1101925833 0
# Node ID 2c96a34c9b649e4bdda372587b9d14a52016943a
# Parent  2015bd9851871b662c2eb9edefe8cc5530fbddab
Add an autoloaded table, that doesn't require this library, with glyph face.

diff -r 2015bd985187 -r 2c96a34c9b64 lisp/disp-table.el
--- a/lisp/disp-table.el	Wed Dec 01 18:29:20 2004 +0000
+++ b/lisp/disp-table.el	Wed Dec 01 18:30:33 2004 +0000
@@ -35,8 +35,21 @@
   "Return a new, empty display table."
   (make-char-table 'display-table nil))
 
-(or standard-display-table
-    (setq standard-display-table (make-display-table)))
+;;;###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))
 
 ;;; Display-table slot names.  The property value says which slot.