+See also `with-temp-file' and `with-output-to-string'."
+ (let ((temp-buffer (make-symbol "temp-buffer"))
+ (multibyte (make-symbol "multibyte")))
+ `(if (or (featurep 'xemacs)
+ (not (boundp 'enable-multibyte-characters)))
+ (with-temp-buffer ,@forms)