Remove stray paren in defun-prompt-regexp for cperl-mode

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 089682cb588e37b694069399629587fde933ab1e..4f2cf271fe2d18a4bf0fe2fcc9f19d4b28231936 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-12  Mark A. Hershberger  <mah@everybody.org>
+
+       * progmodes/cperl-mode.el (cperl-mode): Remove stray paren in
+       defun-prompt-regexp.
+
 2005-06-12  Eli Zaretskii  <eliz@gnu.org>
 
        * loadup.el: Don't say we are dumping under 2 names on windows-nt

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 85c86bfb6f3c4431f31b439e95afec5914e39b6f..355b9694189edbb5cce1a9caf9c4228dc8e4c7db 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1481,7 +1481,7 @@ or as help on variables `cperl-tips', `cperl-problems',
   (make-local-variable 'comment-start-skip)
   (setq comment-start-skip "#+ *")
   (make-local-variable 'defun-prompt-regexp)
-  (setq defun-prompt-regexp "^[ \t]*sub[ \t\n]+\\([^ \t\n{(;]+\\)\\([ \t\n]*([^()]*)[ \t\n]*\\)?[ \t\n]*)")
+  (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)