[Emacs-diffs] scratch/backports-25.2 5266c11 13/46: Allow more shell script defun forms

[Noam Postavsky]

branch: scratch/backports-25.2
commit 5266c1180e3263aebcc2c1020457fe03ce74e61a
Author: Carlos Pita <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Allow more shell script defun forms
    
    * lisp/progmodes/sh-script.el (sh-mode): Allow more shell
    script defun forms, like function name () {...} (bug#19754).
    
    (cherry picked from commit c817549b520ce3b10a949f00fcabf8a3a62697ae)
---
 lisp/progmodes/sh-script.el |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index f089c81..789bc86 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1662,7 +1662,12 @@ with your script for an edit-interpret-debug cycle."
   (setq-local skeleton-filter-function 'sh-feature)
   (setq-local skeleton-newline-indent-rigidly t)
   (setq-local defun-prompt-regexp
-             (concat "^\\(function[ \t]\\|[[:alnum:]]+[ \t]+()[ \t]+\\)"))
+              (concat
+               "^\\("
+               "\\(function[ \t]\\)?[ \t]*[[:alnum:]]+[ \t]*([ \t]*)"
+               "\\|"
+               "function[ \t]+[[:alnum:]]+[ \t]*\\(([ \t]*)\\)?"
+               "\\)[ \t]*"))
   (setq-local add-log-current-defun-function #'sh-current-defun-name)
   (add-hook 'completion-at-point-functions
             #'sh-completion-at-point-function nil t)