Mercurial > emacs

comparison lisp/progmodes/sh-script.el @ 54282:d11df80991d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-font-lock-paren): Add @ in case patterns.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 04 Mar 2004 23:27:00 +0000
parents 43e09e943479
children 3a424bb24301
comparison
equal deleted inserted replaced
54281:7b3add67c42a 54282:d11df80991d8
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>
7 ;; Version: 2.0f 7 ;; Version: 2.0f
8 ;; Maintainer: FSF 8 ;; Maintainer: FSF
915 (progn 915 (progn
916 (forward-comment (- (point-max))) 916 (forward-comment (- (point-max)))
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) '(?\" ?\'))
924 (condition-case nil (progn (backward-sexp 1) t) 924 (condition-case nil (progn (backward-sexp 1) t)
925 (error nil))))) 925 (error nil)))))