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

completing-read-configuration: Great with anything-completing-read' or perhaps ido-completing-read'.

Browse source 
* magit.el: Added `magit-completing-read' variable, replaced `completing-read' references.
This commit is contained in:
Phil Jackson 2009-10-28 20:19:02 +00:00
parent e38987412d
commit c368295a32
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
magit.el
View file

@ -207,6 +207,9 @@ Many Magit faces inherit from this one by default."
"Face for branch head labels shown in log buffer."
:group 'magit)
(defvar magit-completing-read 'completing-read
"Function to be called when requesting input from the user.")
;;; Macros
(defmacro magit-with-refresh (&rest body)
@ -362,7 +365,7 @@ Many Magit faces inherit from this one by default."
(defun magit-read-top-dir (rawp)
(if (and (not rawp) magit-repo-dirs)
(let* ((repos (magit-list-repos magit-repo-dirs))
(reply (completing-read "Git repository: "
(reply (funcall magit-completing-read "Git repository: "
(magit-list-repos magit-repo-dirs))))
(file-name-as-directory
(cdr (assoc reply repos))))
@ -449,7 +452,7 @@ Many Magit faces inherit from this one by default."
(format "%s (default %s): " prompt def)
(format "%s: " prompt)))
(interesting-refs (magit-list-interesting-refs))
(reply (completing-read prompt interesting-refs
(reply (funcall magit-completing-read prompt interesting-refs
nil nil nil nil def))
(rev (or (cdr (assoc reply interesting-refs)) reply)))
(if (string= rev "")
@ -2371,7 +2374,7 @@ in log buffer."
(magit-run* args nil nil nil t)))
(defun magit-read-remote (prompt def)
(completing-read (if def
(funcall magit-completing-read (if def
(format "%s (default %s): " prompt def)
(format "%s: " prompt))
(magit-git-lines "remote")