aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-08-09 19:11:15 +0000
committerRichard M. Stallman1997-08-09 19:11:15 +0000
commit33eae9c01beae82329e02d7745fab1e485dd0144 (patch)
tree548a96ece5421bbadaefc6ccdfd907ad58e9843f
parent253011b3a73df0f227528a766a2618ccea860284 (diff)
downloademacs-33eae9c01beae82329e02d7745fab1e485dd0144.tar.gz
emacs-33eae9c01beae82329e02d7745fab1e485dd0144.zip
(widget-single-line-display-table): Variable
commented out; don't use it either.
-rw-r--r--lisp/wid-edit.el21
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 9cb5f1ffd24..1d6de477221 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -173,16 +173,17 @@ This exists as a variable so it can be set locally in certain buffers.")
173 "Face used for editable fields spanning only a single line." 173 "Face used for editable fields spanning only a single line."
174 :group 'widget-faces) 174 :group 'widget-faces)
175 175
176(defvar widget-single-line-display-table 176;;; This causes display-table to be loaded, and not usefully.
177 (let ((table (make-display-table))) 177;;;(defvar widget-single-line-display-table
178 (aset table 9 "^I") 178;;; (let ((table (make-display-table)))
179 (aset table 10 "^J") 179;;; (aset table 9 "^I")
180 table) 180;;; (aset table 10 "^J")
181 "Display table used for single-line editable fields.") 181;;; table)
182 182;;; "Display table used for single-line editable fields.")
183(when (fboundp 'set-face-display-table) 183
184 (set-face-display-table 'widget-single-line-field-face 184;;;(when (fboundp 'set-face-display-table)
185 widget-single-line-display-table)) 185;;; (set-face-display-table 'widget-single-line-field-face
186;;; widget-single-line-display-table))
186 187
187;;; Utility functions. 188;;; Utility functions.
188;; 189;;