1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 2a24c9857c2..ec6e7afeb14 100644
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -355,7 +355,10 @@ will select it.)"
 (defun electric-help-execute-extended (_prefixarg)
   (interactive "p")
   (setq electric-help-form-to-execute
-        (lambda () (execute-extended-command nil)))
+        (lambda ()
+          (with-suppressed-warnings ((interactive-only
+                                      execute-extended-command))
+            (execute-extended-command nil))))
   (electric-help-retain))
 
 ;; This is to be buond to C-x in ehelp mode. Retains ehelp buffer and then