# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1129827191 0
# Node ID 35d36d48eb917ce3efbbdd49838d388d9d6927e7
# Parent  6914d742203d2c2c311b1cc016500c7ab8753d7b
(occur-engine): Add follow-link property.

diff -r 6914d742203d -r 35d36d48eb91 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 20 16:51:41 2005 +0000
+++ b/lisp/ChangeLog	Thu Oct 20 16:53:11 2005 +0000
@@ -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 -r 6914d742203d -r 35d36d48eb91 lisp/replace.el
--- a/lisp/replace.el	Thu Oct 20 16:51:41 2005 +0000
+++ b/lisp/replace.el	Thu Oct 20 16:53:11 2005 +0000
@@ -1157,7 +1157,8 @@
 			    (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