1246 |
(setq program (eshell-search-path name)) |
(setq program (eshell-search-path name)) |
1247 |
(let* ((esym (eshell-find-alias-function name)) |
(let* ((esym (eshell-find-alias-function name)) |
1248 |
(sym (or esym (intern-soft name)))) |
(sym (or esym (intern-soft name)))) |
1249 |
(if (and sym (fboundp sym) |
(if (and (or esym (and sym (fboundp sym))) |
1250 |
(or esym eshell-prefer-lisp-functions |
(or eshell-prefer-lisp-functions (not direct))) |
|
(not program))) |
|
1251 |
(let ((desc (let ((inhibit-redisplay t)) |
(let ((desc (let ((inhibit-redisplay t)) |
1252 |
(save-window-excursion |
(save-window-excursion |
1253 |
(prog1 |
(prog1 |