[Emacs-diffs] Changes to emacs/lisp/net/eudc-bob.el

[Pavel Janík]

Index: emacs/lisp/net/eudc-bob.el
diff -c emacs/lisp/net/eudc-bob.el:1.5 emacs/lisp/net/eudc-bob.el:1.6
*** emacs/lisp/net/eudc-bob.el:1.5      Fri Jan  4 02:59:46 2002
--- emacs/lisp/net/eudc-bob.el  Sat Jan  5 13:51:35 2002
***************
*** 1,6 ****
  ;;; eudc-bob.el --- Binary Objects Support for EUDC
  
! ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
  
  ;; Author: Oscar Figueiredo <address@hidden>
  ;; Maintainer: Oscar Figueiredo <address@hidden>
--- 1,6 ----
  ;;; eudc-bob.el --- Binary Objects Support for EUDC
  
! ;; Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc.
  
  ;; Author: Oscar Figueiredo <address@hidden>
  ;; Maintainer: Oscar Figueiredo <address@hidden>
***************
*** 89,95 ****
    (if eudc-xemacs-p
        (and (memq (console-type) '(x mswindows))
           (fboundp 'make-glyph))
!     (and (boundp 'display-graphic-p)
         (display-graphic-p))))
  
  (defun eudc-bob-make-button (label keymap &optional menu plist)
--- 89,95 ----
    (if eudc-xemacs-p
        (and (memq (console-type) '(x mswindows))
           (fboundp 'make-glyph))
!     (and (fboundp 'display-graphic-p)
         (display-graphic-p))))
  
  (defun eudc-bob-make-button (label keymap &optional menu plist)
***************
*** 131,137 ****
                                       'start-open t
                                       'end-open t
                                       'object-data data))))
!       ((boundp '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))
--- 131,137 ----
                                       'start-open t
                                       'end-open t
                                       'object-data data))))
!       ((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,228 ****
             (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."
--- 222,227 ----
***************
*** 230,236 ****
    (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."
--- 229,235 ----
    (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,246 ****
--- 240,246 ----
        (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,296 ****
--- 291,297 ----
  (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)