# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1116595718 0
# Node ID 4f78132b042bc44baa21a6279dca31e1528c44de
# Parent  744535f6366b2e1e1455f928871815efaf43f972
(sh-mode, sh-get-word): Minor regexp fixes.

diff -r 744535f6366b -r 4f78132b042b lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Fri May 20 13:25:58 2005 +0000
+++ b/lisp/progmodes/sh-script.el	Fri May 20 13:28:38 2005 +0000
@@ -1389,7 +1389,7 @@
 	   (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 @@
 	(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))
     ))