(occur-engine): Add follow-link property.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d4edcef727..d866a6f9280 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -108,6 +108,8 @@
 
 2005-10-20  Romain Francoise  <romain@orebokech.com>
 
+        * replace.el (occur-engine): Add follow-link property.
+
         * font-core.el (font-lock-mode): Doc fix.
 
 2005-10-20  Kim F. Storm  <storm@cua.dk>
diff --git a/lisp/replace.el b/lisp/replace.el
index e2562ed3469..2d79754b4f0 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1157,7 +1157,8 @@ See also `multi-occur'."
                             (insert "-------\n"))
                           (add-text-properties
                            beg end
-                           `(occur-target ,marker help-echo "mouse-2: go to this occurrence")))))
+                           `(occur-target ,marker follow-link t
+                                          help-echo "mouse-2: go to this occurrence")))))
                     (goto-char endpt))
                   (if endpt
                       (progn