[elpa] externals/rec-mode ef55915 78/98: rec-mode: support search-insensitive searches.

[Stefan Monnier]

branch: externals/rec-mode
commit ef55915f41a53f466868418c18f6b23a784f1411
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
Commit: Antoine Kalmbach <ane@iki.fi>

    rec-mode: support search-insensitive searches.
    
    2015-04-09  Jose E. Marchesi  <jemarch@gnu.org>
    
        rec-mode: support search-insensitive searches.
        * doc/rec-mode.texi (Searches): Document prefix arguments in both
        rec-cmd-selext-fast and rec-cmd-select-sex.
    
        * etc/rec-mode.el (rec-cmd-select-fast): Support case-insensitive
        searches.
        (rec-cmd-select-sex): Likewise.
---
 etc/rec-mode.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/etc/rec-mode.el b/etc/rec-mode.el
index 11f5027..2b2bf21 100644
--- a/etc/rec-mode.el
+++ b/etc/rec-mode.el
@@ -1483,23 +1483,25 @@ The result of the selection is stored in 
`rec-current-selection'."
   (interactive)
   (setq rec-current-selection (rec-query)))
 
-(defun rec-cmd-select-fast (str)
+(defun rec-cmd-select-fast (prefix str)
   "Perform a selection on the current record set using a fast string search.
 
 A prefix argument means to use a case-insensitive search."
-  (interactive "sFast string query: ")
+  (interactive "P\nsFast string query: ")
   (when (not (equal str ""))
     (setq rec-current-selection (rec-query :fast-string str
+                                           :icase prefix
                                            :type (rec-record-type)))
     (rec-navigate-selection)))
 
-(defun rec-cmd-select-sex (sex)
+(defun rec-cmd-select-sex (prefix sex)
   "Perform a selection on the current record set using a selection expression.
 
 A prefix argument means to use a case-insensitive search."
-  (interactive "sSelection expression: ")
+  (interactive "P\nsSelection expression: ")
   (when (not (equal sex ""))
     (setq rec-current-selection (rec-query :sex sex
+                                           :icase prefix
                                            :type (rec-record-type)))
     (rec-navigate-selection)))