emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 73582ed6d4f: Use return values of assq-delete-all and assoc-delet


From: Mattias Engdegård
Subject: master 73582ed6d4f: Use return values of assq-delete-all and assoc-delete-all
Date: Wed, 24 May 2023 05:37:37 -0400 (EDT)

branch: master
commit 73582ed6d4f227216d4c56c3f5f98c56e48796ca
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]