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

MobileOrg: Do not insert timestamp before mode/local variable line 

Patch by Charles Sebold.
This commit is contained in:
Carsten Dominik 2009-11-13 00:22:18 +01:00
parent f21a4e7274
commit 0f826be931
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -2,6 +2,8 @@
* org-mobile.el (org-mobile-write-checksums): Specify coding * org-mobile.el (org-mobile-write-checksums): Specify coding
system. system.
(org-mobile-timestamp-buffer): Keep local variable/mode line at
beginning of buffer.
* org-latex.el (org-latex-entities-regexp): Fix typo in regexp. * org-latex.el (org-latex-entities-regexp): Fix typo in regexp.

11
lisp/org-mobile.el
View File

@ -739,10 +739,13 @@ If BEG and END are given, only do this in that region."
(save-restriction (save-restriction
(widen) (widen)
(goto-char (point-min)) (goto-char (point-min))
(when (re-search-forward (if (re-search-forward
"^\\([ \t]*\\)#\\+LAST_MOBILE_CHANGE:.*\n?" nil t) "^\\([ \t]*\\)#\\+LAST_MOBILE_CHANGE:.*\n?" nil t)
(goto-char (match-end 1)) (progn
(delete-region (point) (match-end 0))) (goto-char (match-end 1))
(delete-region (point) (match-end 0)))
(if (looking-at ".*?-\\*-.*-\\*-")
(forward-line 1)))
(insert "#+LAST_MOBILE_CHANGE: " (insert "#+LAST_MOBILE_CHANGE: "
(format-time-string "%Y-%m-%d %T") "\n"))))) (format-time-string "%Y-%m-%d %T") "\n")))))