From 72fd28777da23f5d3c67344e98a6477f0397316d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 18 Sep 2013 23:56:47 -0700 Subject: [PATCH] * eshell/em-unix.el (eshell-remove-entries): Rename argument to avoid name-clash with global `top-level'. --- lisp/ChangeLog | 3 +++ lisp/eshell/em-unix.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 97b22964601..e6eeca49d66 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-09-19 Glenn Morris + * eshell/em-unix.el (eshell-remove-entries): + Rename argument to avoid name-clash with global `top-level'. + * eshell/esh-proc.el (eshell-kill-process-function): Remove eshell-reset-after-proc from eshell-kill-hook if present. (eshell-reset-after-proc): Remove unused arg `proc'. diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index c278532f349..1cf40d58a49 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el @@ -195,12 +195,12 @@ 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 (files &optional top-level) +(defun eshell-remove-entries (files &optional toplevel) "Remove all of the given FILES, perhaps interactively." (while files (if (string-match "\\`\\.\\.?\\'" (file-name-nondirectory (car files))) - (if top-level + (if toplevel (eshell-error "rm: cannot remove `.' or `..'\n")) (if (and (file-directory-p (car files)) (not (file-symlink-p (car files)))) -- 2.39.2