mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 04:02:53 +00:00
Now really fix the bottom bug.....
This commit is contained in:
parent
4e6b862560
commit
7b122d4342
|
@ -783,7 +783,7 @@ See also the variable `org-reverse-note-order'."
|
||||||
(cond
|
(cond
|
||||||
((and fastp (memq heading '(top bottom)))
|
((and fastp (memq heading '(top bottom)))
|
||||||
(setq spos org-goto-start-pos
|
(setq spos org-goto-start-pos
|
||||||
exitcmd (if (eq heading 'top) 'left 'right)))
|
exitcmd (if (eq heading 'top) 'left nil)))
|
||||||
(fastp (setq spos org-goto-start-pos
|
(fastp (setq spos org-goto-start-pos
|
||||||
exitcmd 'return))
|
exitcmd 'return))
|
||||||
((eq org-remember-interactive-interface 'outline)
|
((eq org-remember-interactive-interface 'outline)
|
||||||
|
@ -838,6 +838,12 @@ See also the variable `org-reverse-note-order'."
|
||||||
(move-marker org-remember-last-stored-marker (point)))
|
(move-marker org-remember-last-stored-marker (point)))
|
||||||
(t (error "This should not happen"))))
|
(t (error "This should not happen"))))
|
||||||
|
|
||||||
|
((eq heading 'bottom)
|
||||||
|
(org-paste-subtree 1 txt)
|
||||||
|
(and org-auto-align-tags (org-set-tags nil t))
|
||||||
|
(bookmark-set "org-remember-last-stored")
|
||||||
|
(move-marker org-remember-last-stored-marker (point)))
|
||||||
|
|
||||||
((and (bobp) (not reversed))
|
((and (bobp) (not reversed))
|
||||||
;; Put it at the end, one level below level 1
|
;; Put it at the end, one level below level 1
|
||||||
(save-restriction
|
(save-restriction
|
||||||
|
|
Loading…
Reference in a new issue