mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

Add save-some-buffers-root to save-some-buffers-default-predicate (bug#46374)

Browse Source 
* lisp/files.el (save-some-buffers-default-predicate): Add choice
'save-some-buffers-root'.
(save-some-buffers-root): New predicate function.
(save-some-buffers): Check if 'pred' returns a lexically-bound lambda,
then use it as 'pred'.

Thanks to Tino Calancha <tino.calancha@gmail.com>
This commit is contained in:
Juri Linkov 2021-08-13 10:10:29 +03:00
parent c4d34d24e3
commit a9ad3d4774
2 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
etc/NEWS
View File

@ -354,6 +354,11 @@ by dragging the tab lines of their topmost windows with the mouse.
* Editing Changes in Emacs 28.1
** New value 'save-some-buffers-root' of 'save-some-buffers-default-predicate'.
It allows to ask about saving only files under the project root
or in subdirectories of the directory that was default during
command invocation.
---
** Dragging a file to Emacs will now also push the name of the file
onto 'file-name-history'.

21
lisp/files.el
View File

@ -5727,9 +5727,23 @@ be saved."
:group 'auto-save
;; FIXME nil should not be a valid option, let alone the default,
;; eg so that add-function can be used.
:type '(choice (const :tag "Default" nil) function)
:type '(choice (const :tag "Default" nil)
(function :tag "Only in subdirs of root"
save-some-buffers-root)
(function :tag "Custom function"))
:version "26.1")
(defun save-some-buffers-root ()
"A predicate to check whether the buffer is under the root directory.
Can be used as a value of `save-some-buffers-default-predicate'
to save buffers only under the project root or in subdirectories
of the directory that was default during command invocation."
(let ((root (or (and (featurep 'project) (project-current)
(fboundp 'project-root)
(project-root (project-current)))
default-directory)))
(lambda () (file-in-directory-p default-directory root))))
(defun save-some-buffers (&optional arg pred)
"Save some modified file-visiting buffers. Asks user about each one.
You can answer `y' or SPC to save, `n' or DEL not to save, `C-r'
@ -5758,6 +5772,11 @@ change the additional actions you can take on files."
(interactive "P")
(unless pred
(setq pred save-some-buffers-default-predicate))
;; Allow `pred' to be a function that returns a predicate
;; with lexical bindings in its original environment (bug#46374).
(let ((pred-fun (and (functionp pred) (funcall pred))))
(when (functionp pred-fun)
(setq pred pred-fun)))
(let* ((switched-buffer nil)
(save-some-buffers--switch-window-callback
(lambda (buffer)