(widget-single-line-display-table): Variable

commented out; don't use it either.
This commit is contained in:
Richard M. Stallman 1997-08-09 19:11:15 +00:00
parent 253011b3a7
commit 33eae9c01b

View file

@ -173,16 +173,17 @@ This exists as a variable so it can be set locally in certain buffers.")
"Face used for editable fields spanning only a single line."
:group 'widget-faces)
(defvar widget-single-line-display-table
(let ((table (make-display-table)))
(aset table 9 "^I")
(aset table 10 "^J")
table)
"Display table used for single-line editable fields.")
;;; This causes display-table to be loaded, and not usefully.
;;;(defvar widget-single-line-display-table
;;; (let ((table (make-display-table)))
;;; (aset table 9 "^I")
;;; (aset table 10 "^J")
;;; table)
;;; "Display table used for single-line editable fields.")
(when (fboundp 'set-face-display-table)
(set-face-display-table 'widget-single-line-field-face
widget-single-line-display-table))
;;;(when (fboundp 'set-face-display-table)
;;; (set-face-display-table 'widget-single-line-field-face
;;; widget-single-line-display-table))
;;; Utility functions.
;;