ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
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 (when org-stored-links
(insert "\nStored links are available with <up>/<down> or M-p/n (most recent with RET):\n\n") (insert "\nStored links are available with <up>/<down> or M-p/n (most recent with RET):\n\n")
(insert (mapconcat 'org-link-prettify (insert (mapconcat 'org-link-prettify
(reverse org-stored-links) "\n")))) (reverse org-stored-links) "\n")))
(goto-char (point-min)))
(let ((cw (selected-window))) (let ((cw (selected-window)))
(select-window (get-buffer-window "*Org Links*" 'visible)) (select-window (get-buffer-window "*Org Links*" 'visible))
(with-current-buffer "*Org Links*" (setq truncate-lines t)) (with-current-buffer "*Org Links*" (setq truncate-lines t))