Commit 5c3f9bcc authored by Glenn Morris's avatar Glenn Morris
Browse files

* eshell/esh-util.el (ange-cache): Move declaration earlier.

parent 2ada368a
2013-09-13 Glenn Morris <rgm@gnu.org>
* 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.
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment