mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Avoid compiler warnings.

Browse source 
Use (featurep 'xemacs).  Require cl when compiling.
(uudecode-char-int): New alias, replacing char-int.
(uudecode-decode-region): Don't call buffer-disable-undo.
This commit is contained in:
Dave Love 2000-11-08 15:27:30 +00:00
parent 4515227fa5
commit 05c2a83cfd
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/gnus/uudecode.el
View file

@ -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)