[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: address@hidden: C-h k does not catch text properies keymaps]

From: Lennart Borgman (gmail)
Subject: Re: address@hidden: C-h k does not catch text properies keymaps]
Date: Mon, 05 Mar 2007 22:33:41 +0100
User-agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv: Gecko/20070221 Thunderbird/ Mnenhy/

David Kastrup wrote:
Chong Yidong <address@hidden> writes:

Richard Stallman <address@hidden> writes:

Would someone please debug this and ack?
Didn't David Kastrup rewrite the key-binding code a few months ago, to
handle this case?

The "problem" is more with `describe-key'.  However:

(defun temp-test-mouse-ctrl-h-k()
  (switch-to-buffer-other-window (get-buffer-create "test mouse buffer"))
  (goto-char (point-max))
  (let ((map (make-sparse-keymap))
        (txt "click here"))
    (define-key map [mouse-1] '(lambda()
                                 "This is the lambda for mouse-1"
                                 (message "lambda for mouse-1 here")))
    (define-key map [f2] '(lambda()
                            "This is the lambda for f2"
                            (message "lambda for f2 here")))
    (put-text-property 0 (length txt) 'face '(:underline t :foreground
"red") txt)
    (put-text-property 0 (length txt) 'mouse-face 'highlight txt)
    (put-text-property 0 (length txt) 'keymap map txt)
    (insert "\n" txt)


   M-x temp-test-mouse-ctrl-h-k
   C-h k

and then click the red underlined text with mouse button 1. It will say

  <down-mouse-1> at that spot runs the command mouse-drag-region

which is not correct.

Actually, it _is_ correct.  Do

M-x debug-on-entry RET mouse-drag-region RET

and you'll find that clicking at that spot indeed first runs

Ok, thanks. I can see it is partly correct and useful. But the information about the other function, should not that be shown too?

reply via email to

[Prev in Thread] Current Thread [Next in Thread]