Changeset 3988 for vendor/emacs-CVS_HEAD/lisp/emacs-lisp/byte-opt.el

Timestamp:

2005年11月26日 08時33分26秒 (3 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• vendor/emacs-CVS_HEAD/lisp/emacs-lisp/byte-opt.el (modified) (3 diffs)

vendor/emacs-CVS_HEAD/lisp/emacs-lisp/byte-opt.el

@@ -546 +546 @@
-                                (eq (cadr (nth 2 last)) var))))
-                    (progn
-`%s' called for effect
+value returned by `%s' is not used
-                                         (prin1-to-string (car form)))
-                      nil)))
@@ -1122 +1122 @@
-(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.
@@ -1135 +1136 @@
-      (setq args (cdr args)))
-    (if constant
-eval form
+list 'quote (eval form)
-      form)))
-