Mercurial > emacs
changeset 59397:fcfd5e8c8e77
(completion-list-mode-map): Map follow-link to mouse-face.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Thu, 06 Jan 2005 22:00:36 +0000 |
| parents | 1c58b91ca0df |
| children | c47c12607f08 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu Jan 06 21:58:17 2005 +0000 +++ b/lisp/simple.el Thu Jan 06 22:00:36 2005 +0000 @@ -3590,7 +3590,7 @@ 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 @@ (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)