# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1083048168 0
# Node ID e7a5be902830a87601d8f42b6a3c909b53b251ee
# Parent  084cf910857bf34c0bebaeeb4f9b9bd1db89cd82
(log-view-diff): Replace interactive code "r"
by a list to allow to call it even if region is not active.

diff -r 084cf910857b -r e7a5be902830 lisp/log-view.el
--- a/lisp/log-view.el	Tue Apr 27 06:39:46 2004 +0000
+++ b/lisp/log-view.el	Tue Apr 27 06:42:48 2004 +0000
@@ -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)