ehelp.el: Suppress warning

* lisp/ehelp.el (electric-help-execute-extended): Suppress warning
about `execute-extended-command' only being interactive, because
we're still using it interactively, but via a wrapper.

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 2a24c9857c2bade5ba8773f4e418fbcf785f9b97..ec6e7afeb1498271cf97fafa6ca633e18bb8796c 100644 (file)
--- 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