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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d4edcef7270c87e339cd6383318e22df1e63c1a..d866a6f92801ffe8545246bcde3b607940017122 100644 (file)
--- 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 e2562ed346982b4877562d512b9f7f8a701284fe..2d79754b4f084299d81cc3bff7f25a4afb2b546c 100644 (file)
--- 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