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.

diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index 5e137b21fbb4b0b81742f76fac8b8f0aa455bb5f..be9cf06c5234ba53d9e6bcba8c283be69bff7275 100644 (file)
--- 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 a65795f1dfc37213f60cc2989bdab2ad5f3ee63f..8df2e52b0e779def938ecf88957365641e0073b3 100644 (file)
--- 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