Commit 05c2a83c authored by Dave Love's avatar Dave Love
Browse files

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.
parent 4515227f
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment