mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(log-view-diff): Replace interactive code "r"

Browse source 
by a list to allow to call it even if region is not active.
This commit is contained in:
Juri Linkov 2004-04-27 06:42:48 +00:00
parent 836bb47866
commit da4ae7d3d8
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/log-view.el
View file

@ -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)