From 771069f89db38f115d56b41e3f60465b779be2a4 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 6 Jan 2005 22:00:36 +0000 Subject: [PATCH] (completion-list-mode-map): Map follow-link to mouse-face. --- lisp/simple.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index 735c65948bf..565a6cba8ee 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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) -- 2.39.5