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

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

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) (require 'org-archive)
(setq org-mobile-last-flagged-files nil) (setq org-mobile-last-flagged-files nil)
(setq beg (or beg (point-min)) end (or end (point-max))) (setq beg (or beg (point-min)) end (or end (point-max)))
(goto-char beg)
;; Remove all Note IDs ;; Remove all Note IDs
(goto-char beg)
(while (re-search-forward "^\\*\\* Note ID: [-0-9A-F]+[ \t]*\n" nil t) (while (re-search-forward "^\\*\\* Note ID: [-0-9A-F]+[ \t]*\n" nil t)
(replace-match "")) (replace-match ""))
;; Find all the referenced entries, without making any changes yet ;; Find all the referenced entries, without making any changes yet
(goto-char beg)
(let ((marker (make-marker)) (let ((marker (make-marker))
(bos-marker (make-marker)) (bos-marker (make-marker))
(end (move-marker (make-marker) end)) (end (move-marker (make-marker) end))