tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Now really fix the bottom bug.....

This commit is contained in:
Carsten Dominik 2008-09-27 07:56:45 +02:00
parent 4e6b862560
commit 7b122d4342
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-remember.el
View File

@ -783,7 +783,7 @@ See also the variable `org-reverse-note-order'."
(cond
((and fastp (memq heading '(top bottom)))
(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
exitcmd 'return))
((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)))
(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))
;; Put it at the end, one level below level 1
(save-restriction