comparison lisp/emacs-lisp/lisp-mode.el @ 67295:df35219b6508

Put `doc-string-elt' property on easy-mmode-define-global-mode and define-global-minor-mode. (lisp-imenu-generic-expression): Add define-global-minor-mode.
author Juri Linkov <juri@jurta.org>
date Sun, 04 Dec 2005 02:36:13 +0000
parents 249c0ac46fca
children 067115a6e738 7beb78bc1f8e
comparison
equal deleted inserted replaced
67294:36d05049ff37 67295:df35219b6508
94 (purecopy (concat "^\\s-*(" 94 (purecopy (concat "^\\s-*("
95 (eval-when-compile 95 (eval-when-compile
96 (regexp-opt 96 (regexp-opt
97 '("defun" "defun*" "defsubst" "defmacro" 97 '("defun" "defun*" "defsubst" "defmacro"
98 "defadvice" "define-skeleton" 98 "defadvice" "define-skeleton"
99 "define-minor-mode" "define-derived-mode" 99 "define-minor-mode" "define-global-minor-mode"
100 "define-generic-mode" 100 "define-derived-mode" "define-generic-mode"
101 "define-compiler-macro" "define-modify-macro" 101 "define-compiler-macro" "define-modify-macro"
102 "defsetf" "define-setf-expander" 102 "defsetf" "define-setf-expander"
103 "define-method-combination" 103 "define-method-combination"
104 "defgeneric" "defmethod") t)) 104 "defgeneric" "defmethod") t))
105 "\\s-+\\(\\(\\sw\\|\\s_\\)+\\)")) 105 "\\s-+\\(\\(\\sw\\|\\s_\\)+\\)"))
139 (put 'define-skeleton 'doc-string-elt 2) 139 (put 'define-skeleton 'doc-string-elt 2)
140 (put 'define-derived-mode 'doc-string-elt 4) 140 (put 'define-derived-mode 'doc-string-elt 4)
141 (put 'define-compilation-mode 'doc-string-elt 3) 141 (put 'define-compilation-mode 'doc-string-elt 3)
142 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) 142 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2)
143 (put 'define-minor-mode 'doc-string-elt 2) 143 (put 'define-minor-mode 'doc-string-elt 2)
144 (put 'easy-mmode-define-global-mode 'doc-string-elt 2)
145 (put 'define-global-minor-mode 'doc-string-elt 2)
144 (put 'define-generic-mode 'doc-string-elt 7) 146 (put 'define-generic-mode 'doc-string-elt 7)
145 (put 'define-ibuffer-filter 'doc-string-elt 2) 147 (put 'define-ibuffer-filter 'doc-string-elt 2)
146 (put 'define-ibuffer-op 'doc-string-elt 3) 148 (put 'define-ibuffer-op 'doc-string-elt 3)
147 (put 'define-ibuffer-sorter 'doc-string-elt 2) 149 (put 'define-ibuffer-sorter 'doc-string-elt 2)
148 (put 'lambda 'doc-string-elt 2) 150 (put 'lambda 'doc-string-elt 2)