mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 15:02:54 +00:00
New function `org-occur-link-in-agenda-files'.
This function create a link and search for it in agenda files. Note that it does not store the link in `org-stored-links'.
This commit is contained in:
parent
d8a0f2949d
commit
03fffc1864
|
@ -1,5 +1,7 @@
|
||||||
2009-07-26 Bastien Guerry <bzg@altern.org>
|
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-timer.el (org-timer-last-timer): New variable.
|
||||||
|
|
||||||
* org-agenda.el (org-agenda-mode-map): New key for
|
* org-agenda.el (org-agenda-mode-map): New key for
|
||||||
|
|
10
lisp/org.el
10
lisp/org.el
|
@ -15601,6 +15601,16 @@ really on, so that the block visually is on the match."
|
||||||
(goto-char pos)
|
(goto-char pos)
|
||||||
(org-reveal)))))))
|
(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)
|
(defun org-uniquify (list)
|
||||||
"Remove duplicate elements from LIST."
|
"Remove duplicate elements from LIST."
|
||||||
(let (res)
|
(let (res)
|
||||||
|
|
Loading…
Reference in a new issue