From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 27 Apr 2025 12:31:46 +0000 (+0200)
Subject: Minor improvements
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=732ddff8ce353a935292f545e1ab8a3f46156657;p=emacs.git

Minor improvements
---

diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index dc56c35af8d..e46b4d55a11 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -2472,13 +2472,16 @@ Runs in a batch-mode Emacs.  Interactively use variable
   "Evaluate the forms in the active region or the whole current buffer.
 In Transient Mark mode when the mark is active, call `eval-region'.
 Otherwise, call `eval-buffer'."
-  (interactive)
-  (if (use-region-p)
-      (eval-region (region-beginning) (region-end))
-    (eval-buffer))
-  (message "Evaluated the %s%s buffer"
-           (if (use-region-p) "region in the " "")
-           (buffer-name)))
+  (interactive nil emacs-lisp-mode)
+  (if (not (or (trust-trusted-content-p)
+               (y-or-n-p "Buffer is untrusted, really evaluate?")))
+      (message "Canceled.")
+    (if (use-region-p)
+        (eval-region (region-beginning) (region-end))
+      (eval-buffer))
+    (message "Evaluated the %s%s buffer"
+             (if (use-region-p) "region in the " "")
+             (buffer-name))))
 
 (defun elisp-byte-compile-file (&optional load)
   "Byte compile the file the current buffer is visiting.
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 5008f800f4d..27f2199eca0 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -1365,24 +1365,15 @@ If MESSAGE-PREFIX, echo a message using that prefix."
 
 (defun flymake-running-backends ()
   "Compute running Flymake backends in current buffer."
-  (interactive)
-  (flymake--collect #'flymake--state-running
-                    (and (called-interactively-p 'interactive)
-                         "Running backends: ")))
+  (flymake--collect #'flymake--state-running))
 
 (defun flymake-disabled-backends ()
   "Compute disabled Flymake backends in current buffer."
-  (interactive)
-  (flymake--collect #'flymake--state-disabled
-                    (and (called-interactively-p 'interactive)
-                         "Disabled backends: ")))
+  (flymake--collect #'flymake--state-disabled))
 
 (defun flymake-reporting-backends ()
   "Compute reporting Flymake backends in current buffer."
-  (interactive)
-  (flymake--collect #'flymake--state-reported-p
-                    (and (called-interactively-p 'interactive)
-                         "Reporting backends: ")))
+  (flymake--collect #'flymake--state-reported-p))
 
 (defun flymake--disable-backend (backend &optional explanation)
   "Disable BACKEND because EXPLANATION.