From: Kim F. Storm <storm@cua.dk>
Date: Fri, 17 Dec 2004 15:17:35 +0000 (+0000)
Subject: (cvs-mode-map): Map follow-link to a function which
X-Git-Tag: ttn-vms-21-2-B4~3216
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d086b1a2491d8da73f65ae6dbfe11146e226a9dc;p=emacs.git

(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.
---

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)