From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lennart Borgman Newsgroups: gmane.emacs.devel Subject: Re: [lennart.borgman.073@student.lu.se: Keys bound to [t] does not give any help] Date: Tue, 29 Nov 2005 07:50:25 +0100 Message-ID: <438BFA31.8050808@student.lu.se> References: <3685f453681496.36814963685f45@net.lu.se> <87ek506sn2.fsf@stupidchicken.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1133250040 21745 80.91.229.2 (29 Nov 2005 07:40:40 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 29 Nov 2005 07:40:40 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Nov 29 08:40:34 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EgzYO-00076M-LW for ged-emacs-devel@m.gmane.org; Tue, 29 Nov 2005 08:05:29 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EgzYM-0003fG-4G for ged-emacs-devel@m.gmane.org; Tue, 29 Nov 2005 02:05:26 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1EgzKU-00089Y-II for emacs-devel@gnu.org; Tue, 29 Nov 2005 01:51:07 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1EgzKQ-000895-4T for emacs-devel@gnu.org; Tue, 29 Nov 2005 01:51:04 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EgzKN-00088s-F6 for emacs-devel@gnu.org; Tue, 29 Nov 2005 01:51:00 -0500 Original-Received: from [81.228.11.98] (helo=pne-smtpout1-sn1.fre.skanova.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1EgzKN-0003z2-Jt for emacs-devel@gnu.org; Tue, 29 Nov 2005 01:50:59 -0500 Original-Received: from [192.168.123.121] (83.249.218.244) by pne-smtpout1-sn1.fre.skanova.net (7.2.060.1) id 4387161400162D86; Tue, 29 Nov 2005 07:50:26 +0100 User-Agent: Mozilla Thunderbird 1.0.7 (Windows/20050923) X-Accept-Language: en-us, en Original-To: Chong Yidong In-Reply-To: <87ek506sn2.fsf@stupidchicken.com> X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:46752 Archived-At: Chong Yidong wrote: >LENNART BORGMAN writes: > > > >>>>>>If you bind default keyboard keys like this >>>>>> (define-key bw-keymap [t] 'bw-exit-resize-mode) >>>>>>then >>>>>> C-h k >>>>>>says that the key "is undefined". >>>>>> >>>>>> >>>OK, now I get it. But wouldn't C-h be overwritten when you bind [t]? >>>How did you get C-h to work? >>> >>> >>I have bount it in `bw-keymap' only. >> >> > >Does this change do what you want? > >*** emacs/lisp/help.el.~1.287.~ 2005-11-28 22:26:04.000000000 -0500 >--- emacs/lisp/help.el 2005-11-28 22:22:13.000000000 -0500 >*************** >*** 635,641 **** > (when (windowp window) > (set-buffer (window-buffer window)) > (goto-char position)) >! (let ((defn (or (string-key-binding key) (key-binding key)))) > (if (or (null defn) (integerp defn) (equal defn 'undefined)) > (message "%s is undefined" (help-key-description key untranslated)) > (help-setup-xref (list #'describe-function defn) (interactive-p)) >--- 635,641 ---- > (when (windowp window) > (set-buffer (window-buffer window)) > (goto-char position)) >! (let ((defn (or (string-key-binding key) (key-binding key t)))) > (if (or (null defn) (integerp defn) (equal defn 'undefined)) > (message "%s is undefined" (help-key-description key untranslated)) > (help-setup-xref (list #'describe-function defn) (interactive-p)) > > > Yes and no. It gives the correct answer for "C-h k" I believe, but not for "C-h c". BTW I just saw that C-h c gives a bit different results when using [t]: C-h c a: a runs the command self-insert-command C-h c RET: is undefined