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

Make magit ask for ssh passphrase

Browse source 
Thanks to Rüdiger Sonderfeld <ruediger@c-plusplus.de>
This commit is contained in:
Rémi Vanicat 2010-02-23 08:00:47 +01:00
parent e70654686c
commit dc48483ad6
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
magit.el
View file

@ -1074,10 +1074,21 @@ Many Magit faces inherit from this one by default."
(magit-set-mode-line-process nil) (magit-set-mode-line-process nil)
(magit-refresh-buffer magit-process-client-buffer))) (magit-refresh-buffer magit-process-client-buffer)))
(defun magit-password (proc string)
"Checks if git/ssh asks for a password and ask the user for it."
(when (string-match "^Enter passphrase for key '\\\(.*\\\)': $" string)
(process-send-string proc
(concat (read-passwd
(format "Password for '%s': " (match-string 1 string))
nil) "\n"))))
(defun magit-process-filter (proc string) (defun magit-process-filter (proc string)
(save-current-buffer (save-current-buffer
(set-buffer (process-buffer proc)) (set-buffer (process-buffer proc))
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(magit-password proc string)
(goto-char (process-mark proc)) (goto-char (process-mark proc))
;; Find last ^M in string. If one was found, ignore everything ;; Find last ^M in string. If one was found, ignore everything
;; before it and delete the current line. ;; before it and delete the current line.