[PATCH] add some things to pure-fns

[PATCH] add some things to pure-fns

[Mark Oteiza]

Based on the discussion here:
https://lists.gnu.org/archive/html/emacs-devel/2017-07/msg00953.html
which also continues this month,

the following shouldn't make anything explode, since all these
functions return integers.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 962a7ae5cd..297e43884f 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1281,7 +1281,10 @@ byte-optimize-set
 ;; 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)))

Re: [PATCH] add some things to pure-fns

[John Wiegley]

>>>>> "MO" == Mark Oteiza <mvoteiza@udel.edu> writes:

MO> the following shouldn't make anything explode, since all these functions
MO> return integers.

Looks fine to me.

-- 
John Wiegley                  GPG fingerprint = 4710 CF98 AF9B 327B B80F
http://newartisans.com                          60E1 46C4 BD1A 7AC1 4BA2