emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]