diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-06-10 08:33:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-06-10 08:33:32 +0000 |
| commit | 8a0c77f5dccb52e8707f25495fb9f051f0ba6401 (patch) | |
| tree | 1f3607faed52fa3e666c037241f5e660486f6c67 /lisp/emulation | |
| parent | a9304a86df1fdcd59e88cf773a0238418b3fddd0 (diff) | |
| download | emacs-8a0c77f5dccb52e8707f25495fb9f051f0ba6401.tar.gz | |
(viper-insert-prev-from-insertion-ring)
(viper-prev-destructive-command): Use copy-sequence.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-cmd.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index faba7baf1b8..1ca34a54bc1 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -1814,7 +1814,7 @@ With prefix argument, find next destructive command." (setq viper-intermediate-command 'repeating-display-destructive-command) ;; first search through command history--set temp ring - (setq viper-temp-command-ring (copy-list viper-command-ring))) + (setq viper-temp-command-ring (copy-sequence viper-command-ring))) (setq cmd (if next (viper-special-ring-rotate1 viper-temp-command-ring 1) (viper-special-ring-rotate1 viper-temp-command-ring -1))) @@ -1848,7 +1848,7 @@ to in the global map, instead of cycling through the insertion ring." (length viper-last-inserted-string-from-insertion-ring)))) ) ;;first search through insertion history - (setq viper-temp-insertion-ring (copy-list viper-insertion-ring))) + (setq viper-temp-insertion-ring (copy-sequence viper-insertion-ring))) (setq this-command 'viper-insert-from-insertion-ring) ;; so that things will be undone properly (setq buffer-undo-list (cons nil buffer-undo-list)) |