[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.6 emacs/lisp/net/eudc-bob.el:1.7
*** emacs/lisp/net/eudc-bob.el:1.6      Sat Jan  5 13:51:35 2002
--- emacs/lisp/net/eudc-bob.el  Sun Jan  6 10:04:48 2002
***************
*** 56,69 ****
      ["Toggle inline display" eudc-bob-toggle-inline-display
       (eudc-bob-can-display-inline-images)]
      ,@(cdr (cdr eudc-bob-generic-menu))))
!  
  (defconst eudc-bob-sound-menu
    `("EUDC Sound Menu"
      ["---" nil nil]
      ["Play sound" eudc-bob-play-sound-at-point
       (fboundp 'play-sound)]
      ,@(cdr (cdr eudc-bob-generic-menu))))
!  
  (defun eudc-jump-to-event (event)
    "Jump to the window and point where EVENT occurred."
    (if eudc-xemacs-p
--- 56,69 ----
      ["Toggle inline display" eudc-bob-toggle-inline-display
       (eudc-bob-can-display-inline-images)]
      ,@(cdr (cdr eudc-bob-generic-menu))))
! 
  (defconst eudc-bob-sound-menu
    `("EUDC Sound Menu"
      ["---" nil nil]
      ["Play sound" eudc-bob-play-sound-at-point
       (fboundp 'play-sound)]
      ,@(cdr (cdr eudc-bob-generic-menu))))
! 
  (defun eudc-jump-to-event (event)
    "Jump to the window and point where EVENT occurred."
    (if eudc-xemacs-p
***************
*** 270,276 ****
  (defun eudc-bob-menu ()
    "Retrieve the menu attached to a binary object."
    (eudc-bob-get-overlay-prop 'menu))
!   
  (defun eudc-bob-popup-menu (event)
    "Pop-up a menu of EUDC multimedia commands."
    (interactive "@e")
--- 270,276 ----
  (defun eudc-bob-menu ()
    "Retrieve the menu attached to a binary object."
    (eudc-bob-get-overlay-prop 'menu))
! 
  (defun eudc-bob-popup-menu (event)
    "Pop-up a menu of EUDC multimedia commands."
    (interactive "@e")
***************
*** 321,327 ****
  (set-keymap-parent eudc-bob-image-keymap eudc-bob-generic-keymap)
  (set-keymap-parent eudc-bob-sound-keymap eudc-bob-generic-keymap)
  
-     
  (if eudc-emacs-p
      (progn
        (easy-menu-define eudc-bob-generic-menu
--- 321,326 ----
***************
*** 362,366 ****
  (defun eudc-display-jpeg-as-button (data)
    "Display a button for the JPEG DATA."
    (eudc-bob-display-jpeg data nil))
!     
  ;;; eudc-bob.el ends here
--- 361,365 ----
  (defun eudc-display-jpeg-as-button (data)
    "Display a button for the JPEG DATA."
    (eudc-bob-display-jpeg data nil))
! 
  ;;; eudc-bob.el ends here