changeset 33298:8a75bc99cf0b

Avoid compiler warnings. Use (featurep 'xemacs). Require cl when compiling. (uudecode-char-int): New alias, replacing char-int. (uudecode-decode-region): Don't call buffer-disable-undo.

--- a/lisp/gnus/uudecode.el	Wed Nov 08 15:24:27 2000 +0000
+++ b/lisp/gnus/uudecode.el	Wed Nov 08 15:27:30 2000 +0000
@@ -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 @@
       (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)