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))
))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
