]> code.delx.au - gnu-emacs/commitdiff
* eshell/em-unix.el (eshell-remove-entries): Remove unused arg `path'.
authorGlenn Morris <rgm@gnu.org>
Thu, 19 Sep 2013 02:42:36 +0000 (19:42 -0700)
committerGlenn Morris <rgm@gnu.org>
Thu, 19 Sep 2013 02:42:36 +0000 (19:42 -0700)
Update callers.

lisp/ChangeLog
lisp/eshell/em-unix.el

index 29c32718f898cf6f93b3ed0c429bfcd1c5dabbd3..ed6bf661e2650f6734bb9626b5c0d5bc95e81c7a 100644 (file)
@@ -1,5 +1,8 @@
 2013-09-19  Glenn Morris  <rgm@gnu.org>
 
+       * 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.
 
index 1548d181855f08029d239c83a5bd9b5bf82ccf6d..c278532f3494d3fa7679eab00ed881174c2271ab 100644 (file)
@@ -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))