Mercurial > emacs
changeset 63350:21e46a1fa14b
Remove stray paren in defun-prompt-regexp for cperl-mode
| author | Mark A. Hershberger <mah@everybody.org> |
|---|---|
| date | Sun, 12 Jun 2005 23:04:41 +0000 |
| parents | 338784884bf9 |
| children | 071d62682d14 |
| files | lisp/ChangeLog lisp/progmodes/cperl-mode.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jun 12 19:23:28 2005 +0000 +++ b/lisp/ChangeLog Sun Jun 12 23:04:41 2005 +0000 @@ -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
--- a/lisp/progmodes/cperl-mode.el Sun Jun 12 19:23:28 2005 +0000 +++ b/lisp/progmodes/cperl-mode.el Sun Jun 12 23:04:41 2005 +0000 @@ -1481,7 +1481,7 @@ (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)