1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-14 11:42:29 -08:00

(completion-list-mode-map): Map follow-link to mouse-face.

This commit is contained in:
Kim F. Storm 2005-01-06 22:00:36 +00:00
parent d7975e20a0
commit 771069f89d

View file

@ -3590,7 +3590,7 @@ With argument, do this that many times."
The place mark goes is the same place \\[forward-word] would
move to with the same argument.
Interactively, if this command is repeated
or (in Transient Mark mode) if the mark is active,
or (in Transient Mark mode) if the mark is active,
it marks the next ARG words after the ones already marked."
(interactive "P\np")
(cond ((and allow-extend
@ -4328,6 +4328,7 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally."
(or completion-list-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [mouse-2] 'mouse-choose-completion)
(define-key map [follow-link] 'mouse-face)
(define-key map [down-mouse-2] nil)
(define-key map "\C-m" 'choose-completion)
(define-key map "\e\e\e" 'delete-completion-window)