[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-contrib f327d4c8c9 2/2: * lisp/ol-git-link.el: Fix obs
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-contrib f327d4c8c9 2/2: * lisp/ol-git-link.el: Fix obsolete functions |
Date: |
Wed, 13 Sep 2023 07:00:41 -0400 (EDT) |
branch: elpa/org-contrib
commit f327d4c8c9b6ea369323252c386c208b2aa943e1
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
* lisp/ol-git-link.el: Fix obsolete functions
(org-git-store-link): Use `org-link-store-props'.
(org-git-insert-link-interactively): Use `org-link-make-string'.
---
lisp/ol-git-link.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/ol-git-link.el b/lisp/ol-git-link.el
index 6d08ee0fa2..5f36bb94cc 100644
--- a/lisp/ol-git-link.el
+++ b/lisp/ol-git-link.el
@@ -201,13 +201,13 @@ than two double colons, str2 and/or str3 may be set the
empty string."
(let ((file (abbreviate-file-name (buffer-file-name)))
(line (line-number-at-pos)))
(when (org-git-gitrepos-p file)
- (org-store-link-props
+ (org-link-store-props
:type "git"
:link (org-git-create-git-link file line))))))
(defun org-git-insert-link-interactively (file searchstring &optional
description)
(interactive "FFile: \nsSearch string: \nsDescription: ")
- (insert (org-make-link-string (concat "git:" file "::" searchstring)
description)))
+ (insert (org-link-make-string (concat "git:" file "::" searchstring)
description)))
;; Calling git
(defun org-git-show (gitdir object buffer)