Re: byte-opt.el: byte-optimize-backward-word

[Andreas Schwab]

sri@asu.edu writes:

> In byte-opt.el:
>
> (put 'backward-word 'byte-optimizer 'byte-optimize-backward-word)
> (defun byte-optimize-backward-word (form)
>   (cond ((and (= 2 (safe-length form))
>             (numberp (nth 1 form)))
>        (list 'forward-word (eval (- (nth 1 form)))))
>       ((= 1 (safe-length form))
>        '(forward-char -1))
> ;-------------^
>         (t form)))
>
> Shouldn't that be (forward-word -1)?

Yes, you are right.  Looks like a pasto.  And a rather old one.

> Also, backward-word requires an argument;

Not any more.  The argument is now optional in CVS.

Andreas.

-- 
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux AG, Maxfeldstraße 5, 90409 Nürnberg, Germany
Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."