1447 |
controls whether to query about making the visited file executable. |
controls whether to query about making the visited file executable. |
1448 |
|
|
1449 |
Calls the value of `sh-set-shell-hook' if set." |
Calls the value of `sh-set-shell-hook' if set." |
1450 |
(interactive (list (completing-read "Name or path of shell: " |
(interactive (list (completing-read (format "Shell \(default %s\): " |
1451 |
interpreter-mode-alist |
sh-shell-file) |
1452 |
(lambda (x) (eq (cdr x) 'sh-mode))) |
interpreter-mode-alist |
1453 |
|
(lambda (x) (eq (cdr x) 'sh-mode)) |
1454 |
|
nil nil nil sh-shell-file) |
1455 |
(eq executable-query 'function) |
(eq executable-query 'function) |
1456 |
t)) |
t)) |
1457 |
(if (string-match "\\.exe\\'" shell) |
(if (string-match "\\.exe\\'" shell) |