- (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))
- (setq work-buffer (generate-new-buffer " *binhex-work*")))
- (buffer-disable-undo work-buffer)
+ (setq work-buffer (generate-new-buffer " *binhex-work*"))
+ (unless (featurep 'xemacs)
+ (with-current-buffer work-buffer (set-buffer-multibyte nil)))