From 1f02ae39310f15bf683642b9aee1cf162bd391e6 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Wed, 27 Sep 2017 16:32:07 -0400 Subject: [PATCH] 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. --- lisp/emacs-lisp/byte-opt.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))) -- 2.39.5