mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

ehelp.el: Suppress warning

Browse Source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-06-12 16:15:30 +02:00
parent f2071b6de4
commit f9b61ba72e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ehelp.el
View File

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