From: Juri Linkov <juri@linkov.net>
Date: Tue, 6 Feb 2024 17:55:41 +0000 (+0200)
Subject: Use new variable Buffer-menu-show-internal in project-list-buffers.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81b60175f5a8ec94dd4deaf6e828d78e4e227977;p=emacs.git

Use new variable Buffer-menu-show-internal in project-list-buffers.

* lisp/progmodes/project.el (project-list-buffers): Add the new variable
`Buffer-menu-show-internal' used to toggle internal buffers (bug#68949).

(cherry picked from commit ce7365b591852dd5556e0a4bf6a0ba63a8733802)
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 9996a3aa556..916a031ec60 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1510,7 +1510,8 @@ ARG, show only buffers that are visiting files."
              (lambda (buffer)
                (let ((name (buffer-name buffer))
                      (file (buffer-file-name buffer)))
-                 (and (or (not (string= (substring name 0 1) " "))
+                 (and (or Buffer-menu-show-internal
+                          (not (string= (substring name 0 1) " "))
                           file)
                       (not (eq buffer (current-buffer)))
                       (or file (not Buffer-menu-files-only)))))
@@ -1520,6 +1521,7 @@ ARG, show only buffers that are visiting files."
          (let ((buf (list-buffers-noselect
                      arg (with-current-buffer
                              (get-buffer-create "*Buffer List*")
+                           (setq-local Buffer-menu-show-internal nil)
                            (let ((Buffer-menu-files-only arg))
                              (funcall buffer-list-function))))))
            (with-current-buffer buf