ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix bugs in org-mobile.el

This commit is contained in:
Carsten Dominik 2009-10-12 23:59:43 +02:00
parent 206c717410
commit 7a7fa921f7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-mobile.el
View File

@ -537,7 +537,7 @@ If BEG and END are given, only do this in that region."
buf-list buf-list
id-pos org-mobile-error) id-pos org-mobile-error)
(while (re-search-forward (while (re-search-forward
"^\\*+[ \t]+F(\\([^():\n]*\\)\\(:\\([^()\n]*\\)\\)?)[ \t]+\\[\\[\\(\\(id\\|olp\\):\\([^]\n ]+\\)\\)" end t) "^\\*+[ \t]+F(\\([^():\n]*\\)\\(:\\([^()\n]*\\)\\)?)[ \t]+\\[\\[\\(\\(id\\|olp\\):\\([^]\n]+\\)\\)" end t)
(setq id-pos (condition-case msg (setq id-pos (condition-case msg
(org-mobile-locate-entry (match-string 4)) (org-mobile-locate-entry (match-string 4))
(error (nth 1 msg)))) (error (nth 1 msg))))
@ -712,7 +712,7 @@ as a string."
(setq lmin (1+ level) lmax (+ lmin (if org-odd-levels-only 1 0))) (setq lmin (1+ level) lmax (+ lmin (if org-odd-levels-only 1 0)))
(setq end (save-excursion (org-end-of-subtree t t)))) (setq end (save-excursion (org-end-of-subtree t t))))
(when (org-on-heading-p) (when (org-on-heading-p)
(throw 'exit (move-marker (make-marker) (point))))))))) (move-marker (make-marker) (point))))))))
(defun org-mobile-locate-entry (link) (defun org-mobile-locate-entry (link)
(if (string-match "\\`id:\\(.*\\)$" link) (if (string-match "\\`id:\\(.*\\)$" link)