- (if (and (not (featurep 'xemacs))
- (boundp 'enable-multibyte-characters))
- (let ((multibyte
- (default-value 'enable-multibyte-characters)))
- (setq-default enable-multibyte-characters nil)
- (setq work-buffer (generate-new-buffer " *binhex-work*"))
- (setq-default enable-multibyte-characters multibyte))