Mercurial > emacs
changeset 29305:9f58922ddbcc
(perl-indent-line): When looking for a
label, ensure that the first colon isn't followed by another.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 30 May 2000 20:40:09 +0000 |
| parents | 71272a11eab7 |
| children | 6fd90e67194f |
| files | lisp/progmodes/perl-mode.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/perl-mode.el Tue May 30 20:02:22 2000 +0000 +++ b/lisp/progmodes/perl-mode.el Tue May 30 20:40:09 2000 +0000 @@ -488,7 +488,7 @@ ((looking-at (or nochange perl-nochange)) 0) (t (skip-chars-forward " \t\f") - (cond ((looking-at "\\(\\w\\|\\s_\\)+:") + (cond ((looking-at "\\(\\w\\|\\s_\\)+:[^:]") (setq indent (max 1 (+ indent perl-label-offset)))) ((= (following-char) ?}) (setq indent (- indent perl-indent-level)))