changeset 4755:4f348ddd841e

(side-effect-free-fns): Add "-" and "1-" to the list.
author Brian Fox <bfox@gnu.org>
date Tue, 21 Sep 1993 06:47:21 +0000
parents 463663a999ee
children 1079bcdb68b4
files lisp/emacs-lisp/byte-opt.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el	Tue Sep 21 03:44:04 1993 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Tue Sep 21 06:47:21 1993 +0000
@@ -973,7 +973,7 @@
 
 ;;; I wonder if I missed any :-\)
 (let ((side-effect-free-fns
-       '(% * + / /= 1+ < <= = > >= append aref ash assoc assq boundp
+       '(% * + - / /= 1+ 1- < <= = > >= append aref ash assoc assq boundp
 	 buffer-file-name buffer-local-variables buffer-modified-p
 	 buffer-substring capitalize car cdr concat coordinates-in-window-p
 	 copy-marker count-lines documentation downcase elt fboundp featurep