summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-08-22 12:24:14 +0200
committerBastien Guerry <bzg@altern.org>2012-08-22 12:24:14 +0200
commit53c230a9f612294360b606a50c0e974f54152e75 (patch)
treec83891ac397fb463bdd77ddb2dc48f326de4940e
parent7d8f69068e2ba01ff7e744f981755b1dc6d50cff (diff)
downloadorg-mode-53c230a9f612294360b606a50c0e974f54152e75.tar.gz
org.el: Fix bug: include links abbreviations when completing
* org.el (org-insert-link): Fix bug: include links abbreviations when completing.
-rw-r--r--lisp/org.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 9af3a7f..1e2947e 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -9324,6 +9324,7 @@ be used as the default description."
(desc region)
tmphist ; byte-compile incorrectly complains about this
(link link-location)
+ (abbrevs org-link-abbrev-alist-local)
entry file all-prefixes auto-desc)
(cond
(link-location) ; specified by arg, just use it.
@@ -9365,7 +9366,7 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
;; Fake a link history, containing the stored links.
(setq tmphist (append (mapcar 'car org-stored-links)
org-insert-link-history))
- (setq all-prefixes (append (mapcar 'car org-link-abbrev-alist-local)
+ (setq all-prefixes (append (mapcar 'car abbrevs)
(mapcar 'car org-link-abbrev-alist)
org-link-types))
(unwind-protect