branch: externals/xr commit 5394d8c22bc37e332043a29f32614a1b496b4524 Author: Mattias Engdegård <matti...@acm.org> Commit: Mattias Engdegård <matti...@acm.org>
Simplify condition --- xr.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/xr.el b/xr.el index 772605e..c8bd6d2 100644 --- a/xr.el +++ b/xr.el @@ -1151,8 +1151,7 @@ A-SETS and B-SETS are arguments to `any'." (push seq alternatives))) (if (cdr alternatives) ;; Simplify (or nonl "\n") to anything - (if (or (equal alternatives '(nonl "\n")) - (equal alternatives '("\n" nonl))) + (if (member alternatives '((nonl "\n") ("\n" nonl))) 'anything (cons 'or (nreverse alternatives))) (car alternatives))))