diff --git a/lisp/org.el b/lisp/org.el index 932a50f59..9117e3c9d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11609,7 +11609,8 @@ order.") (list (buffer-name (buffer-base-buffer)))) (_ nil)) - (mapcar #'org-protect-slash + (mapcar (lambda (s) (replace-regexp-in-string + "/" "\\/" s nil t)) (org-get-outline-path t t))) "/")))) (push (list target f re (org-refile-marker (point))) @@ -11623,9 +11624,6 @@ order.") (message "Getting targets...done") (delete-dups (nreverse targets)))) -(defun org-protect-slash (s) - (replace-regexp-in-string "/" "\\/" s nil t)) - (defun org--get-outline-path-1 (&optional use-cache) "Return outline path to current headline.