Re: mark-word (forward and backward) many words????
> Regarding Re: mark-word (forward and backward) many words????;
"Stephen J. Turnbull" <stephen(a)xemacs.org> adds:
(defun mark-word-backward (&optional count)
(interactive "p")
(mark-something 'mark-word-backward
(lambda (x)
(and (mark)
;; this is tricky: if we get here, then
;; mark-something has already done (goto-char (mark))
(= (mark) (point))
(setq x (- x)))
(backward-word x))
count))
Cool, that works, thanks! Why not include it in the next release of
simple.el?
Uwe
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta