# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1133603260 0
# Node ID 249c0ac46fcaf53d33145bcde82243dcc80dd2b9
# Parent  ee1508db6de2e2fb45d043a52d7288eb4df776e1
(lisp-imenu-generic-expression): Fix bug whereby names of length one
or names starting with a symbol-constituent character would not be returned.

diff -r ee1508db6de2 -r 249c0ac46fca lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Sat Dec 03 02:31:40 2005 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Sat Dec 03 09:47:40 2005 +0000
@@ -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'.")