diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-12-17 15:17:35 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-12-17 15:17:35 +0000 |
| commit | d086b1a2491d8da73f65ae6dbfe11146e226a9dc (patch) | |
| tree | 9bd1ad3bcb4771891bb336ebc569818d55936088 /lisp/pcvs-defs.el | |
| parent | d8fac8010349730e6c2afa6f45fa4aab4ca8471f (diff) | |
| download | emacs-d086b1a2491d8da73f65ae6dbfe11146e226a9dc.tar.gz | |
(cvs-mode-map): Map follow-link to a function which
checks if position is in a filename, rather than some other
clickable item. Function looks for cvs-filename-face at position.
Diffstat (limited to 'lisp/pcvs-defs.el')
| -rw-r--r-- | lisp/pcvs-defs.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/pcvs-defs.el b/lisp/pcvs-defs.el index 6bdd6bb6dd8..27629c5ddc6 100644 --- a/lisp/pcvs-defs.el +++ b/lisp/pcvs-defs.el @@ -380,6 +380,8 @@ This variable is buffer local and only used in the *cvs* buffer.") ("+" . cvs-mode-tree) ;; mouse bindings ([mouse-2] . cvs-mode-find-file) + ([follow-link] . (lambda (pos) + (if (eq (get-char-property pos 'face) 'cvs-filename-face) t))) ([(down-mouse-3)] . cvs-menu) ;; dired-like bindings ("\C-o" . cvs-mode-display-file) |