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)))) |