[Top][All Lists]

[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 <address@hidden> 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).


reply via email to

[Prev in Thread] Current Thread [Next in Thread]