From 936296e386376fa69322e7a3d6e68ff6e3b2cfb1 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 11 Sep 2008 17:03:05 +0200 Subject: [PATCH] Make sure org-mode in remember buffer starts without startup stuff. --- lisp/org-remember.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/org-remember.el b/lisp/org-remember.el index 802fa153d..eea7925e6 100644 --- a/lisp/org-remember.el +++ b/lisp/org-remember.el @@ -317,6 +317,11 @@ to be run from that hook to function properly." (if org-remember-templates (let* ((entry (org-select-remember-template use-char)) (ct (or org-overriding-default-time (org-current-time))) + (dct (decode-time ct)) + (ct1 + (if (< (nth 2 dct) org-extend-today-until) + (encode-time 0 59 23 (1- (nth 3 dct)) (nth 4 dct) (nth 5 dct)) + ct)) (tpl (car entry)) (plist-p (if org-store-link-plist t nil)) (file (if (and (nth 1 entry) @@ -350,6 +355,7 @@ to be run from that hook to function properly." v-a)) (v-n user-full-name) (org-startup-folded nil) + (org-inhibit-startup t) org-time-was-given org-end-time-was-given x prompt completions char time pos default histvar) @@ -495,7 +501,7 @@ to be run from that hook to function properly." (if (re-search-forward "%\\?" nil t) (replace-match "") (and (re-search-forward "^[^#\n]" nil t) (backward-char 1)))) - (org-mode) + (let ((org-inhibit-startup t)) (org-mode)) (org-set-local 'org-finish-function 'org-remember-finalize)) (when (save-excursion (goto-char (point-min))