From 7b122d434229704b72a222b5657ec1364627e8b2 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sat, 27 Sep 2008 07:56:45 +0200 Subject: [PATCH] Now really fix the bottom bug..... --- 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 5693f3553..27511d7d7 100644 --- a/lisp/org-remember.el +++ b/lisp/org-remember.el @@ -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