Remove `org-protect-slash'
* lisp/org.el (org-protect-slash): Remove function. (org-refile-get-targets): Apply removal. This internal function is used only once throughout the code base.
This commit is contained in:
parent
b3088eea3f
commit
2b44a1a74c
|
@ -11609,7 +11609,8 @@ order.")
|
||||||
(list (buffer-name
|
(list (buffer-name
|
||||||
(buffer-base-buffer))))
|
(buffer-base-buffer))))
|
||||||
(_ nil))
|
(_ nil))
|
||||||
(mapcar #'org-protect-slash
|
(mapcar (lambda (s) (replace-regexp-in-string
|
||||||
|
"/" "\\/" s nil t))
|
||||||
(org-get-outline-path t t)))
|
(org-get-outline-path t t)))
|
||||||
"/"))))
|
"/"))))
|
||||||
(push (list target f re (org-refile-marker (point)))
|
(push (list target f re (org-refile-marker (point)))
|
||||||
|
@ -11623,9 +11624,6 @@ order.")
|
||||||
(message "Getting targets...done")
|
(message "Getting targets...done")
|
||||||
(delete-dups (nreverse targets))))
|
(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)
|
(defun org--get-outline-path-1 (&optional use-cache)
|
||||||
"Return outline path to current headline.
|
"Return outline path to current headline.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue