Mercurial > hg > xemacs-beta

comparison lisp/byte-optimize.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
1342 byte-goto-if-not-nil-else-pop)) 1342 byte-goto-if-not-nil-else-pop))
1343 1343
1344 (defconst byte-after-unbind-ops 1344 (defconst byte-after-unbind-ops
1345 '(byte-constant byte-dup 1345 '(byte-constant byte-dup
1346 byte-symbolp byte-consp byte-stringp byte-listp byte-numberp byte-integerp 1346 byte-symbolp byte-consp byte-stringp byte-listp byte-numberp byte-integerp
1347 byte-eq byte-not 1347 byte-eq byte-equal byte-not
1348 byte-cons byte-list1 byte-list2 ; byte-list3 byte-list4 1348 byte-cons byte-list1 byte-list2 ; byte-list3 byte-list4
1349 byte-interactive-p) 1349 byte-interactive-p)
1350 ;; How about other side-effect-free-ops? Is it safe to move an 1350 ;; How about other side-effect-free-ops? Is it safe to move an
1351 ;; error invocation (such as from nth) out of an unwind-protect? 1351 ;; error invocation (such as from nth) out of an unwind-protect?
1352 "Byte-codes that can be moved past an unbind.") 1352 "Byte-codes that can be moved past an unbind.")