From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Re: bug#36767: 26.1; request: add more quick keys to the *Help* buffer Date: Fri, 24 Sep 2021 18:31:59 +0300 Organization: LINKOV.NET Message-ID: <87a6k2nlr6.fsf@mail.linkov.net> References: <87mtrrq7t7.fsf@gnus.org> <87eed0nsez.fsf@mail.linkov.net> <83bl83zp5h.fsf@gnu.org> <83y27nvnb4.fsf@gnu.org> <83ilyrvgda.fsf@gnu.org> <83h7ebv39d.fsf@gnu.org> <838rznusle.fsf@gnu.org> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="29926"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (x86_64-pc-linux-gnu) Cc: Eli Zaretskii , larsi@gnus.org, emacs-devel@gnu.org To: Arthur Miller Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Fri Sep 24 17:48:08 2021 Return-path: Envelope-to: ged-emacs-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1mTnQm-0007YN-DQ for ged-emacs-devel@m.gmane-mx.org; Fri, 24 Sep 2021 17:48:08 +0200 Original-Received: from localhost ([::1]:39456 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mTnQk-0002jJ-Rv for ged-emacs-devel@m.gmane-mx.org; Fri, 24 Sep 2021 11:48:06 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:35100) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mTnP1-0001Kj-0k for emacs-devel@gnu.org; Fri, 24 Sep 2021 11:46:19 -0400 Original-Received: from relay10.mail.gandi.net ([217.70.178.230]:57581) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mTnOy-0004hj-5Y; Fri, 24 Sep 2021 11:46:18 -0400 Original-Received: (Authenticated sender: juri@linkov.net) by relay10.mail.gandi.net (Postfix) with ESMTPSA id B68C224000C; Fri, 24 Sep 2021 15:46:08 +0000 (UTC) In-Reply-To: (Arthur Miller's message of "Fri, 24 Sep 2021 09:16:08 +0200") Received-SPF: pass client-ip=217.70.178.230; envelope-from=juri@linkov.net; helo=relay10.mail.gandi.net X-Spam_score_int: -25 X-Spam_score: -2.6 X-Spam_bar: -- X-Spam_report: (-2.6 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.io gmane.emacs.devel:275402 Archived-At: > I came up with another idea last night and sent a patch, but I am not sure if it > got to right place, I don't see it myself. It was an answer longer in the thread > to Lars. > > This one makes it possible to run any command in *Help* buffer, not just those > defined in help-mode.el, and those not need any patching or wrapping of existing > commands. > > I don't know if it is correct place to put define-key for the global map, and I > am not sure if C-h M-h is the right, but that's just a detail. This would be a nice command. But why it's limited only to help-window? It could allow reading and running the key sequences in any next-window. > +(defun help-do-command () > + "Run a key-sequence in \"*Help*\" buffer from other buffers. > + > +If *Help* buffer is not visible, the HELP-DO-COMMAND will be aborterd." > + (interactive) > + (if (get-buffer-window (help-buffer)) I meant to replace '(get-buffer-window (help-buffer))' with '(next-window)'. > + (let ((__key (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))))))) > + (call-interactively (global-key-binding "\C-g")))) > + > +(define-key global-map (kbd "C-h M-h") 'help-do-command)