GNU bug report logs - #42668
26.1; Undefined functions when calling invoking project.el

Previous Next

Full log

Message #14 received at 42668 <at> debbugs.gnu.org (full text, mbox):

From: "Philip K." <philipk <at> posteo.net>
To: Eli Zaretskii <eliz <at> gnu.org>
Cc: 42668 <at> debbugs.gnu.org
Subject: Re: bug#42668: 26.1; Undefined functions when calling invoking
 project.el
Date: Mon, 03 Aug 2020 00:02:34 +0200

[Message part 1 (text/plain, inline)]

> To make sure I understand the report: you are using project.el from
> GNU ELPA in conjunction with Emacs 26?

I see that seq has been added as a dependency in the git repository
(that appears to not have been released to ELPA yet).

The patch attached below should fix the assoc-delete-all issue.

-- 
	Philip K.

[0001-Replace-assoc-delete-all-with-26.1-compatible-altern.patch (text/x-diff, inline)]

From 4c073d987273807ff7bfb932d72c584afdad9315 Mon Sep 17 00:00:00 2001
From: Philip K <philipk <at> posteo.net>
Date: Sun, 2 Aug 2020 23:59:40 +0200
Subject: [PATCH] Replace assoc-delete-all with 26.1 compatible alternatives

---
 lisp/progmodes/project.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 51b9347bb9..06864ccf60 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1166,7 +1166,9 @@ project-remember-project
   (project--ensure-read-project-list)
   (let ((dir (project-root pr)))
     (unless (equal (caar project--list) dir)
-      (setq project--list (assoc-delete-all dir project--list))
+      (dolist (elem project--list)
+        (when (equal dir (car elem))
+          (setq project--list (delq elem project--list))))
       (push (list dir) project--list)
       (project--write-project-list))))
 
@@ -1176,8 +1178,8 @@ project--remove-from-project-list
 result in `project-list-file'.  Announce the project's removal
 from the list."
   (project--ensure-read-project-list)
-  (when (assoc pr-dir project--list)
-    (setq project--list (assoc-delete-all pr-dir project--list))
+  (when-let ((ent (assoc pr-dir project--list)))
+    (delq ent project--list)
     (message "Project `%s' not found; removed from list" pr-dir)
     (project--write-project-list)))
 
-- 
2.20.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.