[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: symbols verses words
From: |
Tassilo Horn |
Subject: |
Re: symbols verses words |
Date: |
Thu, 03 Mar 2011 15:48:52 +0100 |
User-agent: |
Gnus/5.110014 (No Gnus v0.14) Emacs/24.0.50 (gnu/linux) |
Perry Smith <pedzsan@gmail.com> writes:
Hi Perry,
>> I think, something like that should do the trick:
>>
>> --8<---------------cut here---------------start------------->8---
>> (defun isearch-yank-symbol-or-char ()
>> "Pull next character or symbol from buffer into search string."
>> (interactive)
>> (isearch-yank-internal
>> (lambda ()
>> (if (or (memq (char-syntax (or (char-after) 0)) '(?w ?_))
>> (memq (char-syntax (or (char-after (1+ (point))) 0)) '(?w ?_)))
>> (forward-symbol 1)
>> (forward-char 1))
>> (point))))
>>
>> (define-key isearch-mode-map (kbd "C-S-w") 'isearch-yank-symbol-or-char)
>> --8<---------------cut here---------------end--------------->8---
>>
>> So when you are on a word constituent (?w) or on a symbol constituent
>> (?_), then do `forward-symbol', else `forward-char'.
>
> Thanks. The problem is that my emacs (GNU 23.2) doesn't have
> forward-symbol. I didn't know how to do that.
Ah, that function is defined in thingatpt.el, so you are only missing a
(require 'thingatpt).
Bye,
Tassilo
Re: symbols verses words, MBR, 2011/03/03