(eudc-bob-can-display-inline-images)

(eudc-bob-display-jpeg): Use fboundp instead of boundp.
(eudc-bob-save-object): Make the buffer unibyte.
(eudc-bob-generic-keymap): Add new keybinding `!' to pipe the object to
external program.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d090f7d2d37e7eddb8e8b30389ae34f4af2aad16..606e6502ceff45d14079be34b4e0dcc29c7ff265 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+2002-01-05  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+
+       * net/eudc-hotlist.el (eudc-edit-hotlist): Avoid error when
+       editing an empty hotlist.
+
+       * net/ldap.el (ldap-search-internal): Make the buffer unibyte.
+       Use buffer-string instead of buffer-substring for the whole
+       buffer.
+
+       * net/eudc-vars.el (eudc-external-viewers): Do not use xv, it is
+       not free.
+
+       * net/eudc-bob.el (eudc-bob-can-display-inline-images)
+       (eudc-bob-display-jpeg): Use fboundp instead of boundp.
+       (eudc-bob-save-object): Make the buffer unibyte.
+       (eudc-bob-generic-keymap): Add new keybinding `!' to pipe the
+       object to external program.
+
 2002-01-05  Andre Spiegel  <spiegel@gnu.org>
 
        * vc.el (vc-branch-part): Return nil if there's no `.'

diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index 2b361fad26bcbc2f51842ecad3426fbb867b4f70..822a6e7db1e9f4005e9e114bd6dfa6d22443eff6 100644 (file)
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -1,6 +1,6 @@
 ;;; eudc-bob.el --- Binary Objects Support for EUDC
 
-;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc.
 
 ;; Author: Oscar Figueiredo <oscar@xemacs.org>
 ;; Maintainer: Oscar Figueiredo <oscar@xemacs.org>
@@ -89,7 +89,7 @@
   (if eudc-xemacs-p
       (and (memq (console-type) '(x mswindows))
           (fboundp 'make-glyph))
-    (and (boundp 'display-graphic-p)
+    (and (fboundp 'display-graphic-p)
         (display-graphic-p))))
 
 (defun eudc-bob-make-button (label keymap &optional menu plist)
@@ -131,7 +131,7 @@ display a button."
                                       'start-open t
                                       'end-open t
                                       'object-data data))))
-       ((boundp 'create-image)
+       ((fboundp 'create-image)
         (let* ((image (create-image data nil t))
                (props (list 'object-data data 'eudc-image image)))
           (when (and inline (image-type-available-p 'jpeg))
@@ -222,7 +222,6 @@ display a button."
             (unless (fboundp 'play-sound)
               (error "Playing sounds not supported on this system"))
             (play-sound (list 'sound :data sound)))))))
-  
 
 (defun eudc-bob-play-sound-at-mouse (event)
   "Play the sound data contained in the button where EVENT occurred."
@@ -230,7 +229,7 @@ display a button."
   (save-excursion
     (eudc-jump-to-event event)
     (eudc-bob-play-sound-at-point)))
-  
+
 
 (defun eudc-bob-save-object ()
   "Save the object data of the button at point."
@@ -241,6 +240,7 @@ display a button."
       (if (fboundp 'set-buffer-file-coding-system)
          (set-buffer-file-coding-system 'binary))
       (set-buffer buffer)
+      (set-buffer-multibyte nil)
       (insert data)
       (save-buffer))
     (kill-buffer buffer)))
@@ -291,6 +291,7 @@ display a button."
 (setq eudc-bob-generic-keymap
       (let ((map (make-sparse-keymap)))
        (define-key map "s" 'eudc-bob-save-object)
+       (define-key map "!" 'eudc-bob-pipe-object-to-external-program)
        (define-key map (if eudc-xemacs-p
                            [button3]
                          [down-mouse-3]) 'eudc-bob-popup-menu)