From: Hiraoka <khi@users.osdn.me>
Date: Mon, 15 Aug 2022 11:25:31 +0000 (+0900)
Subject: fix broken macro howm-sort-items that worked accidentally
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=0bc357aa144f9a6ea3785cad2aad732d96c68f9c;p=howm%2Fhowm.git

fix broken macro howm-sort-items that worked accidentally
---

diff --git a/ChangeLog b/ChangeLog
index 295e7d1..60fa9da 100644
--- 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
--- 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"