summaryrefslogtreecommitdiff
path: root/lisp/emulation
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>2002-06-10 08:50:02 +0000
committerRichard M. Stallman <rms@gnu.org>2002-06-10 08:50:02 +0000
commiteffd77a368bce15f54bcea81a95a978f49871739 (patch)
treee3123da0670bb3208df71cc7c2b5be009b15ae57 /lisp/emulation
parent1dd2167c6e19ae2cc132cd3874cceec4f992ea76 (diff)
downloademacs-effd77a368bce15f54bcea81a95a978f49871739.tar.gz
Undo previous change.
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/viper-cmd.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 1ca34a54bc1..faba7baf1b8 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))