aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
authorGlenn Morris2013-09-17 19:45:31 -0700
committerGlenn Morris2013-09-17 19:45:31 -0700
commit91c837fe7281b7588a8bfbd4c265a6d8cef69fb9 (patch)
tree3dbde12a66c040f71dcc994f69714d35e7a93af9 /lisp/eshell
parent49a053fc5b27c7d1a32c42301fc66657dfc396ae (diff)
downloademacs-91c837fe7281b7588a8bfbd4c265a6d8cef69fb9.tar.gz
emacs-91c837fe7281b7588a8bfbd4c265a6d8cef69fb9.zip
* eshell/esh-util.el (eshell-sublist): Remove unused local variable.
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/esh-util.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el
index 5e0aad8345f..6195f3976c1 100644
--- a/lisp/eshell/esh-util.el
+++ b/lisp/eshell/esh-util.el
@@ -217,8 +217,7 @@ then quoting is done by a backslash, rather than a doubled delimiter."
217(defun eshell-sublist (l &optional n m) 217(defun eshell-sublist (l &optional n m)
218 "Return from LIST the N to M elements. 218 "Return from LIST the N to M elements.
219If N or M is nil, it means the end of the list." 219If N or M is nil, it means the end of the list."
220 (let* ((a (copy-sequence l)) 220 (let ((a (copy-sequence l)))
221 result)
222 (if (and m (consp (nthcdr m a))) 221 (if (and m (consp (nthcdr m a)))
223 (setcdr (nthcdr m a) nil)) 222 (setcdr (nthcdr m a) nil))
224 (if n 223 (if n