Browse Source

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.
Nicolas Goaziou 7 years ago
parent
commit
2b44a1a74c
1 changed files with 2 additions and 4 deletions
  1. 2 4
      lisp/org.el

+ 2 - 4
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.