[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d2f956807e: project--buffer-list: Remove as unused
From: |
Dmitry Gutov |
Subject: |
master d2f956807e: project--buffer-list: Remove as unused |
Date: |
Fri, 11 Nov 2022 20:35:35 -0500 (EST) |
branch: master
commit d2f956807e87d1a4797a8686725912c780061a58
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
project--buffer-list: Remove as unused
* lisp/progmodes/project.el (project--buffer-list):
Remove as unused (pointed out in bug#59153 by Juri).
---
lisp/progmodes/project.el | 15 ---------------
1 file changed, 15 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index fc035675ce..d2ce684c1b 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1283,21 +1283,6 @@ Used by `project-kill-buffers'."
:package-version '(project . "0.8.2")
:safe #'booleanp)
-(defun project--buffer-list (pr)
- "Return the list of all buffers in project PR."
- (let ((conn (file-remote-p (project-root pr)))
- bufs)
- (dolist (buf (buffer-list))
- ;; For now we go with the assumption that a project must reside
- ;; entirely on one host. We might relax that in the future.
- (when (and (equal conn
- (file-remote-p (buffer-local-value 'default-directory
buf)))
- (equal pr
- (with-current-buffer buf
- (project-current))))
- (push buf bufs)))
- (nreverse bufs)))
-
(defun project--buffer-check (buf conditions)
"Check if buffer BUF matches any element of the list CONDITIONS.
See `project-kill-buffer-conditions' or
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d2f956807e: project--buffer-list: Remove as unused,
Dmitry Gutov <=