diff options
| author | Dmitry Gutov | 2020-06-26 03:27:39 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2020-06-26 03:43:14 +0300 |
| commit | beaff813e1f744c93b7f40020f88dae1ef797596 (patch) | |
| tree | e966e781ffa8b89b84f8a13efb6f6b473e4bad66 | |
| parent | 511ddaaed09c39f7bffa357727df4d02df903a3c (diff) | |
| download | emacs-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.el | 9 |
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. |
| 829 | Each condition is either a regular expression matching a buffer | 829 | 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 | |||
| 831 | argument and returns non-nil if it matches. Buffers that match | 831 | argument and returns non-nil if it matches. Buffers that match |
| 832 | any of the conditions will not be killed." | 832 | any 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. |
| 850 | Certain buffers may be \"spared\", see `project-kill-buffers-skip-conditions'." | 851 | Certain 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))) |