andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* progmodes/sh-script.el (sh-font-lock-paren): Handle case

Browse source 
patterns that are preceded by an open-paren (Bug#1320).
This commit is contained in:
Chong Yidong 2009-10-24 21:15:39 +00:00
parent ab27682008
commit 3e8ae8a634
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

3
lisp/progmodes/sh-script.el
View file

@ -1109,6 +1109,9 @@ subshells can nest."
(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.