1814 |
(setq viper-intermediate-command |
(setq viper-intermediate-command |
1815 |
'repeating-display-destructive-command) |
'repeating-display-destructive-command) |
1816 |
;; first search through command history--set temp ring |
;; first search through command history--set temp ring |
1817 |
(setq viper-temp-command-ring (copy-list viper-command-ring))) |
(setq viper-temp-command-ring (copy-sequence viper-command-ring))) |
1818 |
(setq cmd (if next |
(setq cmd (if next |
1819 |
(viper-special-ring-rotate1 viper-temp-command-ring 1) |
(viper-special-ring-rotate1 viper-temp-command-ring 1) |
1820 |
(viper-special-ring-rotate1 viper-temp-command-ring -1))) |
(viper-special-ring-rotate1 viper-temp-command-ring -1))) |
1848 |
(length viper-last-inserted-string-from-insertion-ring)))) |
(length viper-last-inserted-string-from-insertion-ring)))) |
1849 |
) |
) |
1850 |
;;first search through insertion history |
;;first search through insertion history |
1851 |
(setq viper-temp-insertion-ring (copy-list viper-insertion-ring))) |
(setq viper-temp-insertion-ring (copy-sequence viper-insertion-ring))) |
1852 |
(setq this-command 'viper-insert-from-insertion-ring) |
(setq this-command 'viper-insert-from-insertion-ring) |
1853 |
;; so that things will be undone properly |
;; so that things will be undone properly |
1854 |
(setq buffer-undo-list (cons nil buffer-undo-list)) |
(setq buffer-undo-list (cons nil buffer-undo-list)) |