[Emacs-diffs] Changes to emacs/lisp/pcvs.el

[Kai Großjohann]

Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.33 emacs/lisp/pcvs.el:1.34
*** emacs/lisp/pcvs.el:1.33     Fri Jan 25 17:41:28 2002
--- emacs/lisp/pcvs.el  Wed Apr  3 11:56:36 2002
***************
*** 13,19 ****
  ;;    (Jari Aalto+mail.emacs) address@hidden
  ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
  ;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.33 2002/01/25 22:41:28 monnier Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 13,19 ----
  ;;    (Jari Aalto+mail.emacs) address@hidden
  ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/address@hidden
  ;; Keywords: CVS, version control, release management
! ;; Revision: $Id: pcvs.el,v 1.34 2002/04/03 16:56:36 kai Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 1089,1101 ****
    "Go to the previous line.
  If a prefix argument is given, move by that many lines."
    (interactive "p")
!   (ewoc-goto-prev cvs-cookies arg))
  
  (defun-cvs-mode cvs-mode-next-line (arg)
    "Go to the next line.
  If a prefix argument is given, move by that many lines."
    (interactive "p")
!   (ewoc-goto-next cvs-cookies arg))
  
  ;;;;
  ;;;; Mark handling
--- 1089,1113 ----
    "Go to the previous line.
  If a prefix argument is given, move by that many lines."
    (interactive "p")
!   (ewoc-goto-prev cvs-cookies arg)
!   (let ((fpos (next-single-property-change
!              (point) 'cvs-goal-column
!              (current-buffer) (line-end-position)))
!       (eol (line-end-position)))
!     (when (< fpos eol)
!       (goto-char fpos))))
  
  (defun-cvs-mode cvs-mode-next-line (arg)
    "Go to the next line.
  If a prefix argument is given, move by that many lines."
    (interactive "p")
!   (ewoc-goto-next cvs-cookies arg)
!   (let ((fpos (next-single-property-change
!              (point) 'cvs-goal-column
!              (current-buffer) (line-end-position)))
!       (eol (line-end-position)))
!     (when (< fpos eol)
!       (goto-char fpos))))
  
  ;;;;
  ;;;; Mark handling