From: Masatake YAMATO <yamato@redhat.com>
Date: Fri, 19 Apr 2013 18:50:28 +0000 (+0900)
Subject: * lisp/progmodes/sh-script.el (sh-imenu-generic-expression): Handle
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~421
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d3268ba39ffbc885b0238bacdbe61bdf29f526f;p=emacs.git

* lisp/progmodes/sh-script.el (sh-imenu-generic-expression): Handle
function names with a single character.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c46b9a5ceab..4897aa0f30c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-19 Masatake YAMATO  <yamato@redhat.com>
+
+	* progmodes/sh-script.el (sh-imenu-generic-expression): Handle
+	function names with a single character.
+
 2013-04-19  Dima Kogan  <dima@secretsauce.net>    (tiny change)
 
 	* progmodes/gud.el (gud-perldb-marker-filter): Understand position info
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index e197f9cfabe..07e9bb85c4e 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -335,11 +335,11 @@ shell it really is."
      . ((nil
 	 ;; function FOO
 	 ;; function FOO()
-         "^\\s-*function\\s-+\\\([[:alpha:]_][[:alnum:]_]+\\)\\s-*\\(?:()\\)?"
+         "^\\s-*function\\s-+\\\([[:alpha:]_][[:alnum:]_]*\\)\\s-*\\(?:()\\)?"
          1)
 	;; FOO()
 	(nil
-	 "^\\s-*\\([[:alpha:]_][[:alnum:]_]+\\)\\s-*()"
+	 "^\\s-*\\([[:alpha:]_][[:alnum:]_]*\\)\\s-*()"
 	 1)
 	)))
   "Alist of regular expressions for recognizing shell function definitions.