Mercurial > emacs
comparison lisp/wid-edit.el @ 19256:e4b14e6fd28f
(widget-single-line-display-table): Variable
commented out; don't use it either.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 09 Aug 1997 19:11:15 +0000 |
| parents | 904dcdbb8576 |
| children | e2131e9d3bf6 |
comparison
equal
deleted
inserted
replaced
| 19255:40a9475f22ea | 19256:e4b14e6fd28f |
|---|---|
| 171 (t | 171 (t |
| 172 (:italic t))) | 172 (:italic t))) |
| 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 ;; |
| 189 ;; These are not really widget specific. | 190 ;; These are not really widget specific. |
| 190 | 191 |