mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-ol/org-toggle-link-display: Fix compatibility with old Emacs 

* testing/lisp/test-ol.el (test-ol/org-toggle-link-display): Use
back-compatible `org-xor' instead of `xor'.
This commit is contained in:
Ihor Radchenko 2022-01-29 18:47:00 +08:00
parent f28f02bde9
commit d2775da08d
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
testing/lisp/test-ol.el
View File

@ -59,19 +59,19 @@ See https://github.com/yantar92/org/issues/4."
(dotimes (_ 2)
(goto-char 1)
(re-search-forward "\\[")
(should-not (xor org-link-descriptive (org-invisible-p)))
(should-not (org-xor org-link-descriptive (org-invisible-p)))
(re-search-forward "example")
(should-not (xor org-link-descriptive (org-invisible-p)))
(should-not (org-xor org-link-descriptive (org-invisible-p)))
(re-search-forward "com")
(should-not (xor org-link-descriptive (org-invisible-p)))
(should-not (org-xor org-link-descriptive (org-invisible-p)))
(re-search-forward "]")
(should-not (xor org-link-descriptive (org-invisible-p)))
(should-not (org-xor org-link-descriptive (org-invisible-p)))
(re-search-forward "\\[")
(should-not (org-invisible-p))
(re-search-forward "link")
(should-not (org-invisible-p))
(re-search-forward "]")
(should-not (xor org-link-descriptive (org-invisible-p)))
(should-not (org-xor org-link-descriptive (org-invisible-p)))
(org-toggle-link-display)))))