From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/69317 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general,gmane.emacs.w3m Subject: Re: M in emacs-w3m in gnus Date: Tue, 05 Jan 2010 20:15:40 +0900 Organization: Emacsen advocacy group Message-ID: References: <87my0tra9t.fsf@jidanni.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1262690255 17990 80.91.229.12 (5 Jan 2010 11:17:35 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 5 Jan 2010 11:17:35 +0000 (UTC) Cc: emacs-w3m@namazu.org To: ding@gnus.org Original-X-From: ding-owner+M17722@lists.math.uh.edu Tue Jan 05 12:17:27 2010 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1NS7Ph-0008MN-G4 for ding-account@gmane.org; Tue, 05 Jan 2010 12:17:25 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1NS7Oq-0004ra-6v; Tue, 05 Jan 2010 05:16:32 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1NS7Oo-0004rP-DN for ding@lists.math.uh.edu; Tue, 05 Jan 2010 05:16:30 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1NS7Ol-0008DZ-RU for ding@lists.math.uh.edu; Tue, 05 Jan 2010 05:16:29 -0600 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1NS7Oc-0006cP-00 for ; Tue, 05 Jan 2010 12:16:19 +0100 Original-Received: from localhost ([127.0.0.1]:34905) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1NS7NW-0004Qd-Qk; Tue, 05 Jan 2010 05:15:11 -0600 X-Hashcash: 1:20:100105:ding@gnus.org::W+HcJFk6CGmGSiQS:00000qPU X-Hashcash: 1:20:100105:emacs-w3m@namazu.org::4MW9gGklknyRihxE:000000000000000000000000000000000000000001Phj X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.1.91 (gnu/linux) Cancel-Lock: sha1:l74+VuTTqy8+3Xu9J3y9BiDySyQ= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:69317 gmane.emacs.w3m:8450 Archived-At: --=-=-= >>>>> In [emacs-w3m : No.11090] jidanni@jidanni.org wrote: > Hmmm, in gnus I can use > u runs the command w3m-print-this-url, which is an interactive > However, > M runs the command w3m-view-url-with-external-browser, > is masked by gnus commands... I thought, The key bindings in the article that emacs-w3m rendered are controlled by `w3m-minor-mode-map', so you can add something like the following to the ~/.emacs-w3m.el file: (define-key w3m-minor-mode-map "M" 'w3m-view-url-with-external-browser) I think this binding is not very useful though. > until I hit M C-h, to see > Global Bindings Starting With M: > key binding > --- ------- > [back] > I.e., nothing. Hmmm. That's a bug. `A C-h', `V C-h', `/ C-h' don't show the bindings, too. I'm going to test the attached patch thoroughly and commit to the trunk. Thanks. --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- gnus-art.el~ 2009-10-25 23:20:01 +0000 +++ gnus-art.el 2010-01-05 11:13:07 +0000 @@ -6477,10 +6477,17 @@ (let ((keymap (copy-keymap gnus-article-mode-map)) (map (copy-keymap gnus-article-send-map)) (sumkeys (where-is-internal 'gnus-article-read-summary-keys)) - agent draft) + parent agent draft) (define-key keymap "S" map) (define-key map [t] nil) (with-current-buffer gnus-article-current-summary + (set-keymap-parent + keymap + (if (setq parent (keymap-parent gnus-article-mode-map)) + (prog1 + (setq parent (copy-keymap parent)) + (set-keymap-parent parent (current-local-map))) + (current-local-map))) (set-keymap-parent map (key-binding "S")) (let (key def gnus-pick-mode) (while sumkeys --- gnus-xmas.el~ 2009-10-16 06:47:34 +0000 +++ gnus-xmas.el 2010-01-05 11:13:07 +0000 @@ -362,10 +362,17 @@ (let ((keymap (copy-keymap gnus-article-mode-map)) (map (copy-keymap gnus-article-send-map)) (sumkeys (where-is-internal 'gnus-article-read-summary-keys)) - agent draft) + parent agent draft) (define-key keymap "S" map) (set-keymap-default-binding map nil) (with-current-buffer gnus-article-current-summary + (set-keymap-parent + keymap + (if (setq parent (keymap-parent gnus-article-mode-map)) + (prog1 + (setq parent (copy-keymap parent)) + (set-keymap-parent parent (current-local-map))) + (current-local-map))) (let ((def (key-binding "S")) gnus-pick-mode) (set-keymap-parent map (if (symbolp def) --=-=-=--