# HG changeset patch
# User Mark A. Hershberger <mah@everybody.org>
# Date 1089385387 0
# Node ID 2dc937a6a0e182cfd1d8cb6e410caf598bb14812
# Parent  b715a4a98eeb1dfb8d5f374d5a5d915162a4d155
*** empty log message ***

diff -r b715a4a98eeb -r 2dc937a6a0e1 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jul 09 14:22:33 2004 +0000
+++ b/lisp/ChangeLog	Fri Jul 09 15:03:07 2004 +0000
@@ -1,5 +1,8 @@
 2004-07-09  Mark A. Hershberger  <mah@everybody.org>
 
+	* progmodes/cperl-mode.el (cperl-mode): Adapt defun-prompt-regexp
+	so that it is more understanding of whitespace.
+
 	* xml.el (xml-maybe-do-ns, xml-parse-tag): Produce elements in the
 	form
 	(("ns" . "element") (attr-list) children) instead of
diff -r b715a4a98eeb -r 2dc937a6a0e1 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Fri Jul 09 14:22:33 2004 +0000
+++ b/lisp/progmodes/cperl-mode.el	Fri Jul 09 15:03:07 2004 +0000
@@ -1472,7 +1472,7 @@
   (make-local-variable 'comment-start-skip)
   (setq comment-start-skip "#+ *")
   (make-local-variable 'defun-prompt-regexp)
-  (setq defun-prompt-regexp "^[ \t]*sub[ \t]+\\([^ \t\n{(;]+\\)\\([ \t]*([^()]*)[ \t]*\\)?[ \t]*")
+  (setq defun-prompt-regexp "^[ \t]*sub[ \t\n]+\\([^ \t\n{(;]+\\)\\([ \t\n]*([^()]*)[ \t\n]*\\)?[ \t\n]*)")
   (make-local-variable 'comment-indent-function)
   (setq comment-indent-function 'cperl-comment-indent)
   (make-local-variable 'parse-sexp-ignore-comments)