[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: forward-word
From: |
jrwats |
Subject: |
Re: forward-word |
Date: |
Thu, 12 Feb 2009 23:41:00 -0800 (PST) |
User-agent: |
G2/1.0 |
> (defun vi-forward-word (arg)
> (interactive "p")
> (cond
> ((< arg 0)
> (forward-word arg))
> ((> arg 0)
> (if (looking-at "\\w")
> (setq arg (1+ arg)))
> (forward-word arg)
> (backward-word))))
>
> -ap
and the kicker:
(global-set-key (kbd "M-F") 'forward-word-beg)
(kbd "M-f") still mapped to forward-word