/[emacs]/emacs/lisp/emacs-lisp/byte-opt.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/byte-opt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.73.4.2 by handa, Fri Apr 16 12:50:13 2004 UTC revision 1.73.4.3 by miles, Thu Oct 14 08:50:01 2004 UTC
# Line 1152  of FORM by signalling the error at compi Line 1152  of FORM by signalling the error at compi
1152                (numberp (nth 1 form)))                (numberp (nth 1 form)))
1153           (list 'forward-word (eval (- (nth 1 form)))))           (list 'forward-word (eval (- (nth 1 form)))))
1154          ((= 1 (safe-length form))          ((= 1 (safe-length form))
1155           '(forward-char -1))           '(forward-word -1))
1156          (t form)))          (t form)))
1157    
1158  (put 'char-before 'byte-optimizer 'byte-optimize-char-before)  (put 'char-before 'byte-optimizer 'byte-optimize-char-before)

Legend:
Removed from v.1.73.4.2  
changed lines
  Added in v.1.73.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26