[elpa] externals/rec-mode 4bef4b3 07/14: rec-cmd-show-summary: pass :type to rec-query

[Stefan Monnier]

branch: externals/rec-mode
commit 4bef4b39dc2a4fea9d1e48029d4c774c0d563bae
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
Commit: Jose E. Marchesi <jose.marchesi@oracle.com>

    rec-cmd-show-summary: pass :type to rec-query
---
 rec-mode.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rec-mode.el b/rec-mode.el
index 11bbd18..1598874 100644
--- a/rec-mode.el
+++ b/rec-mode.el
@@ -2139,7 +2139,8 @@ the user is prompted."
           (unless (car summary-fields)
             (setq summary-fields (split-string (read-from-minibuffer "Fields 
to use in the summary: ") "[ ,]"))))
         (if (car summary-fields)
-            (let* ((query (rec-query :fex (string-join summary-fields ",")))
+            (let* ((query (rec-query :type (rec-record-type)
+                                     :fex (string-join summary-fields ",")))
                    (summary-list (mapcar (lambda (rec)
                                            (let* ((entry-marker (make-marker)))
                                              (set-marker entry-marker