aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2013-09-18 19:42:36 -0700
committerGlenn Morris2013-09-18 19:42:36 -0700
commit3261d4af3d61802556793bfbffd7cc5b73bdf023 (patch)
tree16976c4a70c30f3c39855d9d3c106578758ba1f3
parent8e51b5d087612619a37e4fbb767d1dad8488f110 (diff)
downloademacs-3261d4af3d61802556793bfbffd7cc5b73bdf023.tar.gz
emacs-3261d4af3d61802556793bfbffd7cc5b73bdf023.zip
* eshell/em-unix.el (eshell-remove-entries): Remove unused arg `path'.
Update callers.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/eshell/em-unix.el8
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 @@
12013-09-19 Glenn Morris <rgm@gnu.org> 12013-09-19 Glenn Morris <rgm@gnu.org>
2 2
3 * eshell/em-unix.el (eshell-remove-entries):
4 Remove unused arg `path'. Update callers.
5
3 * eshell/em-hist.el (eshell-hist-parse-arguments): 6 * eshell/em-hist.el (eshell-hist-parse-arguments):
4 Remove unused arg `silent'. Update callers. 7 Remove unused arg `silent'. Update callers.
5 8
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."
195 (Info-menu (car args)) 195 (Info-menu (car args))
196 (setq args (cdr args))))) 196 (setq args (cdr args)))))
197 197
198(defun eshell-remove-entries (path files &optional top-level) 198(defun eshell-remove-entries (files &optional top-level)
199 "From PATH, remove all of the given FILES, perhaps interactively." 199 "Remove all of the given FILES, perhaps interactively."
200 (while files 200 (while files
201 (if (string-match "\\`\\.\\.?\\'" 201 (if (string-match "\\`\\.\\.?\\'"
202 (file-name-nondirectory (car files))) 202 (file-name-nondirectory (car files)))
@@ -296,9 +296,9 @@ Remove (unlink) the FILE(s).")
296 (y-or-n-p 296 (y-or-n-p
297 (format "rm: descend into directory `%s'? " 297 (format "rm: descend into directory `%s'? "
298 entry))) 298 entry)))
299 (eshell-remove-entries nil (list entry) t)) 299 (eshell-remove-entries (list entry) t))
300 (eshell-error (format "rm: %s: is a directory\n" entry))) 300 (eshell-error (format "rm: %s: is a directory\n" entry)))
301 (eshell-remove-entries nil (list entry) t)))))) 301 (eshell-remove-entries (list entry) t))))))
302 (setq args (cdr args))) 302 (setq args (cdr args)))
303 nil)) 303 nil))
304 304