[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/cpp.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/cpp.el |
Date: |
Wed, 14 Dec 2005 07:47:01 +0000 |
Index: emacs/lisp/progmodes/cpp.el
diff -u emacs/lisp/progmodes/cpp.el:1.32 emacs/lisp/progmodes/cpp.el:1.33
--- emacs/lisp/progmodes/cpp.el:1.32 Thu Nov 17 07:36:46 2005
+++ emacs/lisp/progmodes/cpp.el Wed Dec 14 07:47:01 2005
@@ -59,14 +59,18 @@
:type 'file
:group 'cpp)
+(define-widget 'cpp-face 'lazy
+ "Either a face or the special symbol 'invisible'."
+ :type '(choice (const invisible) (face)))
+
(defcustom cpp-known-face 'invisible
"*Face used for known cpp symbols."
- :type 'face
+ :type 'cpp-face
:group 'cpp)
(defcustom cpp-unknown-face 'highlight
"*Face used for unknown cpp symbols."
- :type 'face
+ :type 'cpp-face
:group 'cpp)
(defcustom cpp-face-type 'light
@@ -95,10 +99,12 @@
1. Face used for text that is `ifdef' the macro.
2. Face used for text that is `ifndef' the macro.
3. t, nil, or `both' depending on what text may be edited."
- :type '(repeat (list string face face
- (choice (const t)
- (const nil)
- (const both))))
+ :type '(repeat (list (string :tag "Macro")
+ (cpp-face :tag "True")
+ (cpp-face :tag "False")
+ (choice (const :tag "True branch writable" t)
+ (const :tag "False branch writeable" nil)
+ (const :tag "Both branches writeable" both))))
:group 'cpp)
(defvar cpp-overlay-list nil)
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cpp.el,
Juri Linkov <=