From 702a99ca2e7960b0459546a196f6031b468479f3 Mon Sep 17 00:00:00 2001 From: Daniel Pfeiffer Date: Wed, 1 Dec 2004 18:30:33 +0000 Subject: [PATCH] Add an autoloaded table, that doesn't require this library, with glyph face. --- lisp/disp-table.el | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 87781f5f8ae..e0afe241a5a 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -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. -- 2.39.5