Mercurial > emacs
changeset 68370:89e7eb7d165b
(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 | 3422c551ad06 |
| children | 05d6eb9afa08 |
| files | lisp/ChangeLog lisp/log-view.el |
| diffstat | 2 files changed, 12 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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