From: Juri Linkov <juri@jurta.org>
Date: Tue, 27 Apr 2004 06:42:48 +0000 (+0000)
Subject: (log-view-diff): Replace interactive code "r"
X-Git-Tag: ttn-vms-21-2-B4~6570
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da4ae7d3d80a2b1b8bb0b8baf1ecb488f2ef52ca;p=emacs.git

(log-view-diff): Replace interactive code "r"
by a list to allow to call it even if region is not active.
---

diff --git a/lisp/log-view.el b/lisp/log-view.el
index a6f736d16f7..51ca8907db8 100644
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -191,8 +191,10 @@
   "Get the diff for several revisions.
 If the point is the same as the mark, get the diff for this revision.
 Otherwise, get the diff between the revisions
- were the region starts and ends."
-  (interactive "r")
+were the region starts and ends."
+  (interactive
+   (list (if mark-active (region-beginning) (point))
+         (if mark-active (region-end) (point))))
   (let ((fr (log-view-current-tag beg))
         (to (log-view-current-tag end)))
     (when (string-equal fr to)