[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master beaff81 1/3: Rename project-kill-buffers-{skip-conditions, ignore
From: |
Dmitry Gutov |
Subject: |
master beaff81 1/3: Rename project-kill-buffers-{skip-conditions, ignores} |
Date: |
Thu, 25 Jun 2020 20:43:41 -0400 (EDT) |
branch: master
commit beaff813e1f744c93b7f40020f88dae1ef797596
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
Rename project-kill-buffers-{skip-conditions,ignores}
* lisp/progmodes/project.el (project-kill-buffers-ignores):
Rename from project-kill-buffers-skip-conditions (bug#41868).
Update both references.
Add a :package-version attribute.
---
lisp/progmodes/project.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 42715dc..e1adabd 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -823,7 +823,7 @@ is inside the directory hierarchy of the project's root."
nil
predicate))))
-(defcustom project-kill-buffers-skip-conditions
+(defcustom project-kill-buffers-ignores
'("\\*Help\\*")
"Conditions for buffers `project-kill-buffers' should not kill.
Each condition is either a regular expression matching a buffer
@@ -831,7 +831,8 @@ name, or a predicate function that takes a buffer object as
argument and returns non-nil if it matches. Buffers that match
any of the conditions will not be killed."
:type '(repeat (choice regexp function))
- :version "28.1")
+ :version "28.1"
+ :package-version '(project . "0.5.0"))
(defun project--buffer-list (pr)
"Return the list of all buffers in project PR."
@@ -847,7 +848,7 @@ any of the conditions will not be killed."
;;;###autoload
(defun project-kill-buffers ()
"Kill all live buffers belonging to the current project.
-Certain buffers may be \"spared\", see `project-kill-buffers-skip-conditions'."
+Certain buffers may be \"spared\", see `project-kill-buffers-ignores'."
(interactive)
(let ((pr (project-current t)) bufs)
(dolist (buf (project--buffer-list pr))
@@ -857,7 +858,7 @@ Certain buffers may be \"spared\", see
`project-kill-buffers-skip-conditions'."
(string-match-p c (buffer-name buf)))
((functionp c)
(funcall c buf))))
- project-kill-buffers-skip-conditions)
+ project-kill-buffers-ignores)
(push buf bufs)))
(when (yes-or-no-p (format "Kill %d buffers in %s? "
(length bufs) (project-root pr)))