diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-19 23:51:02 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-20 12:51:38 +0200 |
| commit | ac3219c0e8f051fefed87a58590a3e66e5eff2e1 (patch) | |
| tree | f9a4ab31a42f58c1201bfa4632bbe96e93a29e62 | |
| parent | 3c16eda5f1d207bf5d345a28ec19ca7afb79647d (diff) | |
| download | emacs-ac3219c0e8f051fefed87a58590a3e66e5eff2e1.tar.gz | |
Remove XEmacs compat code from uudecode.el
* lisp/mail/uudecode.el (uudecode-decode-region-external)
(uudecode-decode-region-internal): Remove XEmacs compat code.
| -rw-r--r-- | lisp/mail/uudecode.el | 8 |
1 files 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) |