Include desc back in replace-match statement (#1615)

Following @jcguu95's suggestion on #1602.
This commit is contained in:
Gustavo
2021-07-18 21:38:19 -05:00
committed by GitHub
parent a529b20a81
commit f50e30dd51

View File

@ -186,7 +186,8 @@ If the property is already set, replace its value."
:where (= file $s1)
:and (= level 0)] path))))
(set-match-data mdata)
(replace-match (org-link-make-string (concat "id:" node-id)) nil t)))))))
(replace-match (org-link-make-string (concat "id:" node-id)
desc) nil t)))))))
(provide 'org-roam-migrate)
;;; org-roam-migrate.el ends here