/[emacs]/emacs/lisp/net/eudc-bob.el
ViewVC logotype

Diff of /emacs/lisp/net/eudc-bob.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pj, Sat Jan 5 18:51:35 2002 UTC revision 1.7 by pj, Sun Jan 6 15:04:48 2002 UTC
# Line 56  Line 56 
56      ["Toggle inline display" eudc-bob-toggle-inline-display      ["Toggle inline display" eudc-bob-toggle-inline-display
57       (eudc-bob-can-display-inline-images)]       (eudc-bob-can-display-inline-images)]
58      ,@(cdr (cdr eudc-bob-generic-menu))))      ,@(cdr (cdr eudc-bob-generic-menu))))
59    
60  (defconst eudc-bob-sound-menu  (defconst eudc-bob-sound-menu
61    `("EUDC Sound Menu"    `("EUDC Sound Menu"
62      ["---" nil nil]      ["---" nil nil]
63      ["Play sound" eudc-bob-play-sound-at-point      ["Play sound" eudc-bob-play-sound-at-point
64       (fboundp 'play-sound)]       (fboundp 'play-sound)]
65      ,@(cdr (cdr eudc-bob-generic-menu))))      ,@(cdr (cdr eudc-bob-generic-menu))))
66    
67  (defun eudc-jump-to-event (event)  (defun eudc-jump-to-event (event)
68    "Jump to the window and point where EVENT occurred."    "Jump to the window and point where EVENT occurred."
69    (if eudc-xemacs-p    (if eudc-xemacs-p
# Line 270  display a button." Line 270  display a button."
270  (defun eudc-bob-menu ()  (defun eudc-bob-menu ()
271    "Retrieve the menu attached to a binary object."    "Retrieve the menu attached to a binary object."
272    (eudc-bob-get-overlay-prop 'menu))    (eudc-bob-get-overlay-prop 'menu))
273      
274  (defun eudc-bob-popup-menu (event)  (defun eudc-bob-popup-menu (event)
275    "Pop-up a menu of EUDC multimedia commands."    "Pop-up a menu of EUDC multimedia commands."
276    (interactive "@e")    (interactive "@e")
# Line 321  display a button." Line 321  display a button."
321  (set-keymap-parent eudc-bob-image-keymap eudc-bob-generic-keymap)  (set-keymap-parent eudc-bob-image-keymap eudc-bob-generic-keymap)
322  (set-keymap-parent eudc-bob-sound-keymap eudc-bob-generic-keymap)  (set-keymap-parent eudc-bob-sound-keymap eudc-bob-generic-keymap)
323    
       
324  (if eudc-emacs-p  (if eudc-emacs-p
325      (progn      (progn
326        (easy-menu-define eudc-bob-generic-menu        (easy-menu-define eudc-bob-generic-menu
# Line 362  display a button." Line 361  display a button."
361  (defun eudc-display-jpeg-as-button (data)  (defun eudc-display-jpeg-as-button (data)
362    "Display a button for the JPEG DATA."    "Display a button for the JPEG DATA."
363    (eudc-bob-display-jpeg data nil))    (eudc-bob-display-jpeg data nil))
364        
365  ;;; eudc-bob.el ends here  ;;; eudc-bob.el ends here

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26