mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-22 13:40:44 -08:00
Code Issues Projects Releases Wiki Activity

upstream

Browse source
This commit is contained in:
Joakim Verona 2012-03-26 23:32:56 +02:00
commit e28095d4fe
10 changed files with 181 additions and 107 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/bytecomp.el
View file

@ -2694,7 +2694,8 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(limits '(5 ; Use the 1-byte varref codes,
63 ; 1-constlim ; 1-byte byte-constant codes,
255 ; 2-byte varref codes,
65535)) ; 3-byte codes for the rest.
65535 ; 3-byte codes for the rest.
65535)) ; twice since we step when we swap.
limit)
(while (or rest other)
(setq limit (car limits))
@ -2708,8 +2709,8 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(setcdr (car rest) (setq i (1+ i)))
(setq ret (cons (car rest) ret))))
(setq rest (cdr rest)))
(setq limits (cdr limits)
rest (prog1 other
(setq limits (cdr limits) ;Step
rest (prog1 other ;&Swap.
(setq other rest))))
(apply 'vector (nreverse (mapcar 'car ret)))))