# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1097418499 0
# Node ID 86a8c920a67b82c280a7e88fdb0437812faf4127
# Parent  4d0d253badcb1bb663b8a34540561d40de5a6f74
(byte-optimize-backward-word): Optimize
`(backward-word)' to `(forward-word -1)', not `(forward-char -1)'.

diff -r 4d0d253badcb -r 86a8c920a67b lisp/emacs-lisp/byte-opt.el
--- 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)