mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 05:32:52 +00:00
Make sure org-mode in remember buffer starts without startup stuff.
This commit is contained in:
parent
c6962bc9d7
commit
936296e386
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue