1285 |
(defun eshell-find-alias-function (name) |
(defun eshell-find-alias-function (name) |
1286 |
"Check whether a function called `eshell/NAME' exists." |
"Check whether a function called `eshell/NAME' exists." |
1287 |
(let* ((sym (intern-soft (concat "eshell/" name))) |
(let* ((sym (intern-soft (concat "eshell/" name))) |
1288 |
(file (symbol-file sym))) |
(file (symbol-file sym 'defun))) |
1289 |
;; If the function exists, but is defined in an eshell module |
;; If the function exists, but is defined in an eshell module |
1290 |
;; that's not currently enabled, don't report it as found |
;; that's not currently enabled, don't report it as found |
1291 |
(if (and file |
(if (and file |