diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-01-29 21:45:56 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-01-29 21:45:56 +0000 |
| commit | e2cd29bdb4ab9ebcc99e136108f3f156577c9541 (patch) | |
| tree | 45a756056c3496b17e870b591e0709b1ced7f605 /lisp/emacs-lisp | |
| parent | ee1f522d4efd1efd6b74c06830c61a5837754621 (diff) | |
| download | emacs-e2cd29bdb4ab9ebcc99e136108f3f156577c9541.tar.gz emacs-e2cd29bdb4ab9ebcc99e136108f3f156577c9541.tar.bz2 emacs-e2cd29bdb4ab9ebcc99e136108f3f156577c9541.zip | |
* font-lock.el (lisp-font-lock-keywords-1): Match `deftheme'.
* emacs-lisp/lisp-mode.el (toplevel): Define docstring offset for
`deftheme'. Fix docstring offsets for `define-ibuffer-filter' and
`define-ibuffer-sorter'.
(lisp-imenu-generic-expression): Add `deftheme' to types.
* custom.el (customize-mark-to-save, customize-mark-as-set)
(custom-remove-theme): Doc fixes.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 46f59dd5721..60110149388 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -107,9 +107,9 @@ (purecopy (concat "^\\s-*(" (eval-when-compile (regexp-opt - '("defgroup" "deftype" "defstruct" "defclass" - "define-condition" "define-widget" "defface" - "defpackage") t)) + '("defgroup" "deftheme" "deftype" "defstruct" + "defclass" "define-condition" "define-widget" + "defface" "defpackage") t)) "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")) 2)) @@ -121,6 +121,7 @@ (put 'defun* 'doc-string-elt 3) (put 'defvar 'doc-string-elt 3) (put 'defcustom 'doc-string-elt 3) +(put 'deftheme 'doc-string-elt 2) (put 'defconst 'doc-string-elt 3) (put 'defmacro 'doc-string-elt 3) (put 'defmacro* 'doc-string-elt 3) @@ -132,9 +133,9 @@ (put 'define-generic-mode 'doc-string-elt 7) ;; define-global-mode has no explicit docstring. (put 'easy-mmode-define-global-mode 'doc-string-elt 0) -(put 'define-ibuffer-filter 'doc-string-elt 3) +(put 'define-ibuffer-filter 'doc-string-elt 2) (put 'define-ibuffer-op 'doc-string-elt 3) -(put 'define-ibuffer-sorter 'doc-string-elt 3) +(put 'define-ibuffer-sorter 'doc-string-elt 2) (defun lisp-font-lock-syntactic-face-function (state) (if (nth 3 state) |