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))

Reply via email to