Mercurial > emacs
comparison lisp/eshell/em-unix.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 | f21190964294 |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 111455:f21190964294 | 111456:646142bd4c38 |
|---|---|
| 910 "total\n")))))))) | 910 "total\n")))))))) |
| 911 | 911 |
| 912 (defvar eshell-time-start nil) | 912 (defvar eshell-time-start nil) |
| 913 | 913 |
| 914 (defun eshell-show-elapsed-time () | 914 (defun eshell-show-elapsed-time () |
| 915 (let ((elapsed (format "%.3f secs\n" | 915 (let ((elapsed (format "%.3f secs\n" (- (float-time) eshell-time-start)))) |
| 916 (- (eshell-time-to-seconds (current-time)) | |
| 917 eshell-time-start)))) | |
| 918 (set-text-properties 0 (length elapsed) '(face bold) elapsed) | 916 (set-text-properties 0 (length elapsed) '(face bold) elapsed) |
| 919 (eshell-interactive-print elapsed)) | 917 (eshell-interactive-print elapsed)) |
| 920 (remove-hook 'eshell-post-command-hook 'eshell-show-elapsed-time t)) | 918 (remove-hook 'eshell-post-command-hook 'eshell-show-elapsed-time t)) |
| 921 | 919 |
| 922 (defun eshell/time (&rest args) | 920 (defun eshell/time (&rest args) |
| 938 '((?h "help" nil nil "show this usage screen") | 936 '((?h "help" nil nil "show this usage screen") |
| 939 :external "time" | 937 :external "time" |
| 940 :show-usage | 938 :show-usage |
| 941 :usage "COMMAND... | 939 :usage "COMMAND... |
| 942 Show wall-clock time elapsed during execution of COMMAND.") | 940 Show wall-clock time elapsed during execution of COMMAND.") |
| 943 (setq eshell-time-start (eshell-time-to-seconds (current-time))) | 941 (setq eshell-time-start (float-time)) |
| 944 (add-hook 'eshell-post-command-hook 'eshell-show-elapsed-time nil t) | 942 (add-hook 'eshell-post-command-hook 'eshell-show-elapsed-time nil t) |
| 945 ;; after setting | 943 ;; after setting |
| 946 (throw 'eshell-replace-command | 944 (throw 'eshell-replace-command |
| 947 (eshell-parse-command (car time-args) | 945 (eshell-parse-command (car time-args) |
| 948 ;;; http://lists.gnu.org/archive/html/bug-gnu-emacs/2007-08/msg00205.html | 946 ;;; http://lists.gnu.org/archive/html/bug-gnu-emacs/2007-08/msg00205.html |