GNU bug report logs - #80360
31.0.50; project-forget-zombie-projects doesn't remove subprojects

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 8 Feb 2026 16:58:37 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sun Feb 08 11:58:37 2026
Received: from localhost ([127.0.0.1]:53182 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1vp87H-0002yd-AQ
	for submit <at> debbugs.gnu.org; Sun, 08 Feb 2026 11:58:37 -0500
Received: from lists.gnu.org ([2001:470:142::17]:32824)
 by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.84_2) (envelope-from <philipk@HIDDEN>)
 id 1vp87E-0002x9-SE
 for submit <at> debbugs.gnu.org; Sun, 08 Feb 2026 11:58:33 -0500
Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <philipk@HIDDEN>)
 id 1vp86y-0001w9-6Z
 for bug-gnu-emacs@HIDDEN; Sun, 08 Feb 2026 11:58:19 -0500
Received: from mout01.posteo.de ([185.67.36.65])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <philipk@HIDDEN>)
 id 1vp86s-0005pX-EA
 for bug-gnu-emacs@HIDDEN; Sun, 08 Feb 2026 11:58:15 -0500
Received: from submission (posteo.de [185.67.36.169]) 
 by mout01.posteo.de (Postfix) with ESMTPS id 94784240028
 for <bug-gnu-emacs@HIDDEN>; Sun,  8 Feb 2026 17:58:08 +0100 (CET)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=posteo.net; s=2017;
 t=1770569888; bh=a6t/F8PxH2zMKHTQeiucbOC2aiUrN3fkA09Wr8f77ls=;
 h=From:To:Subject:OpenPGP:Date:Message-ID:MIME-Version:Content-Type:
 From;
 b=L0+K6RXAZIbnQt9Vx+GDxpUk9+px75gaFR2t7w3Q/EfTiVpihPoeY682ZY80uWmJN
 y4z75FES/jeKb2Gt48tqaBorj7Q6RpQG5iyl35OHpg2rSD75jQJWv4IPDoCmqtN2Dy
 vLo3JUXJXi52he0dG4VEGOisjCxOChYfkX5WTK4MkLYyduryu3QW6fPcg1MuI8NX23
 dSMERI2prHwk66UsV80BphtUsoJ9C0CbrrAadsWxjVki6hcRfz1bgFz1KRnI0v6Zyu
 MSPI1JAMOrPkHTB4GOtnoX9++60cq4B8LuHrRyEcpF0tOPJg/WMZhI23Vsn0tuXZhd
 myATLShTPzPwQ==
Received: from customer (localhost [127.0.0.1])
 by submission (posteo.de) with ESMTPSA id 4f8DXw0dv5z9rxN
 for <bug-gnu-emacs@HIDDEN>; Sun,  8 Feb 2026 17:58:07 +0100 (CET)
From: Philip Kaludercic <philipk@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: 31.0.50; project-forget-zombie-projects doesn't remove subprojects
X-Debbugs-Cc: "Dmitry Gutov" <dmitry@HIDDEN>
OpenPGP: id=philipk@HIDDEN;
 url="https://keys.openpgp.org/vks/v1/by-email/philipk@HIDDEN";
 preference=signencrypt
Date: Sun, 08 Feb 2026 16:58:08 +0000
Message-ID: <87cy2fkw9s.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
Received-SPF: pass client-ip=185.67.36.65; envelope-from=philipk@HIDDEN;
 helo=mout01.posteo.de
