[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Use region as initial search regexp
From: |
Roland Winkler |
Subject: |
Re: Use region as initial search regexp |
Date: |
Sun, 26 May 2019 16:05:13 -0500 |
On Sat May 25 2019 Marco Wahl wrote:
> IIUC you could consider
How about the following so that the default is also spliced into the
prompt? (Also, I believe this makes sense only if the region is
more than just an empty string.)
(defun bbdb-search-read (&optional field)
"Read regexp to search FIELD values of records.
When region is active make it the default."
(let ((default (if (and (region-active-p)
(< (region-beginning) (region-end)))
(buffer-substring-no-properties
(region-beginning) (region-end)))))
(read-string (format "Search records%s %smatching regexp: %s"
(if field (concat " with " field) "")
(if bbdb-search-invert "not " "")
(if default (format "(default %s) " default) ""))
nil nil default)))
- Use region as initial search regexp, Marco Wahl, 2019/05/23
- Re: Use region as initial search regexp, Roland Winkler, 2019/05/24
- Re: Use region as initial search regexp, Basil L. Contovounesios, 2019/05/24
- Re: Use region as initial search regexp, Roland Winkler, 2019/05/24
- Re: Use region as initial search regexp, Marco Wahl, 2019/05/25
- Re: Use region as initial search regexp,
Roland Winkler <=
- Re: Use region as initial search regexp, Roland Winkler, 2019/05/26
- Re: Use region as initial search regexp, Marco Wahl, 2019/05/26
- Re: Use region as initial search regexp, Roland Winkler, 2019/05/26
- Re: Use region as initial search regexp, Marco Wahl, 2019/05/26