A more versatile FindWordAtCursor (find phrase, word or non-wordset character)

1 view

Skip to first unread message

John Kopp

unread,

Apr 29, 2009, 5:04:03 PM4/29/09

to sem...@googlegroups.com

I've uploaded to the files section at:

http://groups.google.com/group/semware/files

a file named FINDWORD.ZIP which contains FINDWORD.s.

This macro replaces the mFindWordAtCursor function in tse.ui and
can be utilized without change to the .ui, or it can be
incorporated in the .ui. The easiest way to use it is to add the
macro to the Autoload list. The original function in the .ui will
still be invoked by "Find Word at Cursor" on the Search Menu.
Instructions are provided to change this, if desired.

The macro can find a phrase marked by a character or column block
containing the cursor on a single line, or the word at the cursor
if the cursor is not in a block or is in a _LINE_ block, or the
single non-wordset character at the cursor. Remembers the last
search object and, if the cursor is at or beyond the end of a line
or is on a whitespace character, the last find is repeated in the
direction specified. If the search is for a marked block, marking
moves with the find allowing the search to be repeated. The
original block marking is lost, but it is possible to return to
that point by reversing the direction of search. Sounds
complicated, but its not.

Uses <Ctrl CursorUp> and <Ctrl CursorDown> to search within the
current file, and 2-key sequences starting with <Ctrl \>
(Ctrl Backslash) to search across all loaded files.