소스 검색

Export: Make sure all preprocessor functions see the whole buffer

Carsten Dominik 16 년 전
부모
커밋
adcf87073c
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      lisp/org-exp.el

+ 2 - 0
lisp/org-exp.el

@@ -1527,6 +1527,7 @@ from the buffer."
 
 (defun org-export-remove-timestamps ()
   "Remove timestamps and keywords for export."
+  (goto-char (point-min))
   (while (re-search-forward org-maybe-keyword-time-regexp nil t)
     (backward-char 1)
     (org-if-unprotected
@@ -1538,6 +1539,7 @@ from the buffer."
 
 (defun org-export-remove-clock-lines ()
   "Remove clock lines for export."
+  (goto-char (point-min))
   (let ((re (concat "^[ \t]*" org-clock-string ".*\n?")))
     (while (re-search-forward re nil t)
       (org-if-unprotected