From ac3219c0e8f051fefed87a58590a3e66e5eff2e1 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 19 Jun 2019 23:51:02 +0200 Subject: [PATCH] Remove XEmacs compat code from uudecode.el * lisp/mail/uudecode.el (uudecode-decode-region-external) (uudecode-decode-region-internal): Remove XEmacs compat code. --- lisp/mail/uudecode.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/mail/uudecode.el b/lisp/mail/uudecode.el index 57ca1ccc629..9ccdceeeb3f 100644 --- a/lisp/mail/uudecode.el +++ b/lisp/mail/uudecode.el @@ -94,11 +94,7 @@ used is specified by `uudecode-decoder-program'." (make-temp-name "uu") uudecode-temporary-file-directory)))) (let ((cdir default-directory) - (default-process-coding-system - (if (featurep 'xemacs) - ;; In XEmacs, nil is not a valid coding system. - '(binary . binary) - nil))) + (default-process-coding-system nil)) (unwind-protect (with-temp-buffer (insert "begin 600 " (file-name-nondirectory tempfile) "\n") @@ -195,7 +191,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME." (skip-chars-forward non-data-chars end)) (if file-name (with-temp-file file-name - (unless (featurep 'xemacs) (set-buffer-multibyte nil)) + (set-buffer-multibyte nil) (insert (apply #'concat (nreverse result)))) (or (markerp end) (setq end (set-marker (make-marker) end))) (goto-char start) -- 2.39.2