# HG changeset patch
# User Bill Wohler <wohler@newt.com>
# Date 1145040558 0
# Node ID a0de53f6c617027fdd62d5df1f9522a33414cbf4
# Parent  c4d23fcbb9bd6ee3fbd73895f6e847714989b1c8
* mh-compat.el (mh-font-lock-add-keywords): New alias for
font-lock-add-keywords. Returns nil on XEmacs.

* mh-e.el: Add MH-E function and variable keywords such as
mh-defun-compat and mh-defcustom to font-lock-keywords.

diff -r c4d23fcbb9bd -r a0de53f6c617 lisp/mh-e/ChangeLog
--- a/lisp/mh-e/ChangeLog	Fri Apr 14 11:30:20 2006 +0000
+++ b/lisp/mh-e/ChangeLog	Fri Apr 14 18:49:18 2006 +0000
@@ -1,3 +1,11 @@
+2006-04-14  Bill Wohler  <wohler@newt.com>
+
+	* mh-compat.el (mh-font-lock-add-keywords): New alias for
+	font-lock-add-keywords. Returns nil on XEmacs.	
+
+	* mh-e.el: Add MH-E function and variable keywords such as
+	mh-defun-compat and mh-defcustom to font-lock-keywords.	
+
 2006-04-13  Bill Wohler  <wohler@newt.com>
 
 	* mh-e.el (customize-package-emacs-version-alist)
diff -r c4d23fcbb9bd -r a0de53f6c617 lisp/mh-e/mh-compat.el
--- a/lisp/mh-e/mh-compat.el	Fri Apr 14 11:30:20 2006 +0000
+++ b/lisp/mh-e/mh-compat.el	Fri Apr 14 18:49:18 2006 +0000
@@ -40,7 +40,7 @@
 ;; versions of Gnus.
 
 ;; Items are listed alphabetically (except for mh-require which is
-;; needed by a lesser character).
+;; needed sooner it would normally appear).
 
 (require 'mh-acros)
 
@@ -115,6 +115,11 @@
       `(face-background ,face ,frame)
     `(face-background ,face ,frame ,inherit)))
 
+(mh-defun-compat mh-font-lock-add-keywords font-lock-add-keywords
+  (mode keywords &optional how)
+  "XEmacs does not have `image-search-load-path'.
+This function returns nil on that system.")
+
 (mh-defun-compat mh-image-load-path-for-library
   image-load-path-for-library (library image &optional path no-error)
   "Return a suitable search path for images used by LIBRARY.
diff -r c4d23fcbb9bd -r a0de53f6c617 lisp/mh-e/mh-e.el
--- a/lisp/mh-e/mh-e.el	Fri Apr 14 11:30:20 2006 +0000
+++ b/lisp/mh-e/mh-e.el	Fri Apr 14 18:49:18 2006 +0000
@@ -109,6 +109,26 @@
 (require 'mh-buffers)
 (require 'mh-compat)
 
+(mh-font-lock-add-keywords
+ 'emacs-lisp-mode
+ (eval-when-compile
+   `((,(concat "(\\("
+               ;; Function declarations (use font-lock-function-name-face).
+               "\\(mh-def\\(un\\|macro\\)-compat\\)\\|"
+               ;; Variable declarations (use font-lock-variable-name-face).
+               "\\(mh-def\\(custom\\|face\\)\\)\\|"
+               ;; Group declarations (use font-lock-type-face).
+               "\\(mh-defgroup\\)"
+               "\\)\\>"
+               ;; Any whitespace and defined object.
+               "[ \t'\(]*"
+               "\\(setf[ \t]+\\sw+)\\|\\sw+\\)?")
+      (1 font-lock-keyword-face)
+      (7 (cond ((match-beginning 2) font-lock-function-name-face)
+               ((match-beginning 4) font-lock-variable-name-face)
+               (t font-lock-type-face))
+         nil t)))))
+
 
 
 ;;; Global Variables