diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-31 02:42:54 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-31 02:42:54 +0000 |
| commit | 8ab2646a67d00449f1af5a37a26660a36cc484cd (patch) | |
| tree | 259d4b79c35b54af31061fa990fdc7dc797e81a9 /lisp | |
| parent | ed88dbcbdf2b693a3278d1bb40541766c3cfc5e7 (diff) | |
| download | emacs-8ab2646a67d00449f1af5a37a26660a36cc484cd.tar.gz | |
(perl-indent-line): Use `eq' to compare output of `char-after'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index c6a90cc0dd0..6e5fc1fd6ea 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -481,7 +481,7 @@ changed by, or (parse-state) if line starts in a quoted string." (beginning-of-line) (setq beg (point)) (setq shift-amt - (cond ((= (char-after bof) ?=) 0) + (cond ((eq (char-after bof) ?=) 0) ((listp (setq indent (perl-calculate-indent bof))) indent) ((looking-at (or nochange perl-nochange)) 0) (t |