From: Romain Francoise <romain@orebokech.com>
Date: Thu, 20 Oct 2005 16:53:11 +0000 (+0000)
Subject: (occur-engine): Add follow-link property.
X-Git-Tag: emacs-pretest-22.0.90~6461
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/344d2d87b28937f5182047e92f6d7838d3ff35e2

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d4edcef72..d866a6f928 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 e2562ed346..2d79754b4f 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