branch: elpa/casual
commit a73c87af541556f279f3f6cdf308a14c7d31c560
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Fix label for group label in Casual IBuffer
- #121 Fixes so labels that use βGroupβ are appropriately labeled when
Unicode
symbols are disabled.
---
lisp/casual-ibuffer-utils.el | 2 +-
tests/test-casual-ibuffer-utils.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/casual-ibuffer-utils.el b/lisp/casual-ibuffer-utils.el
index 242b521a69..374734b1d3 100644
--- a/lisp/casual-ibuffer-utils.el
+++ b/lisp/casual-ibuffer-utils.el
@@ -31,7 +31,7 @@
(:next . '("β" "Next"))
(:jump . '("π" "Jump"))
(:marked . '("β―" "Marked"))
- (:group . '("[]" ""))
+ (:group . '("[]" "Group"))
(:jumpgroup . '("π[]" "Jump to Group")))
"Unicode symbol DB to use for IBuffer Transient menus.")
diff --git a/tests/test-casual-ibuffer-utils.el
b/tests/test-casual-ibuffer-utils.el
index c362789c27..1eb384a36b 100644
--- a/tests/test-casual-ibuffer-utils.el
+++ b/tests/test-casual-ibuffer-utils.el
@@ -33,7 +33,7 @@
(should (string-equal (casual-ibuffer-unicode-get :next) "Next"))
(should (string-equal (casual-ibuffer-unicode-get :jump) "Jump"))
(should (string-equal (casual-ibuffer-unicode-get :marked) "Marked"))
- (should (string-equal (casual-ibuffer-unicode-get :group) ""))
+ (should (string-equal (casual-ibuffer-unicode-get :group) "Group"))
(should (string-equal (casual-ibuffer-unicode-get :jumpgroup) "Jump to
Group")))
(let ((casual-lib-use-unicode t))