diff options
| author | Stefan Monnier | 2002-09-06 19:46:24 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-09-06 19:46:24 +0000 |
| commit | 3922343710b6ccc60e73546874b9ef174dfa79da (patch) | |
| tree | 8fdeff9eec10e2173cbe675632d0744bd9480c69 | |
| parent | 426f6c23f464e3d2499e1950984c2aa5741b38b7 (diff) | |
| download | emacs-3922343710b6ccc60e73546874b9ef174dfa79da.tar.gz emacs-3922343710b6ccc60e73546874b9ef174dfa79da.zip | |
(edmacro-subseq): Don't use cl-push/cl-pop.
| -rw-r--r-- | lisp/edmacro.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index dc538ab5f92..9eac3a29055 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el | |||
| @@ -595,7 +595,7 @@ If START or END is negative, it counts from the end." | |||
| 595 | (if end | 595 | (if end |
| 596 | (let ((res nil)) | 596 | (let ((res nil)) |
| 597 | (while (>= (setq end (1- end)) start) | 597 | (while (>= (setq end (1- end)) start) |
| 598 | (cl-push (cl-pop seq) res)) | 598 | (push (pop seq) res)) |
| 599 | (nreverse res)) | 599 | (nreverse res)) |
| 600 | (copy-sequence seq))) | 600 | (copy-sequence seq))) |
| 601 | (t | 601 | (t |