Mercurial > emacs
changeset 105753:cdd9e1b1a30f
* progmodes/sh-script.el (sh-font-lock-paren): Handle case
patterns that are preceded by an open-paren (Bug#1320).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 24 Oct 2009 21:15:39 +0000 |
| parents | 26d5ef08acf0 |
| children | 2313ef258869 |
| files | lisp/ChangeLog lisp/progmodes/sh-script.el |
| diffstat | 2 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 24 20:30:44 2009 +0000 +++ b/lisp/ChangeLog Sat Oct 24 21:15:39 2009 +0000 @@ -1,3 +1,8 @@ +2009-10-24 Chong Yidong <cyd@stupidchicken.com> + + * progmodes/sh-script.el (sh-font-lock-paren): Handle case + patterns that are preceded by an open-paren (Bug#1320). + 2009-10-24 Sven Joachim <svenjoac@gmx.de> * files.el (delete-directory): Delete symlinks to directories with
--- a/lisp/progmodes/sh-script.el Sat Oct 24 20:30:44 2009 +0000 +++ b/lisp/progmodes/sh-script.el Sat Oct 24 21:15:39 2009 +0000 @@ -1109,6 +1109,9 @@ (when (memq (char-before) '(?\" ?\')) (condition-case nil (progn (backward-sexp 1) t) (error nil))))) + ;; Patterns can be preceded by an open-paren (Bug#1320). + (if (= (char-before (point)) ?\() + (backward-char 1)) (while (progn (forward-comment (- (point-max))) ;; Maybe we've bumped into an escaped newline.