[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v
From: |
Michael Kifer |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v |
Date: |
Fri, 02 Nov 2007 06:03:13 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Michael Kifer <kifer> 07/11/02 06:03:12
Index: lisp/emulation/viper-cmd.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper-cmd.el,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -b -r1.63 -r1.64
--- lisp/emulation/viper-cmd.el 19 Aug 2007 13:47:07 -0000 1.63
+++ lisp/emulation/viper-cmd.el 2 Nov 2007 06:03:11 -0000 1.64
@@ -1902,7 +1902,7 @@
(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 (ring-copy 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)))
@@ -1936,7 +1936,7 @@
(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 (ring-copy 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))
@@ -2790,6 +2790,7 @@
(defun viper-next-line-carefully (arg)
(condition-case nil
+ ;; do not use forward-line! need to keep column
(next-line arg)
(error nil)))
@@ -3089,6 +3090,7 @@
(let ((val (viper-p-val arg))
(com (viper-getCom arg)))
(if com (viper-move-marker-locally 'viper-com-point (point)))
+ ;; do not use forward-line! need to keep column
(next-line val)
(if viper-ex-style-motion
(if (and (eolp) (not (bolp))) (backward-char 1)))
@@ -3132,6 +3134,7 @@
(let ((val (viper-p-val arg))
(com (viper-getCom arg)))
(if com (viper-move-marker-locally 'viper-com-point (point)))
+ ;; do not use forward-line! need to keep column
(previous-line val)
(if viper-ex-style-motion
(if (and (eolp) (not (bolp))) (backward-char 1)))
- [Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v,
Michael Kifer <=
- [Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v, Dan Nicolaescu, 2007/11/09
- [Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v, Dan Nicolaescu, 2007/11/20
- [Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v, Dan Nicolaescu, 2007/11/20
- [Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v, Glenn Morris, 2007/11/27