# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1195676606 0
# Node ID dcb8172071f2f7d2b1aff45ff2ef8587bc631edb
# Parent  6fd01916efe18b14af11d04a44263fc221c52d03
(sh-mode): Set defun-prompt-regexp.

diff -r 6fd01916efe1 -r dcb8172071f2 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 21 15:27:22 2007 +0000
+++ b/lisp/ChangeLog	Wed Nov 21 20:23:26 2007 +0000
@@ -1,3 +1,7 @@
+2007-11-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/sh-script.el (sh-mode): Set defun-prompt-regexp.
+
 2007-11-21  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
 	* ps-print.el (ps-lpr-switches): Docstring fix.
@@ -33,8 +37,8 @@
 
 2007-11-21  Eli Zaretskii  <eliz@gnu.org>
 
-	* international/mule-cmds.el (set-locale-environment): Set
-	default-file-name-coding-system _after_ keyboard and terminal
+	* international/mule-cmds.el (set-locale-environment):
+	Set default-file-name-coding-system _after_ keyboard and terminal
 	coding systems.  This fixes last change.
 
 	* mail/rmail.el (rmail-current-subject-regexp): Allow more than
@@ -345,8 +349,7 @@
 2007-11-16  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc/calc-aent.el (calc-last-user-lang-parse-table): New variable.
-	(math-build-parse-table): Get parse information from
-	`math-parse-table'.
+	(math-build-parse-table): Get parse information from math-parse-table.
 
 2007-11-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff -r 6fd01916efe1 -r dcb8172071f2 lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Wed Nov 21 15:27:22 2007 +0000
+++ b/lisp/progmodes/sh-script.el	Wed Nov 21 20:23:26 2007 +0000
@@ -1524,6 +1524,8 @@
 	skeleton-filter-function 'sh-feature
 	skeleton-newline-indent-rigidly t
 	sh-indent-supported-here nil)
+  (set (make-local-variable 'defun-prompt-regexp)
+       (concat "^\\(function[ \t]\\|[[:alnum:]]+[ \t]+()[ \t]+\\)"))
   (set (make-local-variable 'parse-sexp-ignore-comments) t)
   ;; Parse or insert magic number for exec, and set all variables depending
   ;; on the shell thus determined.