1389 |
(cond ((looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)") |
(cond ((looking-at "#![ \t]?\\([^ \t\n]*/bin/env[ \t]\\)?\\([^ \t\n]+\\)") |
1390 |
(match-string 2)) |
(match-string 2)) |
1391 |
((and buffer-file-name |
((and buffer-file-name |
1392 |
(string-match "\\.m?spec$" buffer-file-name)) |
(string-match "\\.m?spec\\'" buffer-file-name)) |
1393 |
"rpm"))))) |
"rpm"))))) |
1394 |
(sh-set-shell (or interpreter sh-shell-file) nil nil)) |
(sh-set-shell (or interpreter sh-shell-file) nil nil)) |
1395 |
(run-hooks 'sh-mode-hook)) |
(run-hooks 'sh-mode-hook)) |
2290 |
(if (looking-at "[\"'`]") |
(if (looking-at "[\"'`]") |
2291 |
(sh-safe-forward-sexp) |
(sh-safe-forward-sexp) |
2292 |
;; (> (skip-chars-forward "^ \t\n\"'`") 0) |
;; (> (skip-chars-forward "^ \t\n\"'`") 0) |
2293 |
(> (skip-chars-forward "-_a-zA-Z\$0-9") 0) |
(> (skip-chars-forward "-_a-zA-Z$0-9") 0) |
2294 |
)) |
)) |
2295 |
(buffer-substring start (point)) |
(buffer-substring start (point)) |
2296 |
)) |
)) |