From cfa1d4c6d14a66e7ba6d2779e79e18a8aebd310c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 2 Nov 2005 19:03:17 +0000 Subject: [PATCH] (string-to-syntax): Mark it as pure. --- lisp/emacs-lisp/byte-opt.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 7d47d809673..940b4869f51 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1121,6 +1121,7 @@ (put 'symbol-name 'byte-optimizer 'byte-optimize-pure-func) (put 'regexp-opt 'byte-optimizer 'byte-optimize-pure-func) (put 'regexp-quote 'byte-optimizer 'byte-optimize-pure-func) +(put 'string-to-syntax 'byte-optimizer 'byte-optimize-pure-func) (defun byte-optimize-pure-func (form) "Do constant folding for pure functions. This assumes that the function will not have any side-effects and that -- 2.39.5