Emacs function for isearch

Faki · 10-12-2022, 08:33 AM

I want to make an interactive emacs function that performs incremental search or highlight regexp.
A difficulty I have is how to accept the user regexp once he selects "highlight" or "unhighlight".

Code:

(defun xepty-isearch (action)
  "Incremental search.
C-s       Forward repeat incremental search again.
C-r       Backward repeat incremental search again.
M-s h r   Highlight regular expression (‘highlight-regexp’)
M-s h u   Unhighlight regular expression
"

  (interactive
    (list
     (let ( (cseq '("backward" "highlight" "unhighlight" "forward")) )
       (completing-read "Search: " cseq nil t "forward"))))

   (pcase action
     ("forward"   (isearch-forward))
     ("backward"  (isearch-backward))
     ("highlight"   
         (let ( (regexp (read-string "Regexp: ")) )
	    (unhighlight-regexp regexp)))
     ("unhighlight" (unhighlight-regexp regexp))) )

pan64 · 10-12-2022, 09:17 AM

I don't understand. Emacs can do incremental search by default. What are you looking for?
https://www.gnu.org/software/emacs/m...al-Search.html

Faki · 10-12-2022, 11:10 AM

I want to use "highlight-regexp" which requires "regexp". But if I call "M-x highlight-regexp" I get
a minibuffer prompt. In the interactive clause of my function, I thought that calling "highlight-regexp"
might display the prompt for the user. But it does not work in the way I describe, as I never see the prompt
from "highlight-regexp".

Code:

(highlight-regexp regexp)

rtmistler · 10-13-2022, 10:17 AM

Not that my version is up to date, I have 27.1 and it automatically highlights search results. My profile doesn't do anything special wrt faces or highlighting.