aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2020-06-26 03:27:39 +0300
committerDmitry Gutov2020-06-26 03:43:14 +0300
commitbeaff813e1f744c93b7f40020f88dae1ef797596 (patch)
treee966e781ffa8b89b84f8a13efb6f6b473e4bad66
parent511ddaaed09c39f7bffa357727df4d02df903a3c (diff)
downloademacs-beaff813e1f744c93b7f40020f88dae1ef797596.tar.gz
emacs-beaff813e1f744c93b7f40020f88dae1ef797596.zip
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.
-rw-r--r--lisp/progmodes/project.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 42715dc9dcf..e1adabd2f97 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."
823 nil 823 nil
824 predicate)))) 824 predicate))))
825 825
826(defcustom project-kill-buffers-skip-conditions 826(defcustom project-kill-buffers-ignores
827 '("\\*Help\\*") 827 '("\\*Help\\*")
828 "Conditions for buffers `project-kill-buffers' should not kill. 828 "Conditions for buffers `project-kill-buffers' should not kill.
829Each condition is either a regular expression matching a buffer 829Each condition is either a regular expression matching a buffer
@@ -831,7 +831,8 @@ name, or a predicate function that takes a buffer object as
831argument and returns non-nil if it matches. Buffers that match 831argument and returns non-nil if it matches. Buffers that match
832any of the conditions will not be killed." 832any of the conditions will not be killed."
833 :type '(repeat (choice regexp function)) 833 :type '(repeat (choice regexp function))
834 :version "28.1") 834 :version "28.1"
835 :package-version '(project . "0.5.0"))
835 836
836(defun project--buffer-list (pr) 837(defun project--buffer-list (pr)
837 "Return the list of all buffers in project PR." 838 "Return the list of all buffers in project PR."
@@ -847,7 +848,7 @@ any of the conditions will not be killed."
847;;;###autoload 848;;;###autoload
848(defun project-kill-buffers () 849(defun project-kill-buffers ()
849 "Kill all live buffers belonging to the current project. 850 "Kill all live buffers belonging to the current project.
850Certain buffers may be \"spared\", see `project-kill-buffers-skip-conditions'." 851Certain buffers may be \"spared\", see `project-kill-buffers-ignores'."
851 (interactive) 852 (interactive)
852 (let ((pr (project-current t)) bufs) 853 (let ((pr (project-current t)) bufs)
853 (dolist (buf (project--buffer-list pr)) 854 (dolist (buf (project--buffer-list pr))
@@ -857,7 +858,7 @@ Certain buffers may be \"spared\", see `project-kill-buffers-skip-conditions'."
857 (string-match-p c (buffer-name buf))) 858 (string-match-p c (buffer-name buf)))
858 ((functionp c) 859 ((functionp c)
859 (funcall c buf)))) 860 (funcall c buf))))
860 project-kill-buffers-skip-conditions) 861 project-kill-buffers-ignores)
861 (push buf bufs))) 862 (push buf bufs)))
862 (when (yes-or-no-p (format "Kill %d buffers in %s? " 863 (when (yes-or-no-p (format "Kill %d buffers in %s? "
863 (length bufs) (project-root pr))) 864 (length bufs) (project-root pr)))