diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58bd83012..3cf4d603b 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-07-26  Bastien Guerry  <bzg@altern.org>
 
+	* org.el (org-occur-link-in-agenda-files): New function.
+
 	* org-timer.el (org-timer-last-timer): New variable.
 
 	* org-agenda.el (org-agenda-mode-map): New key for
diff --git a/lisp/org.el b/lisp/org.el
index cb3bb6128..d037531ab 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -15601,6 +15601,16 @@ really on, so that the block visually is on the match."
 	    (goto-char pos)
 	    (org-reveal)))))))
 
+(defun org-occur-link-in-agenda-files ()
+  "Create a link and search for it in the agendas.
+The link is not stored in `org-stored-links', it is just created
+for the search purpose."
+  (interactive)
+  (let ((link (condition-case nil
+		  (org-store-link nil)
+		(error "Unable to create a link from here"))))
+    (org-occur-in-agenda-files (regexp-quote link))))
+
 (defun org-uniquify (list)
   "Remove duplicate elements from LIST."
   (let (res)