Function: save-some-buffers-root

save-some-buffers-root is a byte-compiled function defined in files.el.gz.

Signature

(save-some-buffers-root)

Documentation

A predicate to check whether the buffer is under the project 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.

Probably introduced at or before Emacs version 28.1.

Source Code

;; Defined in /usr/src/emacs/lisp/files.el.gz
(defun save-some-buffers-root ()
  "A predicate to check whether the buffer is under the project 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))))