mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-13 09:32:19 +00:00
Code

Move `org-match-any-p' in "org-macs.el"

Browse Source 
* lisp/org-macs.el (org-match-any-p): Moved from "org.el".
* lisp/org.el (org-match-any-p): Removed.
This commit is contained in:
Nicolas Goaziou 2018-01-23 09:48:01 +01:00
parent 66bbe54a75
commit 8ecc4c4365
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-macs.el
View File

@ -592,6 +592,10 @@ ones and overrule settings in the other lists."
(beginning-of-line)
(looking-at regexp)))
(defun org-match-any-p (re list)
"Non nil if regexp RE matches an element in LIST."
(cl-some (lambda (x) (string-match-p re x)) list))
(defun org-in-regexp (regexp &optional nlines visually)
"Check if point is inside a match of REGEXP.

5
lisp/org.el
View File

@ -14074,11 +14074,6 @@ epoch to the beginning of today (00:00)."
("m" . 2678400.0) ("y" . 31557600.0)))))))
(t (org-2ft s)))))
(defun org-match-any-p (re list)
"Does re match any element of list?"
(setq list (mapcar (lambda (x) (string-match re x)) list))
(delq nil list))
(defvar org-add-colon-after-tag-completion nil) ;; dynamically scoped param
(defvar org-tags-overlay (make-overlay 1 1))
(delete-overlay org-tags-overlay)