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) |