procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Mark some functions as pure

Browse source 
* lisp/emacs-lisp/byte-opt.el: Add some functions that return integral
values to the builtin list of pure functions.
This commit is contained in:
Mark Oteiza 2017-09-27 16:32:07 -04:00
parent 56f7e4c202
commit 1f02ae3931
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/byte-opt.el
View file

@ -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)))