diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-11-02 19:03:17 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-11-02 19:03:17 +0000 |
| commit | cfa1d4c6d14a66e7ba6d2779e79e18a8aebd310c (patch) | |
| tree | c06c18854306cc8aefd40355e041e516ec7c4a37 /lisp/emacs-lisp | |
| parent | 8b9e43d1ce0c4b1c21ca34a8618a84e8b410148f (diff) | |
| download | emacs-cfa1d4c6d14a66e7ba6d2779e79e18a8aebd310c.tar.gz emacs-cfa1d4c6d14a66e7ba6d2779e79e18a8aebd310c.tar.bz2 emacs-cfa1d4c6d14a66e7ba6d2779e79e18a8aebd310c.zip | |
(string-to-syntax): Mark it as pure.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 1 |
1 files changed, 1 insertions, 0 deletions
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 |