Browse Source

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

Patch by Charles Sebold.
Carsten Dominik 15 years ago
parent
commit
0f826be931
2 changed files with 9 additions and 4 deletions
  1. 2 0
      lisp/ChangeLog
  2. 7 4
      lisp/org-mobile.el

+ 2 - 0
lisp/ChangeLog

@@ -2,6 +2,8 @@
 
 	* org-mobile.el (org-mobile-write-checksums): Specify coding
 	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.
 

+ 7 - 4
lisp/org-mobile.el

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