Mercurial > emacs
changeset 57423:86a8c920a67b
(byte-optimize-backward-word): Optimize
`(backward-word)' to `(forward-word -1)', not `(forward-char -1)'.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 10 Oct 2004 14:28:19 +0000 |
| parents | 4d0d253badcb |
| children | b1ed4b950258 |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Sun Oct 10 09:31:46 2004 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Sun Oct 10 14:28:19 2004 +0000 @@ -1152,7 +1152,7 @@ (numberp (nth 1 form))) (list 'forward-word (eval (- (nth 1 form))))) ((= 1 (safe-length form)) - '(forward-char -1)) + '(forward-word -1)) (t form))) (put 'char-before 'byte-optimizer 'byte-optimize-char-before)