[Emacs-diffs] Changes to emacs/lisp/progmodes/sh-script.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/sh-script.el
diff -c emacs/lisp/progmodes/sh-script.el:1.154 
emacs/lisp/progmodes/sh-script.el:1.155
*** emacs/lisp/progmodes/sh-script.el:1.154     Sat May 14 11:21:12 2005
--- emacs/lisp/progmodes/sh-script.el   Fri May 20 13:28:38 2005
***************
*** 1389,1395 ****
           (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))
                  "rpm")))))
      (sh-set-shell (or interpreter sh-shell-file) nil nil))
    (run-hooks 'sh-mode-hook))
--- 1389,1395 ----
           (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))
                  "rpm")))))
      (sh-set-shell (or interpreter sh-shell-file) nil nil))
    (run-hooks 'sh-mode-hook))
***************
*** 2290,2296 ****
        (if (looking-at "[\"'`]")
            (sh-safe-forward-sexp)
          ;; (> (skip-chars-forward "^ \t\n\"'`") 0)
!         (> (skip-chars-forward "-_a-zA-Z\$0-9") 0)
          ))
      (buffer-substring start (point))
      ))
--- 2290,2296 ----
        (if (looking-at "[\"'`]")
            (sh-safe-forward-sexp)
          ;; (> (skip-chars-forward "^ \t\n\"'`") 0)
!         (> (skip-chars-forward "-_a-zA-Z$0-9") 0)
          ))
      (buffer-substring start (point))
      ))