Mercurial > emacs

changeset 40539:901d871219d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 4b57ae8d5508
children e5cf2302abcd
files lisp/progmodes/perl-mode.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/perl-mode.el	Wed Oct 31 02:32:18 2001 +0000
+++ b/lisp/progmodes/perl-mode.el	Wed Oct 31 02:42:54 2001 +0000
@@ -481,7 +481,7 @@
     (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