Mercurial > emacs
comparison lisp/simple.el @ 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 | 73f5be00ba89 |
children | 3b3f211ffa93 |
comparison
equal
deleted
inserted
replaced
59396:1c58b91ca0df | 59397:fcfd5e8c8e77 |
---|---|
3588 (defun mark-word (&optional arg allow-extend) | 3588 (defun mark-word (&optional arg allow-extend) |
3589 "Set mark ARG words away from point. | 3589 "Set mark ARG words away from point. |
3590 The place mark goes is the same place \\[forward-word] would | 3590 The place mark goes is the same place \\[forward-word] would |
3591 move to with the same argument. | 3591 move to with the same argument. |
3592 Interactively, if this command is repeated | 3592 Interactively, if this command is repeated |
3593 or (in Transient Mark mode) if the mark is active, | 3593 or (in Transient Mark mode) if the mark is active, |
3594 it marks the next ARG words after the ones already marked." | 3594 it marks the next ARG words after the ones already marked." |
3595 (interactive "P\np") | 3595 (interactive "P\np") |
3596 (cond ((and allow-extend | 3596 (cond ((and allow-extend |
3597 (or (and (eq last-command this-command) (mark t)) | 3597 (or (and (eq last-command this-command) (mark t)) |
3598 (and transient-mark-mode mark-active))) | 3598 (and transient-mark-mode mark-active))) |
4326 (defvar completion-list-mode-map nil | 4326 (defvar completion-list-mode-map nil |
4327 "Local map for completion list buffers.") | 4327 "Local map for completion list buffers.") |
4328 (or completion-list-mode-map | 4328 (or completion-list-mode-map |
4329 (let ((map (make-sparse-keymap))) | 4329 (let ((map (make-sparse-keymap))) |
4330 (define-key map [mouse-2] 'mouse-choose-completion) | 4330 (define-key map [mouse-2] 'mouse-choose-completion) |
4331 (define-key map [follow-link] 'mouse-face) | |
4331 (define-key map [down-mouse-2] nil) | 4332 (define-key map [down-mouse-2] nil) |
4332 (define-key map "\C-m" 'choose-completion) | 4333 (define-key map "\C-m" 'choose-completion) |
4333 (define-key map "\e\e\e" 'delete-completion-window) | 4334 (define-key map "\e\e\e" 'delete-completion-window) |
4334 (define-key map [left] 'previous-completion) | 4335 (define-key map [left] 'previous-completion) |
4335 (define-key map [right] 'next-completion) | 4336 (define-key map [right] 'next-completion) |