mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(byte-optimize-backward-word): Optimize

Browse source 
`(backward-word)' to `(forward-word -1)', not `(forward-char -1)'.
This commit is contained in:
Andreas Schwab 2004-10-10 14:28:19 +00:00
parent fd1cf0a0c3
commit af61a97dd6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/byte-opt.el
View file

@ -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)