diff options
| author | Richard M. Stallman <[email protected]> | 2002-06-10 08:50:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-06-10 08:50:02 +0000 |
| commit | 37ce10ea26089aa0908a9ecfa47b0032e10797db (patch) | |
| tree | 48895a2004561e06f89777cf7ea2d15d237537f2 /lisp | |
| parent | 8a0c77f5dccb52e8707f25495fb9f051f0ba6401 (diff) | |
Undo previous change.
Diffstat (limited to 'lisp')
| -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 1ca34a54bc..faba7baf1b 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-sequence viper-command-ring))) + (setq viper-temp-command-ring (copy-list 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-sequence viper-insertion-ring))) + (setq viper-temp-insertion-ring (copy-list 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)) |