From 3261d4af3d61802556793bfbffd7cc5b73bdf023 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 18 Sep 2013 19:42:36 -0700 Subject: [PATCH] * eshell/em-unix.el (eshell-remove-entries): Remove unused arg `path'. Update callers. --- lisp/ChangeLog | 3 +++ lisp/eshell/em-unix.el | 8 ++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 29c32718f89..ed6bf661e26 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-09-19 Glenn Morris + * eshell/em-unix.el (eshell-remove-entries): + Remove unused arg `path'. Update callers. + * eshell/em-hist.el (eshell-hist-parse-arguments): Remove unused arg `silent'. Update callers. diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index 1548d181855..c278532f349 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el @@ -195,8 +195,8 @@ Otherwise, Emacs will attempt to use rsh to invoke du on the remote machine." (Info-menu (car args)) (setq args (cdr args))))) -(defun eshell-remove-entries (path files &optional top-level) - "From PATH, remove all of the given FILES, perhaps interactively." +(defun eshell-remove-entries (files &optional top-level) + "Remove all of the given FILES, perhaps interactively." (while files (if (string-match "\\`\\.\\.?\\'" (file-name-nondirectory (car files))) @@ -296,9 +296,9 @@ Remove (unlink) the FILE(s).") (y-or-n-p (format "rm: descend into directory `%s'? " entry))) - (eshell-remove-entries nil (list entry) t)) + (eshell-remove-entries (list entry) t)) (eshell-error (format "rm: %s: is a directory\n" entry))) - (eshell-remove-entries nil (list entry) t)))))) + (eshell-remove-entries (list entry) t)))))) (setq args (cdr args))) nil)) -- 2.39.2