mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-25 07:27:57 +00:00
Code

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

Browse Source 
* org.el (org-insert-link): Make sure point is at the
beginning of the buffer.
This commit is contained in:
Bastien Guerry 2012-08-03 16:23:57 +02:00
parent 8fca59f71f
commit 1ac2552273
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org.el
View File

@ -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))