tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Reset start position for finding new changes in org-mobile.el

Browse source
This commit is contained in:
Carsten Dominik 2009-10-14 17:26:10 +02:00
parent a8a74fc9e3
commit d48d06eec8
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org-mobile.el
View file

@ -526,13 +526,14 @@ If BEG and END are given, only do this in that region."
(require 'org-archive)
(setq org-mobile-last-flagged-files nil)
(setq beg (or beg (point-min)) end (or end (point-max)))
(goto-char beg)
;; Remove all Note IDs
(goto-char beg)
(while (re-search-forward "^\\*\\* Note ID: [-0-9A-F]+[ \t]*\n" nil t)
(replace-match ""))
;; Find all the referenced entries, without making any changes yet
(goto-char beg)
(let ((marker (make-marker))
(bos-marker (make-marker))
(end (move-marker (make-marker) end))