diff options
| author | Mark A. Hershberger <mah@everybody.org> | 2004-07-09 15:03:07 +0000 |
|---|---|---|
| committer | Mark A. Hershberger <mah@everybody.org> | 2004-07-09 15:03:07 +0000 |
| commit | ae04ab88fd2d133eb390e90ea127f985713f714a (patch) | |
| tree | 75dab9d434f4c6ad5ae9ed279f456331cf413f84 | |
| parent | 6d12a4dfbcb5680fafac89769e1a2f111fdcc587 (diff) | |
| download | emacs-ae04ab88fd2d133eb390e90ea127f985713f714a.tar.gz emacs-ae04ab88fd2d133eb390e90ea127f985713f714a.tar.bz2 emacs-ae04ab88fd2d133eb390e90ea127f985713f714a.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8c8dc99040f..0f143ca1c0e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index c651e06b899..e679a48d642 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1472,7 +1472,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]+\\([^ \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) |