diff options
author | Samuel Loury <konubinixweb@gmail.com> | 2013-01-04 13:47:59 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-04 16:39:35 +0100 |
commit | 3479cebca63381ff9538d93f97167a15935f10fc (patch) | |
tree | 51eb1e91035c0c090c99147bcbf5d4f7c24506d5 | |
parent | 7716b9c890061514541e040f7f5fbd67e0dccd00 (diff) | |
download | org-mode-3479cebca63381ff9538d93f97167a15935f10fc.tar.gz |
Fix an error introduced in 502e538020d02522dd40b4b5f940cf43d19096ab, org-make-link was replaced by contact instead of concat as the comment suggested
* org-git-link.el (org-git-create-git-link): Replace contact call by concat
* org-bookmark.el (org-bookmark-store-link): Replace contact call by concat
TINYCHANGE
-rw-r--r-- | contrib/lisp/org-bookmark.el | 2 | ||||
-rw-r--r-- | contrib/lisp/org-git-link.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/lisp/org-bookmark.el b/contrib/lisp/org-bookmark.el index 78a6f57..5c669b0 100644 --- a/contrib/lisp/org-bookmark.el +++ b/contrib/lisp/org-bookmark.el @@ -80,7 +80,7 @@ Otherwise prompt the user for the right bookmark to use." (car bmks) (completing-read "Bookmark: " bmks nil t nil nil (car bmks)))))) (if bookmark - (org-store-link-props :link (contact "bookmark:" bookmark) + (org-store-link-props :link (concat "bookmark:" bookmark) :description bookmark)))) (provide 'org-bookmark) diff --git a/contrib/lisp/org-git-link.el b/contrib/lisp/org-git-link.el index e18e2af..2f5990f 100644 --- a/contrib/lisp/org-git-link.el +++ b/contrib/lisp/org-git-link.el @@ -171,7 +171,7 @@ (let* ((gitdir (first (org-git-find-gitdir (file-truename file)))) (branchname (org-git-get-current-branch gitdir)) (timestring (format-time-string "%Y-%m-%d" (current-time)))) - (contact "git:" file "::" (org-git-create-searchstring branchname timestring)))) + (concat "git:" file "::" (org-git-create-searchstring branchname timestring)))) (defun org-git-store-link () "Store git link to current file." |