瀏覽代碼

Now really fix the bottom bug.....

Carsten Dominik 16 年之前
父節點
當前提交
7b122d4342
共有 1 個文件被更改,包括 7 次插入1 次删除
  1. 7 1
      lisp/org-remember.el

+ 7 - 1
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