branch: externals/rec-mode
commit ef55915f41a53f466868418c18f6b23a784f1411
Author: Jose E. Marchesi <[email protected]>
Commit: Antoine Kalmbach <[email protected]>
rec-mode: support search-insensitive searches.
2015-04-09 Jose E. Marchesi <[email protected]>
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)))
