From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 2 Nov 2005 19:03:17 +0000 (+0000)
Subject: (string-to-syntax): Mark it as pure.
X-Git-Tag: emacs-pretest-22.0.90~6113
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cfa1d4c6d14a66e7ba6d2779e79e18a8aebd310c;p=emacs.git

(string-to-syntax): Mark it as pure.
---

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