Redefining (forward-word) and (backward-word)

Redefining (forward-word) and (backward-word)

[troelskn]

Hi list,
I have been using Emacs for some time now, but there is one thing
about the cursor-movement that bothers me and I haven't found a way to
hack around it. I'm sure someone else have tried this before, but I'm
at loss at what to google for, to find it. So, does anybody at this
list know, or have an idea about how, to achieve the following:

First, assume Emacs' default cursor-movement (The | character is the
cursor-position):
|lorem ipsum dolor sit amet
(forward-word)
lorem| ipsum dolor sit amet
(forward-word)
lorem ipsum| dolor sit amet
(backward-word)
lorem |ipsum dolor sit amet

What I would like instead, is this:
|lorem ipsum dolor sit amet
(my-forward-word)
lorem| ipsum dolor sit amet
(my-forward-word)
lorem |ipsum dolor sit amet
(my-backward-word)
lorem| ipsum dolor sit amet

So basically, my-forward-word moves the cursor forward, until it
reaches a word-boundary.

Any ideas?

--
troels

lorem ipsum dolor sit amet

Re: Redefining (forward-word) and (backward-word)

[Johan Bockgård]

troelskn <troelskn@gmail.com> writes:

> So basically, my-forward-word moves the cursor forward, until it
> reaches a word-boundary.

(defun my-forward-word (&optional arg)
  (interactive "p")
  (dotimes (n arg)
    (goto-char (1+ (point)))
    (re-search-forward "\\b" nil t)))

-- 
Johan Bockgård

Re: Redefining (forward-word) and (backward-word)

[Andreas Röhler]

Am Sonntag, 4. Mai 2008 19:56 schrieb Johan Bockgård:
> (defun my-forward-word (&optional arg)
>   (interactive "p")
>   (dotimes (n arg)
>     (goto-char (1+ (point)))
>     (re-search-forward "\\b" nil t)))

Great, thanks!

So let's give them still an appropriate name and make it move
backward too.

(defun next-word-boundary (&optional arg)
  "Move point forward arg word boundaries (backward if arg is negative)"
  (interactive "p")
  (if (< 0 arg)
      (dotimes (n arg)
        (goto-char (1+ (point)))
        (re-search-forward "\\b" nil t))
    (dotimes (n (abs arg))
      (goto-char (1- (point)))
      (re-search-backward "\\b" nil t))))

Andreas Röhler

Re: Redefining (forward-word) and (backward-word)

[troelskn]

On 4 Maj, 19:56, bojohan+n...@dd.chalmers.se (Johan Bockgård) wrote:
> troelskn <troel...@gmail.com> writes:
> > So basically, my-forward-word moves the cursor forward, until it
> > reaches a word-boundary.
>
> (defun my-forward-word (&optional arg)
>   (interactive "p")
>   (dotimes (n arg)
>     (goto-char (1+ (point)))
>     (re-search-forward "\\b" nil t)))
>

Exactly what I was trying to accomplish. Thanks a bunch!

--
troels