瀏覽代碼

org.el (org-insert-link): Make sure point is at the beginning of the buffer.

* org.el (org-insert-link): Make sure point is at the
beginning of the buffer.
Bastien Guerry 12 年之前
父節點
當前提交
1ac2552273
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org.el

+ 2 - 1
lisp/org.el

@@ -9307,7 +9307,8 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
 	(when org-stored-links
 	  (insert "\nStored links are available with <up>/<down> or M-p/n (most recent with RET):\n\n")
 	  (insert (mapconcat 'org-link-prettify
-			     (reverse org-stored-links) "\n"))))
+			     (reverse org-stored-links) "\n")))
+	(goto-char (point-min)))
       (let ((cw (selected-window)))
 	(select-window (get-buffer-window "*Org Links*" 'visible))
 	(with-current-buffer "*Org Links*" (setq truncate-lines t))