Anonymous avatar Anonymous committed 105f3ce

2002-03-02 Adrian Aichner <adrian@xemacs.org>;

* ibuffer.el (ibuffer-header-line-face): Convert
`ibuffer-header-line-face' from `defface' to `defcustom' and
initialize it to `header-line.
* ibuffer.el (header-line): Define unless bound.
* ibuffer.el (ibuffer-fontify-region-function): Don't quote face
argument.

Comments (0)

Files changed (2)

+2002-03-02  Adrian Aichner  <adrian@xemacs.org>
+
+	* ibuffer.el (ibuffer-header-line-face): Convert
+	`ibuffer-header-line-face' from `defface' to `defcustom' and
+	initialize it to `header-line.
+	* ibuffer.el (header-line): Define unless bound.
+	* ibuffer.el (ibuffer-fontify-region-function): Don't quote face
+	argument.
+
 2002-03-03  John Paul Wallington  <jpw@xemacs.org>
 
 	* ibuffer.el (ibuffer-shrink-to-fit): test whether window is only
   :type 'face
   :group 'ibuffer-faces)
 
-(defface ibuffer-header-line-face
-  '((((class color) (background light))
-     (:foreground "Gray20" :background "Gray90"))
-    (((class color) (background dark))
-     (:foreground "Gray90" :background "Gray20"))
-    (((class grayscale) (background light)) (:background "LightGray" :bold t))
-    (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
-    (t (:bold t)))
+(defcustom ibuffer-header-line-face 'header-line
   "Face used for displaying header-line."
+  :type 'face
   :group 'ibuffer-faces)
-(defvar ibuffer-header-line-face 'ibuffer-header-line-face)
+
+(unless (boundp 'header-line)
+  (defface header-line
+    '((((class color) (background light))
+       (:foreground "Gray20" :background "Gray90"))
+      (((class color) (background dark))
+       (:foreground "Gray90" :background "Gray20"))
+      (((class grayscale) (background light)) (:background "LightGray" :bold t))
+      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
+      (t (:bold t)))
+    "Face used for displaying header-line."
+    :group 'ibuffer-faces)
+  (defvar header-line 'header-line))
 
 (defcustom ibuffer-use-fontification (if (boundp 'font-lock-auto-fontify)
 					 font-lock-auto-fontify
   (save-excursion
     (goto-char (point-min))
     (if (get-text-property (point) 'ibuffer-header-line)
-	(put-text-property (point) (next-single-property-change (point) 'ibuffer-header-line) 'face 'ibuffer-header-line-face)))
+	(put-text-property (point) (next-single-property-change (point) 'ibuffer-header-line) 'face ibuffer-header-line-face)))
 
   (when verbose (message "Fontifying...done")))
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.