lisp-imenu-generic-expression

[martin rudalics]

`lisp-imenu-generic-expression' doesn't return names of length one or
names starting with a symbol constituent.  The patch below should take
care of them.


*** lisp-mode.el        Fri Dec  2 10:16:24 2005
--- lisp-mode.el        Fri Dec  2 14:10:04 2005
***************
*** 102,108 ****
                                "defsetf" "define-setf-expander"
                                "define-method-combination"
                                "defgeneric" "defmethod") t))
!                          "\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
         2)
     (list (purecopy "Variables")
         (purecopy (concat "^\\s-*("
--- 102,108 ----
                                "defsetf" "define-setf-expander"
                                "define-method-combination"
                                "defgeneric" "defmethod") t))
!                          "\\s-+\\(\\(\\sw\\|\\s_\\)+\\)"))
         2)
     (list (purecopy "Variables")
         (purecopy (concat "^\\s-*("
***************
*** 110,116 ****
                             (regexp-opt
                              '("defvar" "defconst" "defconstant" "defcustom"
                                "defparameter" "define-symbol-macro") t))
!                          "\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
         2)
     (list (purecopy "Types")
         (purecopy (concat "^\\s-*("
--- 110,116 ----
                             (regexp-opt
                              '("defvar" "defconst" "defconstant" "defcustom"
                                "defparameter" "define-symbol-macro") t))
!                          "\\s-+\\(\\(\\sw\\|\\s_\\)+\\)"))
         2)
     (list (purecopy "Types")
         (purecopy (concat "^\\s-*("
***************
*** 119,125 ****
                              '("defgroup" "deftheme" "deftype" "defstruct"
                                "defclass" "define-condition" "define-widget"
                                "defface" "defpackage") t))
!                          "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
         2))

    "Imenu generic expression for Lisp mode.  See `imenu-generic-expression'.")
--- 119,125 ----
                              '("defgroup" "deftheme" "deftype" "defstruct"
                                "defclass" "define-condition" "define-widget"
                                "defface" "defpackage") t))
!                          "\\s-+'?\\(\\(\\sw\\|\\s_\\)+\\)"))
         2))

    "Imenu generic expression for Lisp mode.  See `imenu-generic-expression'.")