Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |