[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: address@hidden: Keys bound to [t] does not give any help]
From: |
Chong Yidong |
Subject: |
Re: address@hidden: Keys bound to [t] does not give any help] |
Date: |
Mon, 28 Nov 2005 22:26:56 -0500 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
LENNART BORGMAN <address@hidden> 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))