emacs isearch-forward default search string

Question

I have a question about Emacs Lisp, I want to achieve this functionality: ‘highlight a word under cursor, then when I push C-s C-s, I can jump to the next highlighted word’.
So after I highlight a word, I hope the isearch-string can be set as the same as the word I have high lightened, i.e. the default ** search string for command **isearch-forward or isearch-backward can be my highlighted word.

My code is like:

(defun highlight-current-word()  
  "highlight the word under cursor"
  (interactive)
  (let (head-point tail-point word) 
    (skip-chars-forward "-_A-Za-z0-9")
    (setq tail-point (point))   
    (skip-chars-backward "-_A-Za-z0-9")
    (setq head-point (point))
    (setq word (buffer-substring-no-properties head-point tail-point))
    (setq isearch-string word)      ; no use
    (isearch-search-and-update) ; no use
    (highlight-regexp word 'hi-yellow)))

But it always prompts: [No previous search string]
Can you help me? Thank you!

Have you tried C-s C-w? This should auto-highlight the current word (or multiple words for more C-w) and highlight the same search string as you move forward (or backward) with C-s (C-r)... — abiessu
– abiessu, Commented Sep 6, 2013 at 3:22
I concur with abiessu, but you can also simply your own code if you obtain the word with (thing-at-pt 'word) (or bounds-of-thing-at-point if you still need to remove properties manually). — phils
– phils, Commented Sep 6, 2013 at 4:31
@juanleon, do you know is there any 'highlight-regexp-ring' kind of thing to store highlighted word history? — ruanhao
– ruanhao, Commented Sep 6, 2013 at 7:13
I don't think so (there is regexp-search-ring, but that has nothing to do with highlighting) — juanleon
– juanleon, Commented Sep 6, 2013 at 8:14

gladiator · Accepted Answer · 2013-09-06 06:27:50Z

3

I think you need add hook to isearch-mode, then your function will be work.

(defun highlight-current-word()
  "highlight the word under cursor"
  (interactive)
  (let (head-point tail-point word)
    (skip-chars-forward "-_A-Za-z0-9")
    (setq tail-point (point))
    (skip-chars-backward "-_A-Za-z0-9")
    (setq head-point (point))
    (setq word (buffer-substring-no-properties head-point tail-point))
    (setq isearch-string word)
    (isearch-search-and-update)))

(add-hook 'isearch-mode-hook 'highlight-current-word)

answered Sep 6, 2013 at 6:27

gladiator

561 silver badge2 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

gladiator Over a year ago

but this makes your normal C-s fail, you need search on space area or M-n/p to search other words

Drew · Accepted Answer · 2013-11-27 16:02:39Z

3

Is this all you are looking for (not too clear to me)?

(defun foo ()
  (interactive)
  (skip-chars-backward "-_A-Za-z0-9")
  (isearch-yank-internal (lambda () (forward-word 1) (point))))

(define-key isearch-mode-map (kbd "C-o") 'foo)

That does what C-w does, except that it picks up the whole word at the cursor, not just the text from the cursor to word end.

edited Nov 27, 2013 at 16:02

answered Sep 6, 2013 at 14:52

Drew

30.9k7 gold badges81 silver badges111 bronze badges

Collectives™ on Stack Overflow

emacs isearch-forward default search string

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related