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:
Nicolas Goaziou 2017-05-22 08:31:53 +02:00
parent b3088eea3f
commit 2b44a1a74c
1 changed files with 2 additions and 4 deletions

View File

@ -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.