aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog1
-rw-r--r--lisp/eshell/esh-util.el3
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 439b1db7d5f..5b911a503b8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,7 @@
5 * eshell/em-cmpl.el (eshell-complete-parse-arguments): 5 * eshell/em-cmpl.el (eshell-complete-parse-arguments):
6 * eshell/em-hist.el (eshell/history, eshell-isearch-backward): 6 * eshell/em-hist.el (eshell/history, eshell-isearch-backward):
7 * eshell/em-pred.el (eshell-parse-modifiers, eshell-pred-file-time): 7 * eshell/em-pred.el (eshell-parse-modifiers, eshell-pred-file-time):
8 * eshell/esh-util.el (eshell-sublist):
8 Remove unused local variables. 9 Remove unused local variables.
9 10
10 * eshell/esh-io.el (x-select-enable-clipboard): Declare. 11 * eshell/esh-io.el (x-select-enable-clipboard): Declare.
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