Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
29304:71272a11eab7 | 29305:9f58922ddbcc |
---|---|
486 (cond ((= (char-after bof) ?=) 0) | 486 (cond ((= (char-after bof) ?=) 0) |
487 ((listp (setq indent (calculate-perl-indent bof))) indent) | 487 ((listp (setq indent (calculate-perl-indent bof))) indent) |
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))) |
495 ((= (following-char) ?{) | 495 ((= (following-char) ?{) |
496 (setq indent (+ indent perl-brace-offset)))) | 496 (setq indent (+ indent perl-brace-offset)))) |