mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 04:02:53 +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
|
(if org-remember-templates
|
||||||
(let* ((entry (org-select-remember-template use-char))
|
(let* ((entry (org-select-remember-template use-char))
|
||||||
(ct (or org-overriding-default-time (org-current-time)))
|
(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))
|
(tpl (car entry))
|
||||||
(plist-p (if org-store-link-plist t nil))
|
(plist-p (if org-store-link-plist t nil))
|
||||||
(file (if (and (nth 1 entry)
|
(file (if (and (nth 1 entry)
|
||||||
|
@ -350,6 +355,7 @@ to be run from that hook to function properly."
|
||||||
v-a))
|
v-a))
|
||||||
(v-n user-full-name)
|
(v-n user-full-name)
|
||||||
(org-startup-folded nil)
|
(org-startup-folded nil)
|
||||||
|
(org-inhibit-startup t)
|
||||||
org-time-was-given org-end-time-was-given x
|
org-time-was-given org-end-time-was-given x
|
||||||
prompt completions char time pos default histvar)
|
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)
|
(if (re-search-forward "%\\?" nil t)
|
||||||
(replace-match "")
|
(replace-match "")
|
||||||
(and (re-search-forward "^[^#\n]" nil t) (backward-char 1))))
|
(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))
|
(org-set-local 'org-finish-function 'org-remember-finalize))
|
||||||
(when (save-excursion
|
(when (save-excursion
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
|
Loading…
Reference in a new issue