diff options
| author | Gerd Moellmann | 2000-05-30 20:40:09 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-05-30 20:40:09 +0000 |
| commit | cc6777a332b8d11148c5ff72ad8ad07c41b83f7d (patch) | |
| tree | 769319dfc385a7905f8cefdd1ef81a1c865abd76 | |
| parent | 086d5b876589f4942d45eec3d167c31f10fd6f95 (diff) | |
| download | emacs-cc6777a332b8d11148c5ff72ad8ad07c41b83f7d.tar.gz emacs-cc6777a332b8d11148c5ff72ad8ad07c41b83f7d.zip | |
(perl-indent-line): When looking for a
label, ensure that the first colon isn't followed by another.
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 0772d565a88..2ae0f6b8575 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el | |||
| @@ -488,7 +488,7 @@ changed by, or (parse-state) if line starts in a quoted string." | |||
| 488 | ((looking-at (or nochange perl-nochange)) 0) | 488 | ((looking-at (or nochange perl-nochange)) 0) |
| 489 | (t | 489 | (t |
| 490 | (skip-chars-forward " \t\f") | 490 | (skip-chars-forward " \t\f") |
| 491 | (cond ((looking-at "\\(\\w\\|\\s_\\)+:") | 491 | (cond ((looking-at "\\(\\w\\|\\s_\\)+:[^:]") |
| 492 | (setq indent (max 1 (+ indent perl-label-offset)))) | 492 | (setq indent (max 1 (+ indent perl-label-offset)))) |
| 493 | ((= (following-char) ?}) | 493 | ((= (following-char) ?}) |
| 494 | (setq indent (- indent perl-indent-level))) | 494 | (setq indent (- indent perl-indent-level))) |