From: Pavel Janík <Pavel@Janik.cz>
Date: Sat, 5 Jan 2002 18:54:53 +0000 (+0000)
Subject: (eudc-bob-can-display-inline-images)
X-Git-Tag: ttn-vms-21-2-B4~17300
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=665e6193d090c4d8fad4756b5b5fdac33c63fb42;p=emacs.git

(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 d090f7d2d37..606e6502cef 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+2002-01-05  Pavel Jan,Bm(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 2b361fad26b..822a6e7db1e 100644
--- 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)