From 32890ea5a505f262b97e4f61296649ed19fe1ad8 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 18 Sep 2017 21:25:15 +0200 Subject: [PATCH] Move `org-uniquify' into "org-macs.el" * lisp/org.el (org-uniquify): Move function... * lisp/org-macs.el: ... here. --- lisp/org-macs.el | 4 ++++ lisp/org.el | 4 ---- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 6ef34d73a..a20903023 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -311,6 +311,10 @@ This is in contrast to merely setting it to 0." (setq plist (cddr plist))) p)) +(defsubst org-uniquify (list) + "Non-destructively remove duplicate elements from LIST." + (let ((res (copy-sequence list))) (delete-dups res))) + ;;; Regexp matching diff --git a/lisp/org.el b/lisp/org.el index 686bbd874..691be659d 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -186,10 +186,6 @@ Stars are put in group 1 and the trimmed body in group 2.") (defvar ffap-url-regexp) ;Silence byte-compiler -(defsubst org-uniquify (list) - "Non-destructively remove duplicate elements from LIST." - (let ((res (copy-sequence list))) (delete-dups res))) - (defsubst org-get-at-bol (property) "Get text property PROPERTY at the beginning of line." (get-text-property (point-at-bol) property))