mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-03 11:33:46 +00:00
Code

org-protocol.el: Make the compiler happy

Browse Source
This commit is contained in:
Carsten Dominik 2009-03-31 20:39:54 +02:00
parent 4fe6d54c30
commit 9c2743e35b
2 changed files with 9 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-03-31 Carsten Dominik <carsten.dominik@gmail.com>
* org-protocol.el: Declare some functions.
* org-inlinetask.el (org-inlinetask-export-handler): Fix line
postion before inserting modified headline.

7
lisp/org-protocol.el
View File

@ -125,7 +125,13 @@
(require 'org)
(require 'url)
(eval-when-compile
(require 'cl))
(declare-function org-publish-initialize-files-alist "org-publish"
(&optional refresh))
(declare-function org-publish-get-project-from-filename "org-publish"
(filename &optional up))
(defgroup org-protocol nil
"Intercept calls from emacsclient to trigger custom actions.
@ -450,6 +456,7 @@ This works, if the file visited is part of a publishing project in
`org-publish-project-alist'. This functions calls `org-protocol-create' to do
most of the work."
(interactive)
(require 'org-publish)
(org-publish-initialize-files-alist)
(let ((all (or (org-publish-get-project-from-filename buffer-file-name))))
(if all (org-protocol-create (cdr all))