From fe67016b3a575eacc0d12d7e14388fb77411d117 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 20 May 2005 13:28:38 +0000 Subject: (sh-mode, sh-get-word): Minor regexp fixes. --- lisp/progmodes/sh-script.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/progmodes') diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 7a647f97775..e2d82f7f13b 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -1389,7 +1389,7 @@ with your script for an edit-interpret-debug cycle." (cond ((looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)") (match-string 2)) ((and buffer-file-name - (string-match "\\.m?spec$" buffer-file-name)) + (string-match "\\.m?spec\\'" buffer-file-name)) "rpm"))))) (sh-set-shell (or interpreter sh-shell-file) nil nil)) (run-hooks 'sh-mode-hook)) @@ -2290,7 +2290,7 @@ we go to the end of the previous line and do not check for continuations." (if (looking-at "[\"'`]") (sh-safe-forward-sexp) ;; (> (skip-chars-forward "^ \t\n\"'`") 0) - (> (skip-chars-forward "-_a-zA-Z\$0-9") 0) + (> (skip-chars-forward "-_a-zA-Z$0-9") 0) )) (buffer-substring start (point)) )) -- cgit v1.2.1