# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1103296655 0
# Node ID 0b09c3970de0b0814ed5171ac1d2942a1225e4bd
# Parent  cef0d0d34987bbd47445904fe2fbc21df5146edb
(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 -r cef0d0d34987 -r 0b09c3970de0 lisp/pcvs-defs.el
--- a/lisp/pcvs-defs.el	Fri Dec 17 15:17:22 2004 +0000
+++ b/lisp/pcvs-defs.el	Fri Dec 17 15:17:35 2004 +0000
@@ -380,6 +380,8 @@
     ("+" .	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)