From: Arthur Miller <arthur.miller@live.com>
To: Eli Zaretskii <eliz@gnu.org>
Cc: larsi@gnus.org, emacs-devel@gnu.org, juri@linkov.net
Subject: Re: bug#36767: 26.1; request: add more quick keys to the *Help* buffer
Date: Sat, 25 Sep 2021 16:41:34 +0200 [thread overview]
Message-ID: <AM9PR09MB4977291E2B413BBB562963CB96A59@AM9PR09MB4977.eurprd09.prod.outlook.com> (raw)
In-Reply-To: <83bl4hrxtu.fsf@gnu.org> (Eli Zaretskii's message of "Sat, 25 Sep 2021 02:09:05 -0400")
[-- Attachment #1: Type: text/plain, Size: 2564 bytes --]
Eli Zaretskii <eliz@gnu.org> writes:
>> From: Arthur Miller <arthur.miller@live.com>
>> Cc: Juri Linkov <juri@linkov.net>, larsi@gnus.org, emacs-devel@gnu.org
>> Date: Fri, 24 Sep 2021 21:57:13 +0200
>>
>> > Please, no unnecessary generalizations of this kind. Or at least not
>> > to cater to this particular request. I want a _help_ command, not
>> > just a prefix that runs any command in the other window. because, for
>> > starters, what if the *Help* buffer is not currently on display at
>> > all?
>>
>> Here is one updated without the unnecessary let statement.
>
> Thanks, but I'd prefer a prefix command, so that you wouldn't need to
> prompt for the key sequence, but expect the user to provide it
> already. For example, "C-h M-h s" would show the definition of the
> function or variable.
I am sorry, but I don't really understand what you mean here. You would like to
be able to type: C-u C-h M-h s, intead of C-h M-h s? Or you mean C-h M-h C-u s?
C-h M-h is needed to switch control to the help buffer from the current buffer,
then you are just typing commands as if the cursor was in the help buffer. I
don't know, I don't really understand what you mean there, and I am not sure I
would know how to implement that, so maybe someone else can help with that one?
The obivous alternative I see is to globally define help-mode commands, as
originally suggested and put them on global shortcuts or make help-mode-map
globally accessible, but I think in practice remotely executing commands is
better since the keyboard shortcuts involved are same but all interactive
commands defined in help-mode become automatically avialable without any extra
work. If prompt bothers you, we can pass empty string as prompt in cal to
'read-key-sequence'. I put a descriptive prompt just to make it more clear, but
it is just cosmetics.
Maybe there is other way; but I am not aware of it.
> Also, the *Help* window should stay displayed, so any additional
> buffers the command needs to pop (for example, to show the definition)
> should not replace the *Help* buffer, it should pop in another window,
> exactly like when I invoke the command from the *Help* buffer.
Yes, I noticed myself. Since the current buffer is no longer help buffer, Emacs
chooses a bit differently in which window to display source code/info
buffer. Easy hack is to make help window dedicated to help buffer, as in the
attched patch. I have put into the patch so it is done automatic; but maybe it
is better to let users decide on that one by modifying buffer-display-alist?
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Send-input-to-help-buffer-form-any-buffer.patch --]
[-- Type: text/x-patch, Size: 1391 bytes --]
From 7e750943df9bb2acaff6d6fa9153636424ec59b2 Mon Sep 17 00:00:00 2001
From: Arthur Miller <arthur.miller@live.com>
Date: Sat, 25 Sep 2021 16:21:07 +0200
Subject: [PATCH] Send input to help-buffer form any buffer
* help-mode.el (help-do-command): New command.
Install help-do-command in global-map on C-h M-h key.
---
lisp/help-mode.el | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 551cf7e1a3..6ab6c7e482 100644
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -875,6 +875,23 @@ help-insert-string
(with-output-to-temp-buffer (help-buffer)
(insert string)))
+(defun help-do-command ()
+ "Execute a command in \"*Help*\" buffer while working in other buffer.
+
+If *Help* buffer is not visible, the HELP-DO-COMMAND will be aborted."
+ (interactive)
+ (if (get-buffer-window (help-buffer))
+ (let ((help-window (get-buffer-window (help-buffer))))
+ (unless (window-dedicated-p help-window)
+ (set-window-dedicated-p help-window t))
+ (read-key-sequence "Run command in *Help* buffer: ")
+ (with-current-buffer (help-buffer)
+ (call-interactively
+ (key-binding
+ (kbd (edmacro-format-keys (vector last-input-event)))))))
+ (keyboard-quit)))
+
+(define-key global-map (kbd "C-h M-h") 'help-do-command)
\f
;; Bookmark support
--
2.33.0
next prev parent reply other threads:[~2021-09-25 14:41 UTC|newest]
Thread overview: 62+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-07-22 19:53 bug#36767: 26.1; request: add more quick keys to the *Help* buffer ndame
2019-07-22 20:49 ` Drew Adams
2019-07-28 0:10 ` Basil L. Contovounesios
2021-06-15 18:52 ` Lars Ingebrigtsen
2021-06-17 20:34 ` Juri Linkov
2021-06-18 6:02 ` Eli Zaretskii
2021-06-18 7:20 ` Robert Pluim
2021-06-18 10:58 ` Eli Zaretskii
2021-06-18 14:21 ` bug#36767: [External] : " Drew Adams
2021-06-18 14:32 ` Stephen Berman
2021-06-18 14:45 ` Eli Zaretskii
2021-06-18 16:02 ` Stephen Berman
2021-06-18 18:25 ` Eli Zaretskii
2021-06-19 9:08 ` martin rudalics
2021-06-19 9:27 ` Eli Zaretskii
2021-06-20 9:21 ` martin rudalics
2021-06-18 16:21 ` bug#36767: [External] : " Drew Adams
2021-06-18 14:12 ` Drew Adams
2021-06-18 19:14 ` Juri Linkov
2021-06-18 19:21 ` Eli Zaretskii
2021-06-19 23:15 ` Juri Linkov
[not found] ` <AM9PR09MB49779C8B93EFFB329EB8E5A596A29@AM9PR09MB4977.eurprd09.prod.outlook.com>
[not found] ` <83y27nvnb4.fsf@gnu.org>
[not found] ` <AM9PR09MB497767EDF180DE0C3EE15F4396A39@AM9PR09MB4977.eurprd09.prod.outlook.com>
[not found] ` <83ilyrvgda.fsf@gnu.org>
[not found] ` <AM9PR09MB497720FA603D3B7FC4D4739196A39@AM9PR09MB4977.eurprd09.prod.outlook.com>
2021-09-23 20:54 ` Lars Ingebrigtsen
[not found] ` <83h7ebv39d.fsf@gnu.org>
[not found] ` <AM9PR09MB49771D1ECD11701DEFB77C7A96A39@AM9PR09MB4977.eurprd09.prod.outlook.com>
[not found] ` <838rznusle.fsf@gnu.org>
2021-09-24 7:16 ` Arthur Miller
2021-09-24 15:31 ` Juri Linkov
2021-09-24 16:12 ` Eli Zaretskii
2021-09-24 19:36 ` Arthur Miller
2021-09-24 19:39 ` Arthur Miller
2021-09-24 19:57 ` Arthur Miller
2021-09-25 6:09 ` Eli Zaretskii
2021-09-25 14:41 ` Arthur Miller [this message]
2021-09-25 14:59 ` Eli Zaretskii
2021-09-25 16:22 ` Arthur Miller
2021-09-25 16:26 ` Eli Zaretskii
2021-09-25 17:08 ` Arthur Miller
2021-09-25 17:20 ` Eli Zaretskii
2021-09-25 20:15 ` Arthur Miller
2021-09-26 21:52 ` Arthur Miller
2021-09-26 9:11 ` martin rudalics
2021-09-26 16:11 ` Arthur Miller
2021-09-26 16:54 ` [External] : " Drew Adams
2021-09-26 21:51 ` Arthur Miller
2021-09-26 22:38 ` Drew Adams
2021-09-26 22:46 ` Arthur Miller
2021-09-26 17:51 ` martin rudalics
2021-09-26 21:48 ` Arthur Miller
2021-09-27 11:07 ` Exec help commands from other buffer (was bug#36767: 26.1; request: add more quick keys to the *Help* buffer) Arthur Miller
2021-09-27 19:59 ` Arthur Miller
2021-09-24 18:34 ` [External] : Re: bug#36767: 26.1; request: add more quick keys to the *Help* buffer Drew Adams
2021-09-24 19:34 ` Arthur Miller
2021-09-24 20:20 ` Arthur Miller
2021-09-24 20:33 ` Arthur Miller
2021-09-25 18:46 ` Juri Linkov
2021-06-19 11:58 ` Lars Ingebrigtsen
2021-06-19 12:22 ` Eli Zaretskii
2021-06-19 23:15 ` Juri Linkov
[not found] ` <AM9PR09MB4977DAFB86D88A4714C1C64196A29@AM9PR09MB4977.eurprd09.prod.outlook.com>
[not found] ` <87pmt0qomh.fsf@gnus.org>
[not found] ` <AM9PR09MB4977CCFA194C77F1ADF0015C96A29@AM9PR09MB4977.eurprd09.prod.outlook.com>
2021-09-23 20:42 ` Lars Ingebrigtsen
2021-09-23 23:09 ` bug#36767: [External] : " Drew Adams
[not found] ` <AM9PR09MB49770845B0C1B7CBB331E68A96A39@AM9PR09MB4977.eurprd09.prod.outlook.com>
2021-09-23 20:52 ` Lars Ingebrigtsen
2021-09-23 22:18 ` Arthur Miller
2021-09-26 9:11 ` martin rudalics
2021-09-26 9:40 ` Lars Ingebrigtsen
2021-09-26 9:55 ` Eli Zaretskii
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=AM9PR09MB4977291E2B413BBB562963CB96A59@AM9PR09MB4977.eurprd09.prod.outlook.com \
--to=arthur.miller@live.com \
--cc=eliz@gnu.org \
--cc=emacs-devel@gnu.org \
--cc=juri@linkov.net \
--cc=larsi@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.