awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

lang/org: fix drag'n'drop in org-mode #307

Browse Source 
Caused by references to long gone functions.
This commit is contained in:
Henrik Lissner
2017-12-27 01:03:15 -05:00
parent 0a9a992e81
commit 06e76c8f49
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/lang/org/autoload/org-attach.el
View File

@ -78,7 +78,7 @@ the cursor."
(defun +org-attach-download-dnd (uri action) (defun +org-attach-download-dnd (uri action)
"TODO" "TODO"
(if (eq major-mode 'org-mode) (if (eq major-mode 'org-mode)
(+org-attach:url uri) (+org-attach/uri uri)
(let ((dnd-protocol-alist (let ((dnd-protocol-alist
(rassq-delete-all '+org-attach-download-dnd (rassq-delete-all '+org-attach-download-dnd
(copy-alist dnd-protocol-alist)))) (copy-alist dnd-protocol-alist))))
@ -113,9 +113,9 @@ the cursor."
(t (t
(insert (insert
(format "%s [[./%s][%s]] " (format "%s [[./%s][%s]] "
(org-attach--icon filename) (+org-attach--icon filename)
(file-relative-name filename buffer-file-name) (file-relative-name filename buffer-file-name)
(file-name-nondirectory (directory-file-name rel-path))))))) (file-name-nondirectory (directory-file-name filename)))))))
;;;###autoload ;;;###autoload
(defun +org-attach*relative-to-attach-dir (orig-fn &rest args) (defun +org-attach*relative-to-attach-dir (orig-fn &rest args)