X-Spam_score_int: -33
X-Spam_score: -3.4
X-Spam_bar: ---
X-Spam_report: (-3.4 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, LONGWORDS=1,
 RCVD_IN_DNSWL_MED=-2.3, RCVD_IN_MSPIKE_H2=0.001,
 RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001,
 SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 2.0 (++)
X-Spam-Report: Spam detection software, running on the system "debbugs.gnu.org",
 has NOT identified this incoming email as spam.  The original
 message has been attached to this so you can view it or label
 similar future email.  If you have any questions, see
 the administrator of that system for details.
 Content preview:  If I adjust `project-vc-extra-root-markers' to search for
 TAGS files, and then add a TAGS file in a subdirectory of a Git project, both
 directories are remembered as projects. This is intentional, the [...] 
 Content analysis details:   (2.0 points, 10.0 required)
 pts rule name              description
 ---- ---------------------- --------------------------------------------------
 -0.0 SPF_HELO_PASS          SPF: HELO matches SPF record
 1.0 SPF_SOFTFAIL           SPF: sender does not match SPF record (softfail)
 -0.0 RCVD_IN_DNSWL_NONE     RBL: Sender listed at https://www.dnswl.org/,
 no trust [2001:470:142:0:0:0:0:17 listed in] [list.dnswl.org]
 1.0 LONGWORDS              Long string of long words
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: 1.0 (+)

--=-=-=
Content-Type: text/plain


If I adjust `project-vc-extra-root-markers' to search for TAGS files,
and then add a TAGS file in a subdirectory of a Git project, both
directories are remembered as projects.  This is intentional, the issue
is that if I delete the TAGS file the subdirectory project remains a
remembered project.  I would propose a change along the following lines,
to ensure that we don't just check if the directory still exists, but if
the project roots match up:


--=-=-=
Content-Type: text/x-patch
Content-Disposition: inline

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 997c876b1fa..e26b5a2e4f1 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -2416,8 +2416,10 @@ project--delete-zombie-projects
 PREDICATE can be a function with 1 argument which determines which
 projects should be deleted."
   (dolist (proj (project-known-project-roots))
-    (when (and (funcall (or predicate #'identity) proj)
-               (not (file-exists-p proj)))
+    (when-let* ((_ (funcall (or predicate #'identity) proj))
+                (proj* (project-current nil proj))
+                (root (project-root proj*))
+                (_ (file-equal-p root proj)))
       (project-forget-project proj))))
 
 (defun project-forget-zombie-projects (&optional interactive)

--=-=-=
Content-Type: text/plain


Comments?

In GNU Emacs 31.0.50 (build 3, x86_64-pc-linux-gnu, GTK+ Version
 3.24.49, cairo version 1.18.4) of 2026-02-07 built on siskin
Repository revision: 1aabe135e644a5f8703cd6d6eac0402b728c9cd3
Repository branch: feature/package-autosuggest
System Description: Debian GNU/Linux 13 (trixie)

Configured using:
 'configure --with-pgtk'

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
LCMS2 LIBOTF LIBSELINUX LIBSYSTEMD LIBXML2 MODULES NATIVE_COMP NOTIFY
INOTIFY PDUMPER PGTK PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF
TOOLKIT_SCROLL_BARS TREE_SITTER WEBP XIM GTK3 ZLIB

Important settings:
  value of $LC_MONETARY: en_GB.UTF-8
  value of $LC_NUMERIC: en_GB.UTF-8
  value of $LC_TIME: en_GB.UTF-8
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: @im=ibus
  locale-coding-system: utf-8-unix

Major mode: Message

Minor modes in effect:
  gnus-message-citation-mode: t
  writegood-mode: t
  mml-mode: t
  flyspell-mode: t
  repeat-mode: t
  display-battery-mode: t
  display-time-mode: t
  override-global-mode: t
  winner-mode: t
  windmove-mode: t
  corfu-history-mode: t
  editorconfig-mode: t
  electric-pair-mode: t
  recentf-mode: t
  save-place-mode: t
  savehist-mode: t
  pixel-scroll-precision-mode: t
  pixel-scroll-mode: t
  package-autosuggest-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tab-bar-mode: t
  file-name-shadow-mode: t
  context-menu-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  minibuffer-nonselected-mode: t
  minibuffer-regexp-mode: t
  line-number-mode: t
  auto-fill-function: message-do-auto-fill
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
/home/phi/.config/emacs/user-lisp/0x0/0x0 hides /home/phi/.config/emacs/user-lisp/0x0
/home/phi/.config/emacs/user-lisp/shell-command+/shell-command+ hides /home/phi/.config/emacs/elpa/shell-command+/shell-command+
/home/phi/.config/emacs/user-lisp/shell-command+/shell-command+-tests hides /home/phi/.config/emacs/elpa/shell-command+/shell-command+-tests
/home/phi/.config/emacs/user-lisp/vc-backup/vc-backup hides /home/phi/.config/emacs/elpa/vc-backup/vc-backup

Features:
(shadow emacsbug do-at-point flow-fill shortdoc pg-custom proof-config
proof-faces proof-useropts pg-vars pg-pamacs proof-compat lprolog-mode
prolog smie align loadhist help-fns vc-annotate pulse face-remap
find-func xref shr-color color mm-archive smiley gnus-async gnus-bcklg
mailalias smtpmail textsec uni-scripts idna-mapping ucs-normalize
uni-confusable textsec-check sort gnus-cite ecomplete mail-extr crm
cl-print hippie-exp copyright writegood-mode cursor-sensor smerge-mode
whitespace bug-reference vc-backup diff vc-hg vc-bzr vc-src vc-sccs
vc-svn vc-cvs vc-rcs log-view log-edit add-log pcvs-util vc-dir ewoc vc
dired-aux autorevert filenotify gnus-dired tramp-archive tramp-gvfs
zeroconf avy char-fold misearch multi-isearch qp gnus-ml disp-table
nndraft nnmh utf-7 nnfolder epa-file network-stream nsm gnus-agent
gnus-srvr gnus-score score-mode nnvirtual gnus-msg gnus-art mm-uu
mml2015 mm-view mml-smime smime gnutls dig nntp gnus-cache gnus-sum shr
pixel-fill kinsoku url-file svg dom gnus-group gnus-undo gnus-start
gnus-dbus gnus-cloud nnimap nnmail mail-source utf7 nnoo gnus-spec
gnus-int gnus-range message yank-media puny rfc822 mml mml-sec epa
mm-decode mm-bodies mm-encode mailabbrev gmm-utils mailheader gnus-win
vc-git diff-mode track-changes vc-dispatcher byte-opt help-at-pt
noutline outline edmacro kmacro flyspell ispell checkdoc flymake project
generator init repeat battery dbus xml shell-command+ thingatpt dired-x
dired dired-loaddefs holidays holiday-loaddefs cal-menu calendar
cal-loaddefs time sendmail mail-parse rfc2231 gnus nnheader gnus-util
range rmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils
bind-key winner windmove corfu-history corfu compat editorconfig
editorconfig-core editorconfig-core-handle editorconfig-fnmatch
elec-pair tramp-rpc comp comp-cstr warnings tramp-rpc-deploy
tramp-rpc-protocol msgpack tramp-sh tramp-cache time-stamp tramp
trampver tramp-integration files-x tramp-message tramp-compat shell
pcomplete parse-time iso8601 time-date format-spec tramp-loaddefs
recentf easy-mmode tree-widget saveplace savehist pixel-scroll cus-edit
pp cus-start cus-load wid-edit setup .user-lisp-autoloads loaddefs-gen
lisp-mnt radix-tree compile text-property-search comint ansi-osc
ansi-color ring comp-run comp-common bytecomp byte-compile
auctex-autoloads tex-site avy-autoloads bash-completion-autoloads
corfu-autoloads debbugs-autoloads diff-hl-autoloads focus-autoloads
go-mode-autoloads iedit-autoloads markdown-mode-autoloads
minimail-autoloads ngnk-mode-autoloads package-lint-autoloads
proof-general-autoloads proof-site proof-autoloads
shell-command+-autoloads info slime-autoloads macrostep-autoloads
sml-mode-autoloads tramp-rpc-autoloads msgpack-autoloads finder-inf
vc-backup-autoloads writegood-mode-autoloads package let-alist derived
rx pcase browse-url xdg url url-proxy url-privacy url-expand url-methods
url-history url-cookie generate-lisp-file url-domsuf url-util mailcap
url-handlers url-parse auth-source cl-seq eieio eieio-core cl-macs gv
password-cache json map url-vars inline epg rfc6068 epg-config subr-x
mule-util cl-extra help-mode icons cl-loaddefs cl-lib package-activate
rmc iso-transl tooltip cconv eldoc paren electric uniquify ediff-hook
vc-hooks lisp-float-type elisp-mode mwheel term/pgtk-win pgtk-win
term/common-win touch-screen pgtk-dnd tool-bar dnd fontset image
regexp-opt fringe tabulated-list replace newcomment text-mode lisp-mode
prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu
timer select scroll-bar mouse jit-lock font-lock syntax font-core
term/tty-colors frame minibuffer nadvice seq simple cl-generic
indonesian philippine cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
composite emoji-zwj charscript charprop case-table epa-hook
jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs
theme-loaddefs faces cus-face macroexp files window text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget keymap
hashtable-print-readable backquote threads dbusbind inotify
dynamic-setting system-font-setting font-render-setting cairo gtk pgtk
lcms2 multi-tty move-toolbar make-network-process tty-child-frames
native-compile emacs)

Memory information:
((conses 16 718153 130052) (symbols 48 30797 423)
 (strings 32 145787 11042) (string-bytes 1 4350001) (vectors 16 81382)
 (vector-slots 8 1871181 258304) (floats 8 840 2150)
 (intervals 56 12433 4280) (buffers 1064 59))

--=-=-=--