From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 27 Dec 2004 16:16:24 +0000 (+0000)
Subject: (eshell-find-alias-function): Call symbol-file with `defun'.
X-Git-Tag: ttn-vms-21-2-B4~3129
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5cb345c184f835909aed741d09f43c1ff5b8c943;p=emacs.git

(eshell-find-alias-function): Call symbol-file with `defun'.
---

diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 477d8b410ec..d7c65066ac6 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -1285,7 +1285,7 @@ COMMAND may result in an alias being executed, or a plain command."
 (defun eshell-find-alias-function (name)
   "Check whether a function called `eshell/NAME' exists."
   (let* ((sym (intern-soft (concat "eshell/" name)))
-	 (file (symbol-file sym)))
+	 (file (symbol-file sym 'defun)))
     ;; If the function exists, but is defined in an eshell module
     ;; that's not currently enabled, don't report it as found
     (if (and file