Mercurial > emacs
comparison lisp/facemenu.el @ 74422:a756f7ecaf2e
(facemenu-unlisted-faces): Define as obsolete variable.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 04 Dec 2006 16:09:21 +0000 |
| parents | 0c96941203c0 |
| children | fb9de3443cda |
comparison
equal
deleted
inserted
replaced
| 74421:658f67519f93 | 74422:a756f7ecaf2e |
|---|---|
| 129 "*Where in the menu to insert newly-created faces. | 129 "*Where in the menu to insert newly-created faces. |
| 130 This should be nil to put them at the top of the menu, or t to put them | 130 This should be nil to put them at the top of the menu, or t to put them |
| 131 just before \"Other\" at the end." | 131 just before \"Other\" at the end." |
| 132 :type 'boolean | 132 :type 'boolean |
| 133 :group 'facemenu) | 133 :group 'facemenu) |
| 134 | |
| 135 (defvar facemenu-unlisted-faces | |
| 136 `(modeline region secondary-selection highlight scratch-face | |
| 137 ,(purecopy "^font-lock-") ,(purecopy "^gnus-") ,(purecopy "^message-") | |
| 138 ,(purecopy "^ediff-") ,(purecopy "^term-") ,(purecopy "^vc-") | |
| 139 ,(purecopy "^widget-") ,(purecopy "^custom-") ,(purecopy "^vm-")) | |
| 140 "*List of faces that are of no interest to the user. | |
| 141 This variable is obsolete, and has no effect on the Face menu. | |
| 142 Use the variable `facemenu-listed-faces' instead.") | |
| 143 (make-obsolete-variable 'facemenu-unlisted-faces 'facemenu-listed-faces) | |
| 134 | 144 |
| 135 (defcustom facemenu-listed-faces nil | 145 (defcustom facemenu-listed-faces nil |
| 136 "*List of faces to include in the Face menu. | 146 "*List of faces to include in the Face menu. |
| 137 Each element should be a symbol, the name of a face. | 147 Each element should be a symbol, the name of a face. |
| 138 The \"basic \" faces in `facemenu-keybindings' are automatically | 148 The \"basic \" faces in `facemenu-keybindings' are automatically |