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 |
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") |
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 |
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 |