Mercurial > emacs

comparison lisp/log-view.el @ 68370:89e7eb7d165b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(log-view-minor-wrap): First rev is the one at point.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 24 Jan 2006 18:43:22 +0000
parents 4804f7b39bfe
children 3bd95f4f2941 5b7d410e31f9
comparison
equal deleted inserted replaced
68369:3422c551ad06 68370:89e7eb7d165b
1 ;;; log-view.el --- Major mode for browsing RCS/CVS/SCCS log output 1 ;;; log-view.el --- Major mode for browsing RCS/CVS/SCCS log output
2 2
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
4 ;; 2005 Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Stefan Monnier <monnier@cs.yale.edu> 6 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
7 ;; Keywords: rcs sccs cvs log version-control 7 ;; Keywords: rcs sccs cvs log version-control
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
223 (defvar cvs-branch-prefix) 223 (defvar cvs-branch-prefix)
224 (defvar cvs-secondary-branch-prefix) 224 (defvar cvs-secondary-branch-prefix)
225 225
226 (defun log-view-minor-wrap (buf f) 226 (defun log-view-minor-wrap (buf f)
227 (let ((data (with-current-buffer buf 227 (let ((data (with-current-buffer buf
228 (let* ((beg (if mark-active (region-beginning) (point))) 228 (let* ((beg (point))
229 (end (if mark-active (region-end) (point))) 229 (end (if mark-active (mark) (point)))
230 (fr (log-view-current-tag beg)) 230 (fr (log-view-current-tag beg))
231 (to (log-view-current-tag end))) 231 (to (log-view-current-tag end)))
232 (when (string-equal fr to) 232 (when (string-equal fr to)
233 (save-excursion 233 (save-excursion
234 (goto-char end) 234 (goto-char end)
235 (log-view-msg-next) 235 (log-view-msg-next)
236 (setq to (log-view-current-tag)))) 236 (setq to (log-view-current-tag))))
237 (cons 237 (cons
238 (cons (log-view-current-file) to) 238 ;; The first revision has to be the one at point, for
239 (cons (log-view-current-file) fr)))))) 239 ;; operations that only take one revision
240 ;; (e.g. cvs-mode-edit).
241 (cons (log-view-current-file) fr)
242 (cons (log-view-current-file) to))))))
240 (let ((cvs-branch-prefix (cdar data)) 243 (let ((cvs-branch-prefix (cdar data))
241 (cvs-secondary-branch-prefix (and (cdar data) (cddr data))) 244 (cvs-secondary-branch-prefix (and (cdar data) (cddr data)))
242 (cvs-minor-current-files 245 (cvs-minor-current-files
243 (cons (caar data) 246 (cons (caar data)
244 (when (and (cadr data) (not (equal (caar data) (cadr data)))) 247 (when (and (cadr data) (not (equal (caar data) (cadr data))))