[Emacs-diffs] master ac3219c 03/18: Remove XEmacs compat code from uudecode.el

[Lars Ingebrigtsen]

branch: master
commit ac3219c0e8f051fefed87a58590a3e66e5eff2e1
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 57ca1cc..9ccdcee 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)