mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 22:37:47 +00:00
Remove `org<>' function
* lisp/org.el (org<>): Remove function.
This commit is contained in:
parent
ff3f3876a8
commit
ee5fa18430
|
@ -13942,7 +13942,7 @@ See also `org-scan-tags'."
|
||||||
(if timep 'time strp))))
|
(if timep 'time strp))))
|
||||||
(setq pv (if (or regexp strp) (substring pv 1 -1) pv))
|
(setq pv (if (or regexp strp) (substring pv 1 -1) pv))
|
||||||
(when timep (setq pv (org-matcher-time pv)))
|
(when timep (setq pv (org-matcher-time pv)))
|
||||||
(cond ((and regexp (eq po 'org<>))
|
(cond ((and regexp (eq po '/=))
|
||||||
`(not (string-match ,pv (or ,gv ""))))
|
`(not (string-match ,pv (or ,gv ""))))
|
||||||
(regexp `(string-match ,pv (or ,gv "")))
|
(regexp `(string-match ,pv (or ,gv "")))
|
||||||
(strp `(,po (or ,gv "") ,pv))
|
(strp `(,po (or ,gv "") ,pv))
|
||||||
|
@ -14138,11 +14138,9 @@ When DOWNCASE is non-nil, expand downcased TAGS."
|
||||||
((member op '("<=" "=<")) '(<= org-string<= org-time<=))
|
((member op '("<=" "=<")) '(<= org-string<= org-time<=))
|
||||||
((member op '(">=" "=>")) '(>= org-string>= org-time>=))
|
((member op '(">=" "=>")) '(>= org-string>= org-time>=))
|
||||||
((member op '("=" "==")) '(= string= org-time=))
|
((member op '("=" "==")) '(= string= org-time=))
|
||||||
((member op '("<>" "!=")) '(org<> org-string<> org-time<>))))
|
((member op '("<>" "!=")) '(/= org-string<> org-time<>))))
|
||||||
(nth (if (eq stringp 'time) 2 (if stringp 1 0)) op))
|
(nth (if (eq stringp 'time) 2 (if stringp 1 0)) op))
|
||||||
|
|
||||||
(defun org<> (a b) (/= a b))
|
|
||||||
|
|
||||||
(defvar org-add-colon-after-tag-completion nil) ;; dynamically scoped param
|
(defvar org-add-colon-after-tag-completion nil) ;; dynamically scoped param
|
||||||
(defvar org-tags-overlay (make-overlay 1 1))
|
(defvar org-tags-overlay (make-overlay 1 1))
|
||||||
(delete-overlay org-tags-overlay)
|
(delete-overlay org-tags-overlay)
|
||||||
|
|
Loading…
Reference in a new issue