(byte-optimize-backward-word): Optimize

`(backward-word)' to `(forward-word -1)', not `(forward-char -1)'.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index da8e758..e00bebc 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1152,7 +1152,7 @@ of FORM by signalling the error at compile-time."
              (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)