[Emacs-diffs] /srv/bzr/emacs/trunk r112334: * lisp/progmodes/sh-script.el (sh-imenu-generic-expression): Handle

[Masatake YAMATO]

------------------------------------------------------------
revno: 112334
committer: Masatake YAMATO <address@hidden>
branch nick: trunk
timestamp: Sat 2013-04-20 03:50:28 +0900
message:
  * lisp/progmodes/sh-script.el (sh-imenu-generic-expression): Handle
  function names with a single character.
modified:
  lisp/ChangeLog
  lisp/progmodes/sh-script.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-19 15:58:07 +0000
+++ b/lisp/ChangeLog    2013-04-19 18:50:28 +0000
@@ -1,3 +1,8 @@
+2013-04-19 Masatake YAMATO  <address@hidden>
+
+       * progmodes/sh-script.el (sh-imenu-generic-expression): Handle
+       function names with a single character.
+
 2013-04-19  Dima Kogan  <address@hidden>    (tiny change)
 
        * progmodes/gud.el (gud-perldb-marker-filter): Understand position info

=== modified file 'lisp/progmodes/sh-script.el'
--- a/lisp/progmodes/sh-script.el       2013-04-09 17:31:17 +0000
+++ b/lisp/progmodes/sh-script.el       2013-04-19 18:50:28 +0000
@@ -335,11 +335,11 @@
      . ((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.