Minor improvements

diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index dc56c35af8d499069517cf1bf9024c4db52c955d..e46b4d55a1122457c03d957d40a6e40cd78a596a 100644 (file)
--- 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 5008f800f4d6357042dff1bb59a5c7ae9cff7f73..27f2199eca03b67445f1d2b934ae4b6ffa043e3c 100644 (file)
--- 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.