# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1130958197 0
# Node ID 4408f56ebb87e11b8f27c075df5d6a9bac89c3a0
# Parent  4ac8c64414088f8ef5e4294b7b35c5aea28817e9
(string-to-syntax): Mark it as pure.

diff -r 4ac8c6441408 -r 4408f56ebb87 lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Wed Nov 02 17:33:28 2005 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Wed Nov 02 19:03:17 2005 +0000
@@ -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