Mercurial > emacs
comparison lisp/progmodes/perl-mode.el @ 40539:901d871219d0
(perl-indent-line): Use `eq' to compare output of `char-after'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 31 Oct 2001 02:42:54 +0000 |
| parents | 9d258703ad61 |
| children | 42d60301f16a |
comparison
equal
deleted
inserted
replaced
| 40538:4b57ae8d5508 | 40539:901d871219d0 |
|---|---|
| 479 (bof (or parse-start (save-excursion (perl-beginning-of-function)))) | 479 (bof (or parse-start (save-excursion (perl-beginning-of-function)))) |
| 480 beg indent shift-amt) | 480 beg indent shift-amt) |
| 481 (beginning-of-line) | 481 (beginning-of-line) |
| 482 (setq beg (point)) | 482 (setq beg (point)) |
| 483 (setq shift-amt | 483 (setq shift-amt |
| 484 (cond ((= (char-after bof) ?=) 0) | 484 (cond ((eq (char-after bof) ?=) 0) |
| 485 ((listp (setq indent (perl-calculate-indent bof))) indent) | 485 ((listp (setq indent (perl-calculate-indent bof))) indent) |
| 486 ((looking-at (or nochange perl-nochange)) 0) | 486 ((looking-at (or nochange perl-nochange)) 0) |
| 487 (t | 487 (t |
| 488 (skip-chars-forward " \t\f") | 488 (skip-chars-forward " \t\f") |
| 489 (cond ((looking-at "\\(\\w\\|\\s_\\)+:[^:]") | 489 (cond ((looking-at "\\(\\w\\|\\s_\\)+:[^:]") |