Mercurial > emacs
diff lisp/progmodes/perl-mode.el @ 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 | a22711be4750 |
| children | d3eedbb7bb46 |
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)))