|
@@ -9609,7 +9609,8 @@ active region."
|
|
(when custom-id
|
|
(when custom-id
|
|
(setq link (concat "file:" (abbreviate-file-name
|
|
(setq link (concat "file:" (abbreviate-file-name
|
|
(buffer-file-name)) "::#" custom-id))
|
|
(buffer-file-name)) "::#" custom-id))
|
|
- (push (list link desc) org-stored-links)))))))
|
|
|
|
|
|
+ (push (list link desc) org-stored-links))
|
|
|
|
+ (car org-stored-links))))))
|
|
|
|
|
|
(defun org-store-link-props (&rest plist)
|
|
(defun org-store-link-props (&rest plist)
|
|
"Store link properties, extract names and addresses."
|
|
"Store link properties, extract names and addresses."
|