diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2017-09-27 16:32:07 -0400 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-09-27 16:32:07 -0400 |
| commit | 1f02ae39310f15bf683642b9aee1cf162bd391e6 (patch) | |
| tree | 50787f77bbb46dfe6504d4864fec5e144112f8c9 /lisp/emacs-lisp | |
| parent | 56f7e4c2024608b2a263dc8505c49996cda0ec4f (diff) | |
| download | emacs-1f02ae39310f15bf683642b9aee1cf162bd391e6.tar.gz emacs-1f02ae39310f15bf683642b9aee1cf162bd391e6.tar.bz2 emacs-1f02ae39310f15bf683642b9aee1cf162bd391e6.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 5 |
1 files changed, 4 insertions, 1 deletions
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))) |