# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1257097444 0
# Node ID dd97d1526b9fb4ac5eb3bbcdb791fd66bd5efbef
# Parent  59656f4a5cdac889b185c83a52ada65008de1734
* progmodes/sh-script.el (sh-font-lock-paren): Fix last change.

diff -r 59656f4a5cda -r dd97d1526b9f lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Nov 01 09:47:58 2009 +0000
+++ b/lisp/ChangeLog	Sun Nov 01 17:44:04 2009 +0000
@@ -1,3 +1,7 @@
+2009-11-01  Chong Yidong  <cyd@stupidchicken.com>
+
+	* progmodes/sh-script.el (sh-font-lock-paren): Fix last change.
+
 2009-11-01  Andreas Schwab  <schwab@linux-m68k.org>
 
 	* view.el (view-mode-exit): If OLD-BUF is dead bury the buffer
diff -r 59656f4a5cda -r dd97d1526b9f lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Sun Nov 01 09:47:58 2009 +0000
+++ b/lisp/progmodes/sh-script.el	Sun Nov 01 17:44:04 2009 +0000
@@ -1110,7 +1110,7 @@
 		    (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)))