diff options
| author | Gerd Moellmann | 2000-06-23 04:53:48 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-06-23 04:53:48 +0000 |
| commit | 047c1280be6adaaaa40528cf4070e5a76373ce3a (patch) | |
| tree | 111f317aa897fdd941d700228af6a0f95fca2ab1 | |
| parent | 26b4dc849fc474ff9f1c6cc0a9f33f3c2cf086ba (diff) | |
| download | emacs-047c1280be6adaaaa40528cf4070e5a76373ce3a.tar.gz emacs-047c1280be6adaaaa40528cf4070e5a76373ce3a.zip | |
(eshell-sublist): Use eshell-copy-list
instead of copy-list.
| -rw-r--r-- | lisp/eshell/esh-util.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index eb69e5e0f98..cf789930ae0 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el | |||
| @@ -206,7 +206,7 @@ then quoting is done by a backslash, rather than a doubled delimiter." | |||
| 206 | (defun eshell-sublist (l &optional n m) | 206 | (defun eshell-sublist (l &optional n m) |
| 207 | "Return from LIST the N to M elements. | 207 | "Return from LIST the N to M elements. |
| 208 | If N or M is nil, it means the end of the list." | 208 | If N or M is nil, it means the end of the list." |
| 209 | (let* ((a (copy-list l)) | 209 | (let* ((a (eshell-copy-list l)) |
| 210 | result) | 210 | result) |
| 211 | (if (and m (consp (nthcdr m a))) | 211 | (if (and m (consp (nthcdr m a))) |
| 212 | (setcdr (nthcdr m a) nil)) | 212 | (setcdr (nthcdr m a) nil)) |