tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Move `org-uniquify' into "org-macs.el" 

* lisp/org.el (org-uniquify): Move function...
* lisp/org-macs.el: ... here.
This commit is contained in:
Nicolas Goaziou 2017-09-18 21:25:15 +02:00
parent 794dfaa6e0
commit 32890ea5a5
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-macs.el
View File

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

4
lisp/org.el
View File

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