diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/uudecode.el | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/lisp/gnus/uudecode.el b/lisp/gnus/uudecode.el index 8f82ef83cba..36640d5d13c 100644 --- a/lisp/gnus/uudecode.el +++ b/lisp/gnus/uudecode.el @@ -36,10 +36,19 @@ (eval-when-compile (require 'cl)) -(defalias 'uudecode-char-int - (if (fboundp 'char-int) - 'char-int - 'identity)) +(eval-and-compile + (defalias 'uudecode-char-int + (if (fboundp 'char-int) + 'char-int + 'identity)) + + (if (fboundp 'insert-char) + (defalias 'uudecode-insert-char 'insert-char) + (defun uudecode-insert-char (char &optional count ignored buffer) + (if (or (null buffer) (eq buffer (current-buffer))) + (insert-char char count) + (with-current-buffer buffer + (insert-char char count)))))) (defcustom uudecode-decoder-program "uudecode" "*Non-nil value should be a string that names a uu decoder. @@ -121,14 +130,6 @@ If FILE-NAME is non-nil, save the result to FILE-NAME." (and work-buffer (kill-buffer work-buffer)) (ignore-errors (or file-name (delete-file tempfile)))))) -(if (featurep 'xemacs) - (defalias 'uudecode-insert-char 'insert-char) - (defun uudecode-insert-char (char &optional count ignored buffer) - (if (or (null buffer) (eq buffer (current-buffer))) - (insert-char char count) - (with-current-buffer buffer - (insert-char char count))))) - ;;;###autoload (defun uudecode-decode-region (start end &optional file-name) |