Add side-effect-free props for many functions.

(byte-boolean-vars): Add highlight-nonselected-windows.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 354857e68f2b8caadba11c692926813d91bf2ee9..d7c7d3d5328b25712a341244629c315de37305b9 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -973,29 +973,50 @@
 
 ;;; I wonder if I missed any :-\)
 (let ((side-effect-free-fns
-       '(% * + - / /= 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
+       '(% * + - / /= 1+ 1- < <= = > >= abs acos append aref ash asin atan
+        assoc assq
+        boundp buffer-file-name buffer-local-variables buffer-modified-p
+        buffer-substring
+        capitalize car-less-than-car car cdr ceiling concat coordinates-in-window-p
+        copy-marker cos count-lines
+        default-boundp default-value documentation downcase
+        elt exp expt fboundp featurep
         file-directory-p file-exists-p file-locked-p file-name-absolute-p
         file-newer-than-file-p file-readable-p file-symlink-p file-writable-p
-        format get get-buffer get-buffer-window getenv get-file-buffer length
-        logand logior lognot logxor lsh marker-buffer max member memq min mod
-        next-window nth nthcdr previous-window rassq regexp-quote reverse
-        string< string= string-lessp string-equal substring user-variable-p
-        window-buffer window-edges window-height window-hscroll window-width
+        float floor format
+        get get-buffer get-buffer-window getenv get-file-buffer
+        int-to-string
+        length log log10 logand logb logior lognot logxor lsh
+        marker-buffer max member memq min mod
+        next-window nth nthcdr number-to-string
+        parse-colon-path previous-window
+        radians-to-degrees rassq regexp-quote reverse round
+        sin sqrt string< string= string-equal string-lessp string-to-char
+        string-to-int string-to-number substring symbol-plist
+        tan upcase user-variable-p vconcat
+        window-buffer window-dedicated-p window-edges window-height
+        window-hscroll window-minibuffer-p window-width
         zerop))
-      ;; could also add plusp, minusp, signum.  If anyone ever defines
-      ;; these, they will certainly be side-effect free.
       (side-effect-and-error-free-fns
-       '(arrayp atom bobp bolp buffer-end buffer-list buffer-size
-        buffer-string bufferp char-or-string-p commandp cons consp
-        current-buffer dot dot-marker eobp eolp eq eql equal
-        get-largest-window identity integerp integer-or-marker-p
-        interactive-p keymapp list listp make-marker mark mark-marker
-        markerp minibuffer-window natnump nlistp not null numberp
-        one-window-p point point-marker processp selected-window sequencep
-        stringp subrp symbolp syntax-table-p vector vectorp windowp)))
+       '(arrayp atom
+        bobp bolp buffer-end buffer-list buffer-size buffer-string bufferp
+        car-safe case-table-p cdr-safe char-or-string-p commandp cons consp
+        current-buffer
+        dot dot-marker eobp eolp eq eql equal eventp floatp framep
+        get-largest-window get-lru-window
+        identity ignore integerp integer-or-marker-p interactive-p
+        invocation-directory invocation-name
+        keymapp list listp
+        make-marker mark mark-marker markerp memory-limit minibuffer-window
+        mouse-movement-p
+        natnump nlistp not null number-or-marker-p numberp
+        one-window-p overlayp
+        point point-marker point-min point-max processp
+        selected-window sequencep stringp subrp symbolp syntax-table-p
+        user-full-name user-login-name user-original-login-name
+        user-real-login-name user-real-uid user-uid
+        vector vectorp
+        window-configuration-p window-live-p windowp)))
   (while side-effect-free-fns
     (put (car side-effect-free-fns) 'side-effect-free t)
     (setq side-effect-free-fns (cdr side-effect-free-fns)))
@@ -1198,7 +1219,8 @@
     check-protected-fields completion-auto-help completion-ignore-case
     cursor-in-echo-area debug-on-next-call debug-on-quit
     defining-kbd-macro delete-exited-processes
-    enable-recursive-minibuffers indent-tabs-mode
+    enable-recursive-minibuffers
+    highlight-nonselected-windows indent-tabs-mode
     insert-default-directory inverse-video load-in-progress
     menu-prompting mode-line-inverse-video no-redraw-on-reenter
     noninteractive parse-sexp-ignore-comments pop-up-frames