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

Let magit-status always ask for the directory.

Browse source 
* magit.el (magit-read-top-dir): Removed 'prefix' argument.  Always ask.
This commit is contained in:
Marius Vollmer 2008-09-25 23:21:59 +03:00
parent 87a437fab9
commit 0e1d9ddbbb
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
magit.el
View file

@ -192,11 +192,10 @@ Many Magit faces inherit from this one by default."
(substring head 11) (substring head 11)
nil))) nil)))
(defun magit-read-top-dir (prefix) (defun magit-read-top-dir ()
(let ((dir (magit-get-top-dir default-directory))) (magit-get-top-dir
(if (or (not dir) prefix) (read-directory-name "Git repository: "
(magit-get-top-dir (read-directory-name "Git repository: " dir)) (magit-get-top-dir default-directory))))
dir)))
(defun magit-name-rev (rev) (defun magit-name-rev (rev)
(and rev (and rev
@ -1247,7 +1246,7 @@ Please see the manual for a complete description of Magit.
(magit-insert-unpushed-commits remote branch)))))) (magit-insert-unpushed-commits remote branch))))))
(defun magit-status (dir) (defun magit-status (dir)
(interactive (list (magit-read-top-dir current-prefix-arg))) (interactive (list (magit-read-top-dir)))
(save-some-buffers) (save-some-buffers)
(let* ((topdir (magit-get-top-dir dir)) (let* ((topdir (magit-get-top-dir dir))
(buf (or (magit-find-buffer 'status topdir) (buf (or (magit-find-buffer 'status topdir)