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

Make buffer saving behavior customizable.

Browse source 
Thanks, Geralt!

* magit.el (magit-save-some-buffers): New.
(magit-status): Use it.
This commit is contained in:
Marius Vollmer 2009-01-19 00:56:12 +02:00
parent 64b8265ad3
commit 3d34a7ca21
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
magit.el
View file

@ -53,6 +53,15 @@
:prefix "magit-" :prefix "magit-"
:group 'tools) :group 'tools)
(defcustom magit-save-some-buffers t
"Non-nil means that \\[magit-status] will save modified buffers before running.
Setting this to t will ask which buffers to save, setting it to 'dontask will
save all modified buffers without asking."
:group 'magit
:type '(choice (const :tag "Never" nil)
(const :tag "Ask" t)
(const :tag "Save without asking" dontask)))
(defface magit-header (defface magit-header
'((t)) '((t))
"Face for generic header lines. "Face for generic header lines.
@ -1507,7 +1516,8 @@ in log buffer."
(defun magit-status (dir) (defun magit-status (dir)
(interactive (list (magit-read-top-dir))) (interactive (list (magit-read-top-dir)))
(save-some-buffers) (if magit-save-some-buffers
(save-some-buffers (eq magit-save-some-buffers 'dontask)))
(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)
(switch-to-buffer (switch-to-buffer