From: Brian Fox <bfox@gnu.org>
Date: Tue, 21 Sep 1993 06:47:21 +0000 (+0000)
Subject: (side-effect-free-fns): Add "-" and "1-" to the list.
X-Git-Tag: emacs-19.34~11096
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4de97979a2b078c62065b64c84876d23ee06a449;p=emacs.git

(side-effect-free-fns): Add "-" and "1-" to the list.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index c7ab880cf60..354857e68f2 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -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