[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] add some things to pure-fns
From: |
Mark Oteiza |
Subject: |
[PATCH] add some things to pure-fns |
Date: |
Sun, 24 Sep 2017 12:55:21 -0400 |
User-agent: |
NeoMutt/20170912-13-728bb5 |
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)))
- [PATCH] add some things to pure-fns,
Mark Oteiza <=