Mercurial > emacs
comparison lisp/progmodes/sh-script.el @ 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 | 0769a73f1d18 |
children | df4934f25eef |
comparison
equal
deleted
inserted
replaced
105752:26d5ef08acf0 | 105753:cdd9e1b1a30f |
---|---|
1107 (and (sh-is-quoted-p (1- (point))) | 1107 (and (sh-is-quoted-p (1- (point))) |
1108 (goto-char (- (point) 2))) | 1108 (goto-char (- (point) 2))) |
1109 (when (memq (char-before) '(?\" ?\')) | 1109 (when (memq (char-before) '(?\" ?\')) |
1110 (condition-case nil (progn (backward-sexp 1) t) | 1110 (condition-case nil (progn (backward-sexp 1) t) |
1111 (error nil))))) | 1111 (error nil))))) |
1112 ;; Patterns can be preceded by an open-paren (Bug#1320). | |
1113 (if (= (char-before (point)) ?\() | |
1114 (backward-char 1)) | |
1112 (while (progn | 1115 (while (progn |
1113 (forward-comment (- (point-max))) | 1116 (forward-comment (- (point-max))) |
1114 ;; Maybe we've bumped into an escaped newline. | 1117 ;; Maybe we've bumped into an escaped newline. |
1115 (sh-is-quoted-p (point))) | 1118 (sh-is-quoted-p (point))) |
1116 (backward-char 1)) | 1119 (backward-char 1)) |