Mercurial > emacs
changeset 19129:35d85b50c3cb
(cpp-create-bg-face): Don't really make a face.
Just make (background-color . COLOR).
(cpp-highlight-buffer): Don't die if buffer-invisibility-spec is t.
(cpp-face-default-list): Doc fix, fix custom type.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 04 Aug 1997 06:10:46 +0000 |
| parents | e789b647f15b |
| children | 0c228cae75b5 |
| files | lisp/progmodes/cpp.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cpp.el Mon Aug 04 06:07:05 1997 +0000 +++ b/lisp/progmodes/cpp.el Mon Aug 04 06:10:46 1997 +0000 @@ -131,8 +131,12 @@ ("both" . both))) (defcustom cpp-face-default-list nil - "List of faces you can choose from for cpp conditionals." - :type '(repeat face) + "Alist of faces you can choose from for cpp conditionals. +Each element has the form (STRING . FACE), where STRING +serves as a name (for `cpp-highlight-buffer' only) +and FACE is either a face (a symbol) +or a cons cell (background-color . COLOR)." + :type '(repeat (cons string (choice face (cons (const background-color) string)))) :group 'cpp) (defcustom cpp-face-light-name-list @@ -204,7 +208,8 @@ what kind of highlighting to use, and the criteria for highlighting. A prefix arg suppresses display of that buffer." (interactive "P") - (unless (memq 'cpp buffer-invisibility-spec) + (unless (or (eq t buffer-invisibility-spec) + (memq 'cpp buffer-invisibility-spec)) (add-to-invisibility-spec 'cpp)) (setq cpp-parse-symbols nil) (cpp-parse-reset) @@ -788,10 +793,7 @@ (defun cpp-create-bg-face (color) ;; Create entry for face with background COLOR. - (let ((name (intern (concat "cpp " color)))) - (make-face name) - (set-face-background name color) - (cons color name))) + (cons color (cons 'background-color color))) (cpp-choose-default-face (if window-system cpp-face-type 'none))