Move `org-uniquify' into "org-macs.el"
* lisp/org.el (org-uniquify): Move function... * lisp/org-macs.el: ... here.
This commit is contained in:
parent
794dfaa6e0
commit
32890ea5a5
|
@ -311,6 +311,10 @@ This is in contrast to merely setting it to 0."
|
||||||
(setq plist (cddr plist)))
|
(setq plist (cddr plist)))
|
||||||
p))
|
p))
|
||||||
|
|
||||||
|
(defsubst org-uniquify (list)
|
||||||
|
"Non-destructively remove duplicate elements from LIST."
|
||||||
|
(let ((res (copy-sequence list))) (delete-dups res)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;; Regexp matching
|
;;; Regexp matching
|
||||||
|
|
|
@ -186,10 +186,6 @@ Stars are put in group 1 and the trimmed body in group 2.")
|
||||||
|
|
||||||
(defvar ffap-url-regexp) ;Silence byte-compiler
|
(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)
|
(defsubst org-get-at-bol (property)
|
||||||
"Get text property PROPERTY at the beginning of line."
|
"Get text property PROPERTY at the beginning of line."
|
||||||
(get-text-property (point-at-bol) property))
|
(get-text-property (point-at-bol) property))
|
||||||
|
|
Loading…
Reference in New Issue