# HG changeset patch # User Aidan Kehoe # Date 1293665152 0 # Node ID 07d24b1f27a772c318f96263b8699cc21283d8a8 # Parent 317ebaee6e4f9941bf8b13bf73bb263d46c7e564 Mark #'remove, #'remq as free of side-effects. 2010-12-29 Aidan Kehoe * byte-optimize.el (side-effect-free-fns): #'remove, #'remq are free of side-effects. (side-effect-and-error-free-fns): Drop dot, dot-marker from the list. diff -r 317ebaee6e4f -r 07d24b1f27a7 lisp/ChangeLog --- a/lisp/ChangeLog Wed Dec 01 03:35:22 2010 +0900 +++ b/lisp/ChangeLog Wed Dec 29 23:25:52 2010 +0000 @@ -1,3 +1,10 @@ +2010-12-29 Aidan Kehoe + + * byte-optimize.el (side-effect-free-fns): #'remove, #'remq are + free of side-effects. + (side-effect-and-error-free-fns): + Drop dot, dot-marker from the list. + 2010-11-17 Aidan Kehoe * cl-extra.el (coerce): diff -r 317ebaee6e4f -r 07d24b1f27a7 lisp/byte-optimize.el --- a/lisp/byte-optimize.el Wed Dec 01 03:35:22 2010 +0900 +++ b/lisp/byte-optimize.el Wed Dec 29 23:25:52 2010 +0000 @@ -1245,7 +1245,7 @@ marker-buffer max member memq min mod next-window nth nthcdr number-to-string numerator parse-colon-path plist-get previous-window - radians-to-degrees rassq regexp-quote reverse round + radians-to-degrees rassq rassoc remove remq regexp-quote reverse round sin sqrt string< string= string-equal string-lessp string-to-char string-to-int string-to-number substring symbol-plist symbol-value symbol-name symbol-function symbol @@ -1271,7 +1271,7 @@ current-buffer ;; XEmacs: extent functions, frame-live-p, various other stuff devicep device-live-p - dot dot-marker eobp eolp eq eql equal eventp extentp + eobp eolp eq eql equal eventp extentp extent-live-p fixnump floatingp floatp framep frame-live-p get-largest-window get-lru-window hash-table-p