From 73582ed6d4f227216d4c56c3f5f98c56e48796ca Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Wed, 24 May 2023 11:30:53 +0200 Subject: [PATCH] Use return values of assq-delete-all and assoc-delete-all * lisp/allout-widgets.el (allout-widgets-mode): * lisp/progmodes/eglot.el (eglot-handle-notification): Update variables with the new value, which was probably the intention here. --- lisp/allout-widgets.el | 3 ++- lisp/progmodes/eglot.el | 4 +++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index 5e137b21fbb..be9cf06c523 100644 --- a/lisp/allout-widgets.el +++ b/lisp/allout-widgets.el @@ -613,7 +613,8 @@ outline hot-spot navigation (see `allout-mode')." #'allout-widgets-post-command-business 'local) (remove-hook 'pre-command-hook #'allout-widgets-pre-command-business 'local) - (assq-delete-all 'allout-widgets-mode-inhibit minor-mode-alist) + (setq minor-mode-alist + (assq-delete-all 'allout-widgets-mode-inhibit minor-mode-alist)) (set-buffer-modified-p was-modified)))) ;;;_ > allout-widgets-mode-off (defun allout-widgets-mode-off () diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index a65795f1dfc..8df2e52b0e7 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -2277,7 +2277,9 @@ still unanswered LSP requests to the server\n"))) (buffer (find-buffer-visiting path))) (with-current-buffer buffer (cl-loop - initially (assoc-delete-all path flymake-list-only-diagnostics) + initially + (setq flymake-list-only-diagnostics + (assoc-delete-all path flymake-list-only-diagnostics)) for diag-spec across diagnostics collect (eglot--dbind ((Diagnostic) range code message severity source tags) diag-spec -- 2.39.2