Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 49522:4dd5da1ea3dc
* 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.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Wed, 29 Jan 2003 21:45:07 +0000 |
| parents | ebfdb0351da6 |
| children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
| 49521:c259d8177692 | 49522:4dd5da1ea3dc |
|---|---|
| 105 2) | 105 2) |
| 106 (list (purecopy "Types") | 106 (list (purecopy "Types") |
| 107 (purecopy (concat "^\\s-*(" | 107 (purecopy (concat "^\\s-*(" |
| 108 (eval-when-compile | 108 (eval-when-compile |
| 109 (regexp-opt | 109 (regexp-opt |
| 110 '("defgroup" "deftype" "defstruct" "defclass" | 110 '("defgroup" "deftheme" "deftype" "defstruct" |
| 111 "define-condition" "define-widget" "defface" | 111 "defclass" "define-condition" "define-widget" |
| 112 "defpackage") t)) | 112 "defface" "defpackage") t)) |
| 113 "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")) | 113 "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")) |
| 114 2)) | 114 2)) |
| 115 | 115 |
| 116 "Imenu generic expression for Lisp mode. See `imenu-generic-expression'.") | 116 "Imenu generic expression for Lisp mode. See `imenu-generic-expression'.") |
| 117 | 117 |
| 119 (put 'autoload 'doc-string-elt 3) | 119 (put 'autoload 'doc-string-elt 3) |
| 120 (put 'defun 'doc-string-elt 3) | 120 (put 'defun 'doc-string-elt 3) |
| 121 (put 'defun* 'doc-string-elt 3) | 121 (put 'defun* 'doc-string-elt 3) |
| 122 (put 'defvar 'doc-string-elt 3) | 122 (put 'defvar 'doc-string-elt 3) |
| 123 (put 'defcustom 'doc-string-elt 3) | 123 (put 'defcustom 'doc-string-elt 3) |
| 124 (put 'deftheme 'doc-string-elt 2) | |
| 124 (put 'defconst 'doc-string-elt 3) | 125 (put 'defconst 'doc-string-elt 3) |
| 125 (put 'defmacro 'doc-string-elt 3) | 126 (put 'defmacro 'doc-string-elt 3) |
| 126 (put 'defmacro* 'doc-string-elt 3) | 127 (put 'defmacro* 'doc-string-elt 3) |
| 127 (put 'defsubst 'doc-string-elt 3) | 128 (put 'defsubst 'doc-string-elt 3) |
| 128 (put 'define-skeleton 'doc-string-elt 2) | 129 (put 'define-skeleton 'doc-string-elt 2) |
| 130 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) | 131 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) |
| 131 (put 'define-minor-mode 'doc-string-elt 2) | 132 (put 'define-minor-mode 'doc-string-elt 2) |
| 132 (put 'define-generic-mode 'doc-string-elt 7) | 133 (put 'define-generic-mode 'doc-string-elt 7) |
| 133 ;; define-global-mode has no explicit docstring. | 134 ;; define-global-mode has no explicit docstring. |
| 134 (put 'easy-mmode-define-global-mode 'doc-string-elt 0) | 135 (put 'easy-mmode-define-global-mode 'doc-string-elt 0) |
| 135 (put 'define-ibuffer-filter 'doc-string-elt 3) | 136 (put 'define-ibuffer-filter 'doc-string-elt 2) |
| 136 (put 'define-ibuffer-op 'doc-string-elt 3) | 137 (put 'define-ibuffer-op 'doc-string-elt 3) |
| 137 (put 'define-ibuffer-sorter 'doc-string-elt 3) | 138 (put 'define-ibuffer-sorter 'doc-string-elt 2) |
| 138 | 139 |
| 139 (defun lisp-font-lock-syntactic-face-function (state) | 140 (defun lisp-font-lock-syntactic-face-function (state) |
| 140 (if (nth 3 state) | 141 (if (nth 3 state) |
| 141 (if (and (eq (nth 0 state) 1) | 142 (if (and (eq (nth 0 state) 1) |
| 142 ;; This might be a docstring. | 143 ;; This might be a docstring. |