From af61a97dd60eb470adcd5ccc0ef91107832dd6b1 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 10 Oct 2004 14:28:19 +0000 Subject: [PATCH] (byte-optimize-backward-word): Optimize `(backward-word)' to `(forward-word -1)', not `(forward-char -1)'. --- lisp/emacs-lisp/byte-opt.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5