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