Re: Use region as initial search regexp

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)))