procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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.
This commit is contained in:
Mattias Engdegård 2023-05-01 17:22:02 +02:00
parent 7acb3f1c06
commit aa135e09b6
2 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/cl-macs.el
View file

@ -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

3
lisp/progmodes/python.el
View file

@ -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'."