From ab25f638ccff0ebec36b78f9b47092fe9fb103b3 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Thu, 23 Nov 2017 07:51:13 -0500 Subject: [PATCH] eshell/date: use external date for any arguments (Bug#29157) * lisp/eshell/em-unix.el (eshell/date): Throw `eshell-external' if given any arguments. (eshell-unix-initialize): Add "date" to `eshell-complex-commands'. --- lisp/eshell/em-unix.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index c486d2c51d..342a045d42 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el @@ -148,13 +148,18 @@ eshell-unix-initialize (make-local-variable 'eshell-complex-commands) (setq eshell-complex-commands (append '("grep" "egrep" "fgrep" "agrep" "glimpse" "locate" - "cat" "time" "cp" "mv" "make" "du" "diff") + "cat" "date" "time" "cp" "mv" "make" "du" "diff") eshell-complex-commands))) -(defalias 'eshell/date 'current-time-string) (defalias 'eshell/basename 'file-name-nondirectory) (defalias 'eshell/dirname 'file-name-directory) +(defun eshell/date (&rest args) + (when args + (throw 'eshell-external + (eshell-external-command "date" args))) + (current-time-string)) + (defvar em-interactive) (defvar em-preview) (defvar em-recursive) -- 2.11.0