;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/eudc-bob.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'eudc)
#@32 Keymap for multimedia objects.
(defvar eudc-bob-generic-keymap nil (#$ . 571))
#@27 Keymap for inline images.
(defvar eudc-bob-image-keymap nil (#$ . 656))
#@27 Keymap for inline sounds.
(defvar eudc-bob-sound-keymap nil (#$ . 734))
#@25 Keymap for inline urls.
(defvar eudc-bob-url-keymap nil (#$ . 812))
#@37 Keymap for inline e-mail addresses.
(defvar eudc-bob-mail-keymap nil (#$ . 886))
(defvar eudc-bob-generic-menu '("EUDC Binary Object Menu" ["---" nil nil] ["Pipe to external program" eudc-bob-pipe-object-to-external-program t] ["Save object" eudc-bob-save-object t]))
(defvar eudc-bob-image-menu (byte-code "\301\302\303AABBB\207" [eudc-bob-generic-menu "EUDC Image Menu" ["---" nil nil] ["Toggle inline display" eudc-bob-toggle-inline-display (eudc-bob-can-display-inline-images)]] 4))
(defvar eudc-bob-sound-menu (byte-code "\301\302\303AABBB\207" [eudc-bob-generic-menu "EUDC Sound Menu" ["---" nil nil] ["Play sound" eudc-bob-play-sound-at-point (fboundp 'play-sound)]] 4))
#@52 Jump to the window and point where EVENT occurred.
(defalias 'eudc-jump-to-event #[(event) "\302\303!\203\303!b\207\304\305!\211@)!q\210\305!\306	8\2061	A@:\203.	A@@\2021	A@)b\207" [event position fboundp event-closest-point window-buffer event-start 5] 4 (#$ . 1572)])
#@52 Get property PROP from one of the overlays around.
(defalias 'eudc-bob-get-overlay-prop #[(prop) "\305\306`S!\306`!\"\307\211\310\203,@\211\203,\311\n\f\"\211\203&\307A\202	,\207" [notfound value overlay overlays prop append overlays-at nil t overlay-get] 4 (#$ . 1858)])
#@49 Return non-nil if we can display images inline.
(defalias 'eudc-bob-can-display-inline-images #[nil "\300\301!\203\301 \302>\205\300\303!\207\300\304!\205\304 \207" [fboundp console-type (x mswindows) make-glyph display-graphic-p] 2 (#$ . 2152)])
#@108 Create a button with LABEL.
Attach KEYMAP, MENU and properties from PLIST to a new overlay covering
LABEL.
(defalias 'eudc-bob-make-button #[(label keymap &optional menu plist) "\306`\306\211\fc\210\307\n`\310\311$\210\312\n`\"\313\314\315#\210\313\305
#\210\313\316
#\210\313\317#\210\205O@A\211@A\313	#\210\2020,\207" [val prop p overlay label keymap nil put-text-property face bold make-overlay overlay-put mouse-face highlight local-map menu plist] 6 (#$ . 2412)])
#@114 Display the JPEG DATA at point.
If INLINE is non-nil, try to inline the image otherwise simply
display a button.
(defalias 'eudc-bob-display-jpeg #[(data inline) "\306\307!\2030\310 \205\307\311\312\313#\314D!\315\316\n\301	\317\f\205!	\320\321\322\f\323\321\324\321\325\257$)\207\306\326!\205]\326\327\321#\325\330
F\f\203U\331\312!\203U\332
D\244\315\333\n$*\207" [data glyph eudc-bob-image-keymap eudc-bob-image-menu inline image fboundp make-glyph eudc-bob-can-display-inline-images vector jpeg :data [string :data "[JPEG Picture]"] eudc-bob-make-button "[JPEG Picture]" end-glyph duplicable t invisible start-open end-open object-data create-image nil eudc-image image-type-available-p display "[Picture]" props] 18 (#$ . 2917)])
#@36 Toggle inline display of an image.
(defalias 'eudc-bob-toggle-inline-display #[nil "\304 \205H\305\306`S!\306`!\"\307\2032	\2042\310@\311\"\211\242\301=\203+\n\202.A)\202\205G@\312\313\310\313\"?\205E	#)*\207" [overlays image prop overlay eudc-bob-can-display-inline-images append overlays-at nil overlay-get eudc-image overlay-put display] 7 (#$ . 3682) nil])
#@34 Display a button for audio DATA.
(defalias 'eudc-bob-display-audio #[(data) "\303\304	\305\306\307\306\310\306\311\n\257$\207" [eudc-bob-sound-keymap eudc-bob-sound-menu data eudc-bob-make-button "[Audio Sound]" duplicable t start-open end-open object-data] 12 (#$ . 4071)])
#@48 Display a button for unidentified binary DATA.
(defalias 'eudc-bob-display-generic-binary #[(data) "\303\304	\305\306\307\306\310\306\311\n\257$\207" [eudc-bob-generic-keymap eudc-bob-generic-menu data eudc-bob-make-button "[Binary Data]" duplicable t start-open end-open object-data] 12 (#$ . 4354)])
#@55 Play the sound data contained in the button at point.
(defalias 'eudc-bob-play-sound-at-point #[nil "\301\302\303!\211\204\304\305!\202 \306\307!\204\304\310!\210\307\300\311E!)\207" [sound nil eudc-bob-get-overlay-prop object-data error "No sound data available here" fboundp play-sound "Playing sounds not supported on this system" :data] 4 (#$ . 4664) nil])
#@67 Play the sound data contained in the button where EVENT occurred.
(defalias 'eudc-bob-play-sound-at-mouse #[(event) "\212\301!\210\302 )\207" [event eudc-jump-to-event eudc-bob-play-sound-at-point] 2 (#$ . 5039) "e"])
#@46 Save the object data of the button at point.
(defalias 'eudc-bob-save-object #[nil "\302\303!\304\305!\212\306\307!\203\307\310!\210q\210\311\312!\210	c\210\313 \210)\314!*\207" [buffer data eudc-bob-get-overlay-prop object-data generate-new-buffer "*eudc-tmp*" fboundp set-buffer-file-coding-system binary set-buffer-multibyte nil save-buffer kill-buffer] 3 (#$ . 5264) nil])
#@69 Pipe the object data of the button at point to an external program.
(defalias 'eudc-bob-pipe-object-to-external-program #[nil "\304\305!\306\307!\310\211\310\311\312\217,\207" [viewer program buffer data eudc-bob-get-overlay-prop object-data generate-new-buffer "*eudc-tmp*" nil (byte-code "\212\305\306!\203\306\307!\210q\210	c\210\310\311\n\"\312\n\"\211\203,\313ed\fA@\fAA$\2021\313ed#)\207" [buffer data eudc-external-viewers program viewer fboundp set-buffer-file-coding-system binary completing-read "Viewer: " assoc call-process-region] 5) ((error (kill-buffer buffer)))] 4 (#$ . 5653) nil])
#@48 Retrieve the menu attached to a binary object.
(defalias 'eudc-bob-menu #[nil "\300\301!\207" [eudc-bob-get-overlay-prop menu] 2 (#$ . 6271)])
#@44 Pop-up a menu of EUDC multimedia commands.
(defalias 'eudc-bob-popup-menu #[(event) "\303\304!\210\305!\210\306\307\310 \"\311\211\205 \312\310 \313\314\n\"\"\315	!*\207" [event command result run-hooks activate-menubar-hook eudc-jump-to-event x-popup-menu t eudc-bob-menu nil lookup-key apply vector command-execute] 6 (#$ . 6420) "@e"])
(byte-code "\306 \307\310\311#\210\307\312\313#\210\307\314\315#\210)\306 \307\316\317#\210)\306 \307\320\321#\210\307\322\323#\210)\306 \307\324\325#\210\307\326\327#\210)\306 \307\330\331#\210\307\332\333#\210)\334\n	\"\210\334	\"\210\335\336!\210\337\340	\341 $\210\342\336!\210\337\343\n\341#$\210\344\336!\210\337\345\341%$\207" [map eudc-bob-generic-keymap eudc-bob-image-keymap eudc-bob-sound-keymap eudc-bob-url-keymap eudc-bob-mail-keymap make-sparse-keymap define-key "s" eudc-bob-save-object "!" eudc-bob-pipe-object-to-external-program [down-mouse-3] eudc-bob-popup-menu "t" eudc-bob-toggle-inline-display [return] eudc-bob-play-sound-at-point [down-mouse-2] eudc-bob-play-sound-at-mouse [return] browse-url-at-point [down-mouse-2] browse-url-at-mouse [return] goto-address-at-point [down-mouse-2] goto-address-at-mouse set-keymap-parent (lambda (#1=#:def-tmp-var) (defvar eudc-bob-generic-menu #1# #2="")) nil easy-menu-do-define eudc-bob-generic-menu #2# (lambda (#1#) (defvar eudc-bob-image-menu #1# #2#)) eudc-bob-image-menu (lambda (#1#) (defvar eudc-bob-sound-menu #1# #2#)) eudc-bob-sound-menu] 5)
#@48 Display a button for unidentified binary DATA.
(defalias 'eudc-display-generic-binary #[(data) "\301!\207" [data eudc-bob-display-generic-binary] 2 (#$ . 7917)])
#@36 Display URL and make it clickable.
(defalias 'eudc-display-url #[(url) "\302\303!\210\304	\"\207" [url eudc-bob-url-keymap require browse-url eudc-bob-make-button] 3 (#$ . 8086)])
#@47 Display e-mail address and make it clickable.
(defalias 'eudc-display-mail #[(mail) "\302\303!\210\304	\"\207" [mail eudc-bob-mail-keymap require goto-addr eudc-bob-make-button] 3 (#$ . 8273)])
#@42 Display a button to play the sound DATA.
(defalias 'eudc-display-sound #[(data) "\301!\207" [data eudc-bob-display-audio] 2 (#$ . 8474)])
#@52 Display the JPEG DATA inline at point if possible.
(defalias 'eudc-display-jpeg-inline #[(data) "\301\302 \"\207" [data eudc-bob-display-jpeg eudc-bob-can-display-inline-images] 3 (#$ . 8619)])
#@37 Display a button for the JPEG DATA.
(defalias 'eudc-display-jpeg-as-button #[(data) "\301\302\"\207" [data eudc-bob-display-jpeg nil] 3 (#$ . 8820)])