mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 19:46:26 +00:00
Code Releases Activity

Keep compiler happy

Browse source
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> 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 * org-latex.el (org-export-latex-treat-sub-super-char): Allow a
space character as the character before the ^/_. space character as the character before the ^/_.
(org-export-latex-final-hook): New hook. (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))) org-mobile-files)))
(orgdir-uname (file-name-as-directory (file-truename org-directory))) (orgdir-uname (file-name-as-directory (file-truename org-directory)))
(orgdir-re (concat "\\`" (regexp-quote orgdir-uname))) (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 ;; Make the files unique, and determine the name under which they will
;; be listed. ;; be listed.
(while (setq file (pop files)) (while (setq file (pop files))
@ -233,7 +233,7 @@ agenda view showing the flagged items."
(defun org-mobile-create-index-file () (defun org-mobile-create-index-file ()
"Write the index file in the WebDAV directory." "Write the index file in the WebDAV directory."
(let ((files-alist org-mobile-files-alist) (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)) (org-prepare-agenda-buffers (mapcar 'car files-alist))
(setq done-kwds (org-uniquify org-done-keywords-for-agenda)) (setq done-kwds (org-uniquify org-done-keywords-for-agenda))
(setq todo-kwds (org-delete-all (setq todo-kwds (org-delete-all
@ -373,7 +373,7 @@ The table of checksums is written to the file mobile-checksums."
(list (list file)))))) (list (list file))))))
(unless (file-writable-p file) (unless (file-writable-p file)
(error "Cannot write to file %s" file)) (error "Cannot write to file %s" file))
(org-batch-store-agenda-views))) (org-store-agenda-views)))
(defun org-mobile-move-capture () (defun org-mobile-move-capture ()
"Move the contents of the capture file to the inbox file. "Move the contents of the capture file to the inbox file.