Mercurial > emacs
diff lisp/eshell/em-ls.el @ 111456:646142bd4c38
Replace some eshell functions that duplicate standard functions.
* lisp/eshell/esh-util.el (eshell-time-less-p, eshell-time-to-seconds): Remove.
(eshell-read-passwd, eshell-read-hosts): Use time-less-p.
* lisp/eshell/esh-test.el (eshell-test, eshell-show-usage-metrics):
* lisp/eshell/em-unix.el (eshell-show-elapsed-time, eshell/time):
* lisp/eshell/em-pred.el (eshell-pred-file-time): Use float-time.
* lisp/eshell/em-ls.el (eshell-ls-sort-entries): Use time-less-p.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 09 Nov 2010 19:57:32 -0800 |
parents | f57f72bb4757 |
children | 417b1e4d63cd |
line wrap: on
line diff
--- a/lisp/eshell/em-ls.el Tue Nov 09 19:53:03 2010 -0800 +++ b/lisp/eshell/em-ls.el Tue Nov 09 19:57:32 2010 -0800 @@ -612,11 +612,11 @@ (let ((result (cond ((eq sort-method 'by-atime) - (eshell-ls-compare-entries l r 4 'eshell-time-less-p)) + (eshell-ls-compare-entries l r 4 'time-less-p)) ((eq sort-method 'by-mtime) - (eshell-ls-compare-entries l r 5 'eshell-time-less-p)) + (eshell-ls-compare-entries l r 5 'time-less-p)) ((eq sort-method 'by-ctime) - (eshell-ls-compare-entries l r 6 'eshell-time-less-p)) + (eshell-ls-compare-entries l r 6 'time-less-p)) ((eq sort-method 'by-size) (eshell-ls-compare-entries l r 7 '<)) ((eq sort-method 'by-extension) @@ -941,5 +941,4 @@ ;; generated-autoload-file: "esh-groups.el" ;; End: -;; arch-tag: 9295181c-0cb2-499c-999b-89f5359842cb ;;; em-ls.el ends here