From: Mark Oteiza <mvoteiza@udel.edu>
Date: Wed, 27 Sep 2017 20:32:07 +0000 (-0400)
Subject: Mark some functions as pure
X-Git-Tag: emacs-27.0.90~6286
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f02ae39310f15bf683642b9aee1cf162bd391e6;p=emacs.git

Mark some functions as pure

* lisp/emacs-lisp/byte-opt.el: Add some functions that return integral
values to the builtin list of pure functions.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 69f03c51668..623985f44f9 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1281,7 +1281,10 @@
 ;; errors to compile time.
 
 (let ((pure-fns
-       '(concat symbol-name regexp-opt regexp-quote string-to-syntax)))
+       '(concat symbol-name regexp-opt regexp-quote string-to-syntax
+         string-to-char
+         ash lsh logb lognot logior logxor
+         ceiling floor)))
   (while pure-fns
     (put (car pure-fns) 'pure t)
     (setq pure-fns (cdr pure-fns)))