Преглед изворни кода

Remove duplicates in refile targets

* lisp/org.el (org-refile-get-targets): Remove duplicates in refile
  targets.
Nicolas Goaziou пре 7 година
родитељ
комит
7560a49459
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -11825,7 +11825,7 @@ order.")
 	      (org-refile-cache-put tgs (buffer-file-name) descre))
 	      (org-refile-cache-put tgs (buffer-file-name) descre))
 	    (setq targets (append tgs targets))))))
 	    (setq targets (append tgs targets))))))
     (message "Getting targets...done")
     (message "Getting targets...done")
-    (nreverse targets)))
+    (nreverse (delete-dups targets))))
 
 
 (defun org-protect-slash (s)
 (defun org-protect-slash (s)
   (replace-regexp-in-string "/" "\\/" s nil t))
   (replace-regexp-in-string "/" "\\/" s nil t))