(lisp-imenu-generic-expression): Fix bug whereby names of length one
or names starting with a symbol-constituent character would not be returned.
This commit is contained in:
parent
6273dc6821
commit
d20a1ebb17
2 changed files with 9 additions and 3 deletions
|
@ -102,7 +102,7 @@
|
|||
"defsetf" "define-setf-expander"
|
||||
"define-method-combination"
|
||||
"defgeneric" "defmethod") t))
|
||||
"\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
|
||||
"\\s-+\\(\\(\\sw\\|\\s_\\)+\\)"))
|
||||
2)
|
||||
(list (purecopy "Variables")
|
||||
(purecopy (concat "^\\s-*("
|
||||
|
@ -110,7 +110,7 @@
|
|||
(regexp-opt
|
||||
'("defvar" "defconst" "defconstant" "defcustom"
|
||||
"defparameter" "define-symbol-macro") t))
|
||||
"\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
|
||||
"\\s-+\\(\\(\\sw\\|\\s_\\)+\\)"))
|
||||
2)
|
||||
(list (purecopy "Types")
|
||||
(purecopy (concat "^\\s-*("
|
||||
|
@ -119,7 +119,7 @@
|
|||
'("defgroup" "deftheme" "deftype" "defstruct"
|
||||
"defclass" "define-condition" "define-widget"
|
||||
"defface" "defpackage") t))
|
||||
"\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
|
||||
"\\s-+'?\\(\\(\\sw\\|\\s_\\)+\\)"))
|
||||
2))
|
||||
|
||||
"Imenu generic expression for Lisp mode. See `imenu-generic-expression'.")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue