mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

Undo previous change.

Browse source
This commit is contained in:
Richard M. Stallman 2002-06-10 08:50:02 +00:00
parent 8a0c77f5dc
commit 37ce10ea26
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emulation/viper-cmd.el
View file

@ -1814,7 +1814,7 @@ With prefix argument, find next destructive command."
(setq viper-intermediate-command (setq viper-intermediate-command
'repeating-display-destructive-command) 'repeating-display-destructive-command)
;; first search through command history--set temp ring ;; 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 (setq cmd (if next
(viper-special-ring-rotate1 viper-temp-command-ring 1) (viper-special-ring-rotate1 viper-temp-command-ring 1)
(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)))) (length viper-last-inserted-string-from-insertion-ring))))
) )
;;first search through insertion history ;;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) (setq this-command 'viper-insert-from-insertion-ring)
;; so that things will be undone properly ;; so that things will be undone properly
(setq buffer-undo-list (cons nil buffer-undo-list)) (setq buffer-undo-list (cons nil buffer-undo-list))