Mercurial > emacs

comparison lisp/pcvs.el @ 44384:3626a12fe452

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* pcvs.el (cvs-mode-previous-line, cvs-mode-next-line): Move to spot indicated by text property `cvs-goal-column', if present. * pcvs-info.el (cvs-fileinfo-pp): Use text property `cvs-goal-column' to indicate position of file name (if present).
author Kai Großjohann <kgrossjo@eu.uu.net>
date Wed, 03 Apr 2002 16:56:36 +0000
parents afd482080b6f
children 8b7e7b9551fe
comparison
equal deleted inserted replaced
44383:e44eec58a815 44384:3626a12fe452
11 ;; (Stefan Monnier) monnier@cs.yale.edu 11 ;; (Stefan Monnier) monnier@cs.yale.edu
12 ;; (Greg Klanderman) greg@alphatech.com 12 ;; (Greg Klanderman) greg@alphatech.com
13 ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com 13 ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com
14 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu 14 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
15 ;; Keywords: CVS, version control, release management 15 ;; Keywords: CVS, version control, release management
16 ;; Revision: $Id: pcvs.el,v 1.32 2001/12/20 18:43:35 pj Exp $ 16 ;; Revision: $Id: pcvs.el,v 1.33 2002/01/25 22:41:28 monnier Exp $
17 17
18 ;; This file is part of GNU Emacs. 18 ;; This file is part of GNU Emacs.
19 19
20 ;; GNU Emacs is free software; you can redistribute it and/or modify 20 ;; GNU Emacs is free software; you can redistribute it and/or modify
21 ;; it under the terms of the GNU General Public License as published by 21 ;; it under the terms of the GNU General Public License as published by
1087 1087
1088 (defun-cvs-mode cvs-mode-previous-line (arg) 1088 (defun-cvs-mode cvs-mode-previous-line (arg)
1089 "Go to the previous line. 1089 "Go to the previous line.
1090 If a prefix argument is given, move by that many lines." 1090 If a prefix argument is given, move by that many lines."
1091 (interactive "p") 1091 (interactive "p")
1092 (ewoc-goto-prev cvs-cookies arg)) 1092 (ewoc-goto-prev cvs-cookies arg)
1093 (let ((fpos (next-single-property-change
1094 (point) 'cvs-goal-column
1095 (current-buffer) (line-end-position)))
1096 (eol (line-end-position)))
1097 (when (< fpos eol)
1098 (goto-char fpos))))
1093 1099
1094 (defun-cvs-mode cvs-mode-next-line (arg) 1100 (defun-cvs-mode cvs-mode-next-line (arg)
1095 "Go to the next line. 1101 "Go to the next line.
1096 If a prefix argument is given, move by that many lines." 1102 If a prefix argument is given, move by that many lines."
1097 (interactive "p") 1103 (interactive "p")
1098 (ewoc-goto-next cvs-cookies arg)) 1104 (ewoc-goto-next cvs-cookies arg)
1105 (let ((fpos (next-single-property-change
1106 (point) 'cvs-goal-column
1107 (current-buffer) (line-end-position)))
1108 (eol (line-end-position)))
1109 (when (< fpos eol)
1110 (goto-char fpos))))
1099 1111
1100 ;;;; 1112 ;;;;
1101 ;;;; Mark handling 1113 ;;;; Mark handling
1102 ;;;; 1114 ;;;;
1103 1115