[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/vi.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/vi.el,v |
Date: |
Fri, 19 Oct 2007 18:41:11 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 07/10/19 18:41:10
Index: emulation/vi.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/vi.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- emulation/vi.el 13 Aug 2007 13:41:26 -0000 1.29
+++ emulation/vi.el 19 Oct 2007 18:41:08 -0000 1.30
@@ -801,7 +801,7 @@
(defun vi-previous-line-first-nonwhite (count)
"Go up COUNT lines. Stop at first non-white."
(interactive "p")
- (previous-line count)
+ (forward-line (- count))
(back-to-indentation))
(defun vi-scroll-up-window (count)
@@ -1062,7 +1062,7 @@
(setq end (1+ end)))
((eq moving-unit 'line)
(goto-char begin) (beginning-of-line) (setq begin (point))
- (goto-char end) (next-line 1) (beginning-of-line) (setq end
(point))))
+ (goto-char end) (forward-line 1) (beginning-of-line) (setq end
(point))))
(if (> end (point-max)) (setq end (point-max))) ; force in buffer region
(cons begin end)))))
@@ -1124,7 +1124,7 @@
(t (error "Register %c is not containing text string" reg))))
(if (vi-string-end-with-nl-p put-text) ; put back text as lines
(if after-p
- (progn (next-line 1) (beginning-of-line))
+ (progn (forward-line 1) (beginning-of-line))
(beginning-of-line))
(if after-p (forward-char 1)))
(push-mark (point))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emulation/vi.el,v,
Dan Nicolaescu <=