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

org.el (org-insert-link): Call `org-link-try-special-completion' from the original buffer 

* org.el (org-insert-link): Call
`org-link-try-special-completion' from the original buffer.

TINYCHANGE
This commit is contained in:
Nicolas Richard 2012-09-22 11:18:06 +02:00 committed by Bastien Guerry
parent 6e40519811
commit eedee465f7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -9418,6 +9418,7 @@ If the DEFAULT-DESCRIPTION parameter is non-nil, this value will
be used as the default description." be used as the default description."
(interactive "P") (interactive "P")
(let* ((wcf (current-window-configuration)) (let* ((wcf (current-window-configuration))
(origbuf (current-buffer))
(region (if (org-region-active-p) (region (if (org-region-active-p)
(buffer-substring (region-beginning) (region-end)))) (buffer-substring (region-beginning) (region-end))))
(remove (and region (list (region-beginning) (region-end)))) (remove (and region (list (region-beginning) (region-end))))
@ -9493,7 +9494,8 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
(and (equal ":" (substring link -1)) (and (equal ":" (substring link -1))
(member (substring link 0 -1) all-prefixes) (member (substring link 0 -1) all-prefixes)
(setq link (substring link 0 -1)))) (setq link (substring link 0 -1))))
(setq link (org-link-try-special-completion link)))) (setq link (with-current-buffer origbuf
(org-link-try-special-completion link)))))
(set-window-configuration wcf) (set-window-configuration wcf)
(kill-buffer "*Org Links*")) (kill-buffer "*Org Links*"))
(setq entry (assoc link org-stored-links)) (setq entry (assoc link org-stored-links))