mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

* pcvs.el (cvs-mode-previous-line, cvs-mode-next-line): Move to

Browse Source 
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).
This commit is contained in:
Kai Großjohann 2002-04-03 16:56:36 +00:00
parent 44766095d1
commit 6efa25a1d5
3 changed files with 38 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2002-04-03 Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
* 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).
2002-04-03 Richard M. Stallman <rms@gnu.org>
* mail/mailabbrev.el (mail-abbrev-complete-alias):

26
lisp/pcvs-info.el
View File

@ -4,7 +4,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
;; Revision: $Id: pcvs-info.el,v 1.7 2001/07/16 07:46:48 pj Exp $
;; Revision: $Id: pcvs-info.el,v 1.8 2001/12/31 20:28:40 rms Exp $
;; This file is part of GNU Emacs.
@ -318,14 +318,17 @@ FI-OR-TYPE can either be a symbol (a fileinfo-type) or a fileinfo."
(and (not (eq type 'MESSAGE))
(eq (car (memq func (cdr (assq type cvs-states)))) func))))
(defun cvs-add-face (str face &optional keymap)
(when cvs-highlight
(defun cvs-add-face (str face &optional keymap &rest properties)
(when (or cvs-highlight properties)
(add-text-properties 0 (length str)
(list* 'face face
(when keymap
(list* 'mouse-face 'highlight
(when (keymapp keymap)
(list 'keymap keymap)))))
(append
(when cvs-highlight
(list* 'face face
(when keymap
(list* 'mouse-face 'highlight
(when (keymapp keymap)
(list 'keymap keymap))))))
properties)
str))
str)
@ -349,7 +352,8 @@ For use by the cookie package."
(cvs-add-face "*" 'cvs-marked-face)
" "))
(file (cvs-add-face (cvs-fileinfo->pp-name fileinfo)
'cvs-filename-face t))
'cvs-filename-face t
'cvs-goal-column t))
(base (or (cvs-fileinfo->base-rev fileinfo) ""))
(head (cvs-fileinfo->head-rev fileinfo))
(type
@ -371,8 +375,8 @@ For use by the cookie package."
(when (and head (not (string= head base))) head)
;; or nothing
"")))
(format "%-11s %s %-11s %-11s %s"
side status type base file)))))))
(format "%-11s %s %-11s %-11s %s"
side status type base file)))))))
(defun cvs-fileinfo-update (fi fi-new)

18
lisp/pcvs.el
View File

@ -13,7 +13,7 @@
;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com
;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
;; Keywords: CVS, version control, release management
;; Revision: $Id: pcvs.el,v 1.32 2001/12/20 18:43:35 pj Exp $
;; Revision: $Id: pcvs.el,v 1.33 2002/01/25 22:41:28 monnier Exp $
;; This file is part of GNU Emacs.
@ -1089,13 +1089,25 @@ Full documentation is in the Texinfo file."
"Go to the previous line.
If a prefix argument is given, move by that many lines."
(interactive "p")
(ewoc-goto-prev cvs-cookies arg))
(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))
(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