# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1138128202 0
# Node ID 89e7eb7d165b380a5eddfe52b6f11b6e8d35dea0
# Parent  3422c551ad06e21b47f7291306216d4ff2cc8494
(log-view-minor-wrap): First rev is the one at point.

diff -r 3422c551ad06 -r 89e7eb7d165b lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jan 24 18:35:25 2006 +0000
+++ b/lisp/ChangeLog	Tue Jan 24 18:43:22 2006 +0000
@@ -1,9 +1,10 @@
 2006-01-24  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* log-view.el (log-view-minor-wrap): First rev is the one at point.
+
 	* calendar/cal-menu.el: Avoid macros from calendar.el so as to break
 	the nastiest part of the cyclic dependency.
-	(cal-menu-update): Use dotimes.
-	(cal-menu-update): Use calendar-increment-month.
+	(cal-menu-update): Use dotimes and calendar-increment-month.
 
 	* calendar/calendar.el: Remove unnecessary leading stars in docstrings.
 	(calendar-week-start-day): Add an :initializer.
diff -r 3422c551ad06 -r 89e7eb7d165b lisp/log-view.el
--- a/lisp/log-view.el	Tue Jan 24 18:35:25 2006 +0000
+++ b/lisp/log-view.el	Tue Jan 24 18:43:22 2006 +0000
@@ -1,7 +1,7 @@
 ;;; log-view.el --- Major mode for browsing RCS/CVS/SCCS log output
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
+;;           Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: rcs sccs cvs log version-control
@@ -225,8 +225,8 @@
 
 (defun log-view-minor-wrap (buf f)
   (let ((data (with-current-buffer buf
-		(let* ((beg (if mark-active (region-beginning) (point)))
-		       (end (if mark-active (region-end) (point)))
+		(let* ((beg (point))
+		       (end (if mark-active (mark) (point)))
 		       (fr (log-view-current-tag beg))
 		       (to (log-view-current-tag end)))
 		  (when (string-equal fr to)
@@ -235,8 +235,11 @@
 		      (log-view-msg-next)
 		      (setq to (log-view-current-tag))))
 		  (cons
-		   (cons (log-view-current-file) to)
-		   (cons (log-view-current-file) fr))))))
+                   ;; The first revision has to be the one at point, for
+                   ;; operations that only take one revision
+                   ;; (e.g. cvs-mode-edit).
+		   (cons (log-view-current-file) fr)
+		   (cons (log-view-current-file) to))))))
     (let ((cvs-branch-prefix (cdar data))
 	  (cvs-secondary-branch-prefix (and (cdar data) (cddr data)))
 	  (cvs-minor-current-files