mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

Remove XEmacs compat code from uudecode.el

Browse Source 
* lisp/mail/uudecode.el (uudecode-decode-region-external)
(uudecode-decode-region-internal): Remove XEmacs compat code.
This commit is contained in:
Lars Ingebrigtsen 2019-06-19 23:51:02 +02:00
parent 3c16eda5f1
commit ac3219c0e8
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/uudecode.el
View File

@ -94,11 +94,7 @@ used is specified by `uudecode-decoder-program'."
(make-temp-name "uu") (make-temp-name "uu")
uudecode-temporary-file-directory)))) uudecode-temporary-file-directory))))
(let ((cdir default-directory) (let ((cdir default-directory)
(default-process-coding-system (default-process-coding-system nil))
(if (featurep 'xemacs)
;; In XEmacs, nil is not a valid coding system.
'(binary . binary)
nil)))
(unwind-protect (unwind-protect
(with-temp-buffer (with-temp-buffer
(insert "begin 600 " (file-name-nondirectory tempfile) "\n") (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)) (skip-chars-forward non-data-chars end))
(if file-name (if file-name
(with-temp-file file-name (with-temp-file file-name
(unless (featurep 'xemacs) (set-buffer-multibyte nil)) (set-buffer-multibyte nil)
(insert (apply #'concat (nreverse result)))) (insert (apply #'concat (nreverse result))))
(or (markerp end) (setq end (set-marker (make-marker) end))) (or (markerp end) (setq end (set-marker (make-marker) end)))
(goto-char start) (goto-char start)