fix broken macro howm-sort-items that worked accidentally

diff --git a/ChangeLog b/ChangeLog
index 295e7d1..60fa9da 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2022-08-15  HIRAOKA Kazuyuki  <khi@users.osdn.me>
 
+       * howm-view.el (howm-sort-items): fix broken macro (worked accidentally)
+
+2022-08-15  HIRAOKA Kazuyuki  <khi@users.osdn.me>
+
        * howm-view.el (howm-view-toggle-uniq): "uniq" is now togglable
        thx > Andrei Sukhovskii san (qejep at posteo.net)
 

diff --git a/howm-view.el b/howm-view.el
index e0c9b88..8984071 100644 (file)
--- a/howm-view.el
+++ b/howm-view.el
@@ -1344,10 +1344,10 @@ which simply calls howm-sort-items-by-NAME."
 (defmacro howm-sort-items (evaluator comparer item-list
                                              &optional reverse-p)
   `(let* ((howm-view-s-i-comparer ,comparer)
-          (cmp (if reverse-p
+          (cmp (if ,reverse-p
                    (lambda (a b) (funcall howm-view-s-i-comparer b a))
                  howm-view-s-i-comparer)))
-     (howm-sort ,evaluator cmp item-list)))
+     (howm-sort ,evaluator cmp ,item-list)))
 
 ;; ;; generate the below aliases for howm-test080714
 ;; (let ((methods '("random" "name" "numerical-name" "date" "reverse-date"