[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el

[Andreas Schwab]

Index: emacs/lisp/emacs-lisp/byte-opt.el
diff -c emacs/lisp/emacs-lisp/byte-opt.el:1.75 
emacs/lisp/emacs-lisp/byte-opt.el:1.76
*** emacs/lisp/emacs-lisp/byte-opt.el:1.75      Mon Mar 22 15:21:08 2004
--- emacs/lisp/emacs-lisp/byte-opt.el   Sun Oct 10 14:28:19 2004
***************
*** 1152,1158 ****
              (numberp (nth 1 form)))
         (list 'forward-word (eval (- (nth 1 form)))))
        ((= 1 (safe-length form))
!        '(forward-char -1))
        (t form)))
  
  (put 'char-before 'byte-optimizer 'byte-optimize-char-before)
--- 1152,1158 ----
              (numberp (nth 1 form)))
         (list 'forward-word (eval (- (nth 1 form)))))
        ((= 1 (safe-length form))
!        '(forward-word -1))
        (t form)))
  
  (put 'char-before 'byte-optimizer 'byte-optimize-char-before)