branch: externals/which-key
commit d5a42732a6f39bb4284f378a6996aacecf888dc0
Author: Justin Burkett <jus...@burkett.cc>
Commit: Justin Burkett <jus...@burkett.cc>
Replace use of xor
Apparently this is a recent function
---
which-key.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/which-key.el b/which-key.el
index f7bab55..e0b30de 100644
--- a/which-key.el
+++ b/which-key.el
@@ -1329,7 +1329,7 @@ width) in lines and characters respectively."
((not which-key-sort-uppercase-first)
(let ((aup (not (string-equal da a)))
(bup (not (string-equal db b))))
- (if (not (xor aup bup))
+ (if (or (and aup bup) (and (not aup) (not bup)))
(string-lessp a b)
bup)))
(t (string-lessp a b)))))
