Browse Source

org-protocol.el: Make the compiler happy

Carsten Dominik 16 years ago
parent
commit
9c2743e35b
2 changed files with 9 additions and 0 deletions
  1. 2 0
      lisp/ChangeLog
  2. 7 0
      lisp/org-protocol.el

+ 2 - 0
lisp/ChangeLog

@@ -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 - 0
lisp/org-protocol.el

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