mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-27 07:37:25 +00:00
Code

Fix bug in mobile interaction

Browse Source
This commit is contained in:
Carsten Dominik 2009-10-11 18:09:55 +02:00
parent 60d4ccc259
commit 06bcedfd15
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-agenda.el
View File

@ -2249,7 +2249,7 @@ higher priority settings."
(run-hooks 'org-agenda-before-write-hook)
(cond
((org-bound-and-true-p org-mobile-creating-agendas)
(org-mobile-write-agenda-for-mobile))
(org-mobile-write-agenda-for-mobile file))
((string-match "\\.html?\\'" file)
(set-buffer (htmlize-buffer (current-buffer)))

6
lisp/org-mobile.el
View File

@ -312,9 +312,7 @@ agenda view showing the flagged items."
(setq file (car entry)
link-name (cdr entry))
(insert (format "* [[file:%s][%s]]\n"
link-name link-name)))
(insert (format "* [[file:%s][Captured before last sync]]\n"
org-mobile-capture-file)))))
link-name link-name))))))
(defun org-mobile-copy-agenda-files ()
"Copy all agenda files to the stage or WebDAV directory."
@ -486,7 +484,7 @@ The table of checksums is written to the file mobile-checksums."
(org-agenda-custom-commands
(list (append (org-mobile-sumo-agenda-command)
(list (list file)))))
(org-mobile-write-agenda-for-mobile t))
(org-mobile-creating-agendas t))
(unless (file-writable-p file)
(error "Cannot write to file %s" file))
(org-store-agenda-views)))