diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-05-20 13:28:38 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-05-20 13:28:38 +0000 |
| commit | fe67016b3a575eacc0d12d7e14388fb77411d117 (patch) | |
| tree | 241ea91924e9e9024fc87b0149e53e5c988d0c16 /lisp/progmodes | |
| parent | 9605a00f9c823ff0a5bc0f8412d2e1569ace377b (diff) | |
| download | emacs-fe67016b3a575eacc0d12d7e14388fb77411d117.tar.gz | |
(sh-mode, sh-get-word): Minor regexp fixes.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/sh-script.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) )) |