From 8de214e60dd57fd6270dfc1d7c0c3ccd21e711cf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 8 Mar 1995 02:22:45 +0000 Subject: [PATCH] (calculate-perl-indent): When backing up over continuations, don't go to line beg; perl-backward-to-start-of-continued-exp gives the right place. --- lisp/progmodes/perl-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index c0e0cbba09b..fd12d9c7b77 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -464,8 +464,8 @@ Returns (parse-state) if line starts inside a string." (memq (char-syntax (char-after (- (point) 2))) '(?w ?_)))) (if (eq (preceding-char) ?\,) - (perl-backward-to-start-of-continued-exp containing-sexp)) - (beginning-of-line) + (perl-backward-to-start-of-continued-exp containing-sexp) + (beginning-of-line)) (perl-backward-to-noncomment)) ;; Now we get the answer. (if (not (memq (preceding-char) '(?\; ?\} ?\{))) -- 2.39.5