From: Andreas Schwab <schwab@suse.de>
Date: Sun, 10 Oct 2004 14:28:19 +0000 (+0000)
Subject: (byte-optimize-backward-word): Optimize
X-Git-Tag: ttn-vms-21-2-B4~4636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af61a97dd60eb470adcd5ccc0ef91107832dd6b1;p=emacs.git

(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 da8e7583438..e00bebc91d5 100644
--- 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)