212 |
default-directory))) |
default-directory))) |
213 |
(find-file-name-handler default-directory |
(find-file-name-handler default-directory |
214 |
'shell-command)))) |
'shell-command)))) |
215 |
(if handler |
(if (and handler |
216 |
|
(not (and (eshell-under-xemacs-p) |
217 |
|
(eq handler 'dired-handler-fn)))) |
218 |
(eshell-remote-command handler command args)) |
(eshell-remote-command handler command args)) |
219 |
(let ((interp (eshell-find-interpreter command))) |
(let ((interp (eshell-find-interpreter command))) |
220 |
(assert interp) |
(assert interp) |
260 |
(file-regular-p file)) |
(file-regular-p file)) |
261 |
(with-temp-buffer |
(with-temp-buffer |
262 |
(insert-file-contents-literally file nil 0 maxlen) |
(insert-file-contents-literally file nil 0 maxlen) |
263 |
(if (looking-at "#!\\([^ \t\n]+\\)\\([ \t]+\\(.+\\)\\)?") |
(if (looking-at "#![ \t]*\\([^ \t\n]+\\)\\([ \t]+\\(.+\\)\\)?") |
264 |
(if (match-string 3) |
(if (match-string 3) |
265 |
(list (match-string 1) |
(list (match-string 1) |
266 |
(match-string 3) |
(match-string 3) |