From 6f750f0d8ef4536e6959e527bb1fb3c2eec6417d Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 1 Nov 2009 17:44:04 +0000 Subject: [PATCH] * progmodes/sh-script.el (sh-font-lock-paren): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/progmodes/sh-script.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index feab754d2a2..9c92b7b507a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-11-01 Chong Yidong + + * progmodes/sh-script.el (sh-font-lock-paren): Fix last change. + 2009-11-01 Andreas Schwab * view.el (view-mode-exit): If OLD-BUF is dead bury the buffer diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 0ab55d6a045..868f4621779 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -1110,7 +1110,7 @@ subshells can nest." (condition-case nil (progn (backward-sexp 1) t) (error nil))))) ;; Patterns can be preceded by an open-paren (Bug#1320). - (if (= (char-before (point)) ?\() + (if (eq (char-before (point)) ?\() (backward-char 1)) (while (progn (forward-comment (- (point-max))) -- 2.39.5