diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-04-17 16:07:08 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-04-17 16:08:23 +0200 |
| commit | ee5fa1843092c89309d0bbc8fb7d2bf33061a8c8 (patch) | |
| tree | 5faf7f20116b60d98fc1f4923e6284984eec881e | |
| parent | ff3f3876a8d6b132e911f095639d0c2813551202 (diff) | |
| download | org-mode-ee5fa1843092c89309d0bbc8fb7d2bf33061a8c8.tar.gz | |
Remove `org<>' function
* lisp/org.el (org<>): Remove function.
| -rw-r--r-- | lisp/org.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index 39d98ea..0907a30 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13942,7 +13942,7 @@ See also `org-scan-tags'." (if timep 'time strp)))) (setq pv (if (or regexp strp) (substring pv 1 -1) 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 "")))) (regexp `(string-match ,pv (or ,gv ""))) (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 '("=" "==")) '(= 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)) -(defun org<> (a b) (/= a b)) - (defvar org-add-colon-after-tag-completion nil) ;; dynamically scoped param (defvar org-tags-overlay (make-overlay 1 1)) (delete-overlay org-tags-overlay) |