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()
(interactive)
(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"
(interactive)
(message "lambda for mouse-1 here")))
(define-key map [f2] '(lambda()
"This is the lambda for f2"
(interactive)
(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)
))
Do
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
mouse-drag-region.