diff options
| author | Tom Willemse | 2015-10-12 00:45:49 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2019-09-30 00:09:58 +0200 |
| commit | a4688030b4be6e7ef71b6c58c3051fa4bd399d33 (patch) | |
| tree | 70883f7f105b18105e9d1b7f47f0bc8010635c33 | |
| parent | c34801f8838c4b91378c3e0d961aca826a923e95 (diff) | |
| download | emacs-a4688030b4be6e7ef71b6c58c3051fa4bd399d33.tar.gz emacs-a4688030b4be6e7ef71b6c58c3051fa4bd399d33.zip | |
Fix indenting in perl functions with doc-comments
* lisp/progmodes/perl-mode.el (perl-calculate-indent): Skip
doc-comments as well as comments and skip the entire comment, not just
the line. (Bug#21647)
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 55ea3417ffd..ab3680bfb76 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el | |||
| @@ -1007,8 +1007,8 @@ Returns (parse-state) if line starts inside a string." | |||
| 1007 | ;; Skip over comments and labels following openbrace. | 1007 | ;; Skip over comments and labels following openbrace. |
| 1008 | (while (progn | 1008 | (while (progn |
| 1009 | (skip-chars-forward " \t\f\n") | 1009 | (skip-chars-forward " \t\f\n") |
| 1010 | (cond ((looking-at ";?#") | 1010 | (cond ((looking-at ";?#\\|^=\\w+") |
| 1011 | (forward-line 1) t) | 1011 | (forward-comment 1) t) |
| 1012 | ((looking-at "\\(\\w\\|\\s_\\)+:[^:]") | 1012 | ((looking-at "\\(\\w\\|\\s_\\)+:[^:]") |
| 1013 | (setq colon-line-end (line-end-position)) | 1013 | (setq colon-line-end (line-end-position)) |
| 1014 | (search-forward ":"))))) | 1014 | (search-forward ":"))))) |