diff options
Diffstat (limited to 'lisp/org/org-mobile.el')
-rw-r--r-- | lisp/org/org-mobile.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/org/org-mobile.el b/lisp/org/org-mobile.el index 5cfaa7fe0ae..6f0a60125c5 100644 --- a/lisp/org/org-mobile.el +++ b/lisp/org/org-mobile.el @@ -617,7 +617,7 @@ The table of checksums is written to the file mobile-checksums." ((looking-at "[ \t]*$")) ; keep empty lines ((looking-at "=+$") ;; remove underlining - (delete-region (point) (point-at-eol))) + (delete-region (point) (line-end-position))) ((get-text-property (point) 'org-agenda-structural-header) (setq in-date nil) (setq app (get-text-property (point) 'org-agenda-title-append)) @@ -637,14 +637,14 @@ The table of checksums is written to the file mobile-checksums." (get-text-property (point) 'org-marker))) (setq sexp (member (get-text-property (point) 'type) '("diary" "sexp"))) - (if (setq pl (text-property-any (point) (point-at-eol) 'org-heading t)) + (if (setq pl (text-property-any (point) (line-end-position) 'org-heading t)) (progn (setq prefix (org-trim (buffer-substring (point) pl)) line (org-trim (buffer-substring pl - (point-at-eol)))) - (delete-region (point-at-bol) (point-at-eol)) + (line-end-position)))) + (delete-region (line-beginning-position) (line-end-position)) (insert line "<before>" prefix "</before>") (beginning-of-line 1)) (and (looking-at "[ \t]+") (replace-match ""))) @@ -857,7 +857,7 @@ If BEG and END are given, only do this in that region." (org-mobile-timestamp-buffer (marker-buffer id-pos)) (push (marker-buffer id-pos) buf-list)) (unless (markerp id-pos) - (goto-char (+ 2 (point-at-bol))) + (goto-char (+ 2 (line-beginning-position))) (if (stringp id-pos) (insert id-pos " ") (insert "BAD REFERENCE ")) @@ -1093,7 +1093,7 @@ be returned that indicates what went wrong." (org-archive-to-archive-sibling)) ((eq what 'body) - (setq current (buffer-substring (min (1+ (point-at-eol)) (point-max)) + (setq current (buffer-substring (min (1+ (line-end-position)) (point-max)) (save-excursion (outline-next-heading) (point)))) (if (not (string-match "\\S-" current)) (setq current nil)) |