diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-22 08:31:53 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-22 08:31:53 +0200 |
| commit | 2b44a1a74c6da2d4b8572a0367bb361197a603b9 (patch) | |
| tree | e9ed61be0ff1233b4531a9b448d8c8f17e1ab78d | |
| parent | b3088eea3f9a7e5c66a444d10a8700a65aa9387d (diff) | |
| download | org-mode-2b44a1a74c6da2d4b8572a0367bb361197a603b9.tar.gz | |
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.
| -rw-r--r-- | lisp/org.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index 932a50f..9117e3c 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. |