Using C-h k to check mouse bindings does not work for text property keymaps.
To show this do
emacs -Q
then paste the following code in the *Scratch* buffer and eval it:
(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.
In GNU Emacs 22.0.93.1 (i386-mingw-nt5.1.2600)
of 2007-02-19
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
