[elpa] externals/rec-mode cdf4a16 48/98: rec-mode: rec-cmd-count now suggests a default selection expression when invoked with a numeric prefix.

[Stefan Monnier]

branch: externals/rec-mode
commit cdf4a16bd4aab594351932561aa71bbec840873f
Author: Jose E. Marchesi <jemarch@gnu.org>
Commit: Antoine Kalmbach <ane@iki.fi>

    rec-mode: rec-cmd-count now suggests a default selection expression when 
invoked with a numeric prefix.
---
 etc/rec-mode.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/etc/rec-mode.el b/etc/rec-mode.el
index 3efc644..b77d304 100644
--- a/etc/rec-mode.el
+++ b/etc/rec-mode.el
@@ -1881,9 +1881,18 @@ records of the current type.
 If a numeric argument is used then prompt for a selection
 expression."
   (interactive "P")
-  (let ((sex (and (not (null n)) (read-from-minibuffer "Selection expression: 
"))))
+  (let* ((default-sex (let ((current-field (rec-current-field)))
+                        (when (and current-field
+                                   (not (string-match "\n" (rec-field-value 
current-field)))
+                                   (< (length (rec-field-value current-field)) 
20))
+                          (concat (rec-field-name current-field) " = '" 
(rec-field-value current-field) "'"))))
+         (sex (and (not (null n)) (read-from-minibuffer (concat "Selection 
expression"
+                                                                (if default-sex
+                                                                    (concat " 
(default " default-sex ")")
+                                                                  "")
+                                                                ": ")))))
     (when (equal sex "")
-      (setq sex nil))
+      (setq sex default-sex))
     (message "Counting records...")
     (let ((type (rec-record-type)))
       (message "%s" (concat (number-to-string (rec-count type sex))