gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Offer completion for 'l' and 'L' and allow end to be specified as well.

Browse source 
* magit.el (magit-read-rev-range): Don't do anything special when
current-prefix-arg is set.
(magit-log): Use magit-read-rev-range instead of read-string.
(magit-log-long): Likewise.
This commit is contained in:
Marius Vollmer 2009-02-05 22:23:57 +02:00
parent 26d1719fe1
commit d65806bd35
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
magit.el
View file

@ -323,14 +323,12 @@ Many Magit faces inherit from this one by default."
rev)))
(defun magit-read-rev-range (op &optional def-beg def-end)
(if current-prefix-arg
(read-string (format "%s range: " op))
(let ((beg (magit-read-rev (format "%s start" op)
def-beg)))
(if (not beg)
nil
(let ((end (magit-read-rev (format "%s end" op) def-end)))
(cons beg end))))))
(let ((beg (magit-read-rev (format "%s start" op)
def-beg)))
(if (not beg)
nil
(let ((end (magit-read-rev (format "%s end" op) def-end)))
(cons beg end)))))
(defun magit-rev-to-git (rev)
(or rev
@ -2253,7 +2251,7 @@ Prefix arg means justify as well."
(defun magit-log (&optional arg)
(interactive "P")
(let* ((range (if arg
(read-string "Show log for (default is HEAD): ")
(magit-read-rev-range "Log" "HEAD")
"HEAD"))
(topdir (magit-get-top-dir default-directory))
(args (magit-rev-range-to-git range)))
@ -2264,7 +2262,7 @@ Prefix arg means justify as well."
(defun magit-log-long (&optional arg)
(interactive "P")
(let* ((range (if arg
(read-string "Show long log for (default is HEAD): ")
(magit-read-rev-range "Long log" "HEAD")
"HEAD"))
(topdir (magit-get-top-dir default-directory))
(args (magit-rev-range-to-git range)))