From 344d2d87b28937f5182047e92f6d7838d3ff35e2 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Thu, 20 Oct 2005 16:53:11 +0000 Subject: [PATCH] (occur-engine): Add follow-link property. --- lisp/ChangeLog | 2 ++ lisp/replace.el | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) 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 + * replace.el (occur-engine): Add follow-link property. + * font-core.el (font-lock-mode): Doc fix. 2005-10-20 Kim F. Storm 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 -- 2.39.5