[Emacs-diffs] trunk r114384: * eshell/em-unix.el (eshell-remove-entries): Remove unused arg `path'.

[Glenn Morris]

------------------------------------------------------------
revno: 114384
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-09-18 19:42:36 -0700
message:
  * eshell/em-unix.el (eshell-remove-entries): Remove unused arg `path'.
  Update callers.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/eshell/em-unix.el         emunix.el-20091113204419-o5vbwnq5f7feedwu-1865

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-09-19 02:38:25 +0000
+++ b/lisp/ChangeLog    2013-09-19 02:42:36 +0000
@@ -1,5 +1,8 @@
 2013-09-19  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/eshell/em-unix.el'
--- a/lisp/eshell/em-unix.el    2013-09-18 05:11:38 +0000
+++ b/lisp/eshell/em-unix.el    2013-09-19 02:42:36 +0000
@@ -195,8 +195,8 @@
       (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 @@
                           (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))