Commit 30545916 authored by Bill Wohler's avatar Bill Wohler
Browse files

* 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.
parent 58bd8740
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)
......
......@@ -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 @@ introduced in Emacs 22."
`(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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment