From: Glenn Morris Date: Fri, 13 Sep 2013 07:12:44 +0000 (-0700) Subject: * eshell/esh-util.el (ange-cache): Move declaration earlier. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1646 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c3f9bcc3dc27495d5beef5eca397ba383592302;p=emacs.git * eshell/esh-util.el (ange-cache): Move declaration earlier. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 53153b22f4a..014b48771c1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2013-09-13 Glenn Morris + * eshell/esh-util.el (ange-cache): Move declaration earlier. + * eshell/esh-ext.el (eshell-search-path): Declare. * eshell/em-prompt.el (eshell/pwd): Autoload it. diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index cac46ea8d18..5fa591a3082 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el @@ -562,6 +562,8 @@ Unless optional argument INPLACE is non-nil, return a new string." (substring string 0 sublen) string))) +(defvar ange-cache) + (and (featurep 'xemacs) (not (fboundp 'directory-files-and-attributes)) (defun directory-files-and-attributes (directory &optional full match nosort id-format) @@ -579,8 +581,6 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable. (cons file (eshell-file-attributes (expand-file-name file directory))))) (directory-files directory full match nosort))))) -(defvar ange-cache) - (defun eshell-directory-files-and-attributes (dir &optional full match nosort id-format) "Make sure to use the handler for `directory-file-and-attributes'." (let* ((dir (expand-file-name dir)))