mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

New function `org-occur-link-in-agenda-files'.

Browse Source 
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:
Bastien Guerry 2009-07-27 04:14:04 +08:00
parent d8a0f2949d
commit 03fffc1864
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -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

10
lisp/org.el
View File

@ -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)