From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 12 Jun 2019 14:15:30 +0000 (+0200)
Subject: ehelp.el: Suppress warning
X-Git-Tag: emacs-27.0.90~2612
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9b61ba72e619b6801e71436793b3c05e5d0efee;p=emacs.git

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 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