Declare `cl-delete` to have important-return-value (bug#61730)

* lisp/emacs-lisp/cl-macs.el: Set property on `cl-delete`.
* lisp/progmodes/python.el (python-shell--add-to-path-with-priority):
Prevent warning by cleaner code.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 04567917189b2f4088976a24cf9d4ca236ea9518..8fdafe18c5035ca1323ba8aa8e30016af9795f1e 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -3683,8 +3683,7 @@ macro that returns its `&whole' argument."
          cl-tree-equal
 
          ;; Functions that mutate and return a list.
-         ;;cl-delete
-         cl-delete-if cl-delete-if-not
+         cl-delete cl-delete-if cl-delete-if-not
          cl-delete-duplicates
          cl-nsubst cl-nsubst-if cl-nsubst-if-not
          cl-nsubstitute cl-nsubstitute-if cl-nsubstitute-if-not

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 5bb15c609564d85cad19495a1ea27f5c8895f231..f9b645cc3dfdff354060467ba1e544adedcd3d13 100644 (file)
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -2720,8 +2720,7 @@ dedicated to the current buffer or its project (if one is found)."
 (defmacro python-shell--add-to-path-with-priority (pathvar paths)
   "Modify PATHVAR and ensure PATHS are added only once at beginning."
   `(dolist (path (reverse ,paths))
-     (cl-delete path ,pathvar :test #'string=)
-     (cl-pushnew path ,pathvar :test #'string=)))
+     (setq ,pathvar (cons path (cl-delete path ,pathvar :test #'string=)))))
 
 (defun python-shell-calculate-pythonpath ()
   "Calculate the PYTHONPATH using `python-shell-extra-pythonpaths'."