How to get a fixed search string into the editable area of an isearch.

[Robert Weiner <rswgnu@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1186 bytes --]

Hi:

I have a need for a command that starts an isearch with a specific string
in the editable area that I can add and subtract characters from
interactively during the search.  I have things working with the following
code except the string does not appear in the editable area even though the
search is done for the fixed string.  Can anyone solve this?  I couldn't
get any of the isearch-yank-* commands to do the right thing here either.
Please help.  Thanks.

It would be much simpler if the user-level isearch commands like
isearch-forward could take a string/regexp as an argument and then jump
into the middle of a search as if the characters had been typed
interactively.  One might think setting isearch-string would do something
similar.

(defun isearch-for-string ()
  "Interactively search forward for next occurrence of a fixed string.
Then add characters to further narrow the search."
  (interactive)
  (let* ((match-str "fixed-string")
         (isearch-mode-hook
 (append '((lambda () (interactive) (setq isearch-string match-str))
   isearch-mode-hook))))
    (if (not (equal match-str (car search-ring)))
(isearch-update-ring match-str nil))
    (isearch-forward)))

[-- Attachment #2: Type: text/html, Size: 1585 bytes --]