Mercurial > hg > xemacs-beta

comparison lisp/bytecomp/byte-optimize.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 59463afc5666
children
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
431 (cons 'prog2 431 (cons 'prog2
432 (cons (byte-optimize-form (nth 1 form) t) 432 (cons (byte-optimize-form (nth 1 form) t)
433 (cons (byte-optimize-form (nth 2 form) for-effect) 433 (cons (byte-optimize-form (nth 2 form) for-effect)
434 (byte-optimize-body (cdr (cdr (cdr form))) t))))) 434 (byte-optimize-body (cdr (cdr (cdr form))) t)))))
435 435
436 ((memq fn '(save-excursion save-restriction)) 436 ((memq fn '(save-excursion save-restriction save-current-buffer))
437 ;; those subrs which have an implicit progn; it's not quite good 437 ;; those subrs which have an implicit progn; it's not quite good
438 ;; enough to treat these like normal function calls. 438 ;; enough to treat these like normal function calls.
439 ;; This can turn (save-excursion ...) into (save-excursion) which 439 ;; This can turn (save-excursion ...) into (save-excursion) which
440 ;; will be optimized away in the lap-optimize pass. 440 ;; will be optimized away in the lap-optimize pass.
441 (cons fn (byte-optimize-body (cdr form) for-effect))) 441 (cons fn (byte-optimize-body (cdr form) for-effect)))