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

2
lisp/org-mobile.el
View File

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