|
@@ -175,11 +175,12 @@
|
|
|
|
|
|
(defun org-git-store-link ()
|
|
|
"Store git link to current file."
|
|
|
- (let ((file (abbreviate-file-name (buffer-file-name))))
|
|
|
- (when (org-git-gitrepos-p file)
|
|
|
- (org-store-link-props
|
|
|
- :type "git"
|
|
|
- :link (org-git-create-git-link file)))))
|
|
|
+ (when (buffer-file-name)
|
|
|
+ (let ((file (abbreviate-file-name (buffer-file-name))))
|
|
|
+ (when (org-git-gitrepos-p file)
|
|
|
+ (org-store-link-props
|
|
|
+ :type "git"
|
|
|
+ :link (org-git-create-git-link file))))))
|
|
|
|
|
|
(add-hook 'org-store-link-functions 'org-git-store-link)
|
|
|
|