Mercurial > emacs
changeset 56377:2dc937a6a0e1
*** empty log message ***
| author | Mark A. Hershberger <mah@everybody.org> |
|---|---|
| date | Fri, 09 Jul 2004 15:03:07 +0000 |
| parents | b715a4a98eeb |
| children | cc9dcd357544 |
| files | lisp/ChangeLog lisp/progmodes/cperl-mode.el |
| diffstat | 2 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)