aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2004-03-04 23:27:00 +0000
committerStefan Monnier2004-03-04 23:27:00 +0000
commit282266074971a3b4746fefdd8dbbeb1ff66417e9 (patch)
tree748dcc6160fa9a9a9004c16341917c0121854e01
parent982c8d45de5259ed9005cc85a6dcc61caf7eaf26 (diff)
downloademacs-282266074971a3b4746fefdd8dbbeb1ff66417e9.tar.gz
emacs-282266074971a3b4746fefdd8dbbeb1ff66417e9.zip
(sh-font-lock-paren): Add @ in case patterns.
-rw-r--r--lisp/progmodes/sh-script.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index f765b37c76a..5635a1b17f7 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1,6 +1,6 @@
1;;; sh-script.el --- shell-script editing commands for Emacs 1;;; sh-script.el --- shell-script editing commands for Emacs
2 2
3;; Copyright (C) 1993, 94, 95, 96, 97, 1999, 2001, 2003 3;; Copyright (C) 1993, 94, 95, 96, 97, 1999, 2001, 03, 2004
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5 5
6;; Author: Daniel Pfeiffer <occitan@esperanto.org> 6;; Author: Daniel Pfeiffer <occitan@esperanto.org>
@@ -917,7 +917,7 @@ be indented (i.e. a <<- was used rather than just <<)."
917 ;; Skip through one pattern 917 ;; Skip through one pattern
918 (while 918 (while
919 (or (/= 0 (skip-syntax-backward "w_")) 919 (or (/= 0 (skip-syntax-backward "w_"))
920 (/= 0 (skip-chars-backward "?[]*/\\")) 920 (/= 0 (skip-chars-backward "?[]*@/\\"))
921 (and (sh-is-quoted-p (1- (point))) 921 (and (sh-is-quoted-p (1- (point)))
922 (goto-char (- (point) 2))) 922 (goto-char (- (point) 2)))
923 (when (memq (char-before) '(?\" ?\')) 923 (when (memq (char-before) '(?\" ?\'))