Remove some compat code from eudc-bob.el

* lisp/net/eudc-bob.el (eudc-bob-save-object)
(eudc-bob-pipe-object-to-external-program): Remove checks for
functions that are always defined in Emacs.

diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index b248c88d49dfe66f7a091ad67bd5f5955f7ab7f1..56ea033a9634186224d01969ced8a9e60600edf1 100644 (file)
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -214,8 +214,7 @@ display a button."
   (let ((data (eudc-bob-get-overlay-prop 'object-data))
        (buffer (generate-new-buffer "*eudc-tmp*")))
     (save-excursion
-      (if (fboundp 'set-buffer-file-coding-system)
-         (set-buffer-file-coding-system 'binary))
+      (set-buffer-file-coding-system 'binary)
       (set-buffer buffer)
       (set-buffer-multibyte nil)
       (insert data)
@@ -231,8 +230,7 @@ display a button."
        viewer)
     (condition-case nil
        (save-excursion
-         (if (fboundp 'set-buffer-file-coding-system)
-             (set-buffer-file-coding-system 'binary))
+         (set-buffer-file-coding-system 'binary)
          (set-buffer buffer)
          (insert data)
          (setq program (completing-read "Viewer: " eudc-external-viewers))