mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Keep compiler happy

This commit is contained in:
Carsten Dominik 2009-09-29 07:39:07 +02:00
parent 003e6c37c0
commit 0a3bc55b97
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2009-09-29 Carsten Dominik <carsten.dominik@gmail.com>
* org-mobile.el (org-mobile-create-sumo-agenda): Call
`org-sore-agenda-views' instead of `org-batch-store-agenda-views'.
* org-latex.el (org-export-latex-treat-sub-super-char): Allow a
space character as the character before the ^/_.
(org-export-latex-final-hook): New hook.

6
lisp/org-mobile.el
View File

@ -161,7 +161,7 @@ using `rsync' or `scp'.")
org-mobile-files)))
(orgdir-uname (file-name-as-directory (file-truename org-directory)))
(orgdir-re (concat "\\`" (regexp-quote orgdir-uname)))
uname seen rtn)
uname seen rtn file link-name)
;; Make the files unique, and determine the name under which they will
;; be listed.
(while (setq file (pop files))
@ -233,7 +233,7 @@ agenda view showing the flagged items."
(defun org-mobile-create-index-file ()
"Write the index file in the WebDAV directory."
(let ((files-alist org-mobile-files-alist)
file todo-kwds done-kwds tags drawers entry)
file link-name todo-kwds done-kwds tags drawers entry)
(org-prepare-agenda-buffers (mapcar 'car files-alist))
(setq done-kwds (org-uniquify org-done-keywords-for-agenda))
(setq todo-kwds (org-delete-all
@ -373,7 +373,7 @@ The table of checksums is written to the file mobile-checksums."
(list (list file))))))
(unless (file-writable-p file)
(error "Cannot write to file %s" file))
(org-batch-store-agenda-views)))
(org-store-agenda-views)))
(defun org-mobile-move-capture ()
"Move the contents of the capture file to the inbox file.