Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ange-ftp.elc	126.4 KB	-rw-r--r--
browse-url.elc	54.35 KB	-rw-r--r--
dbus.elc	55.05 KB	-rw-r--r--
dig.elc	6.34 KB	-rw-r--r--
dns.elc	11.52 KB	-rw-r--r--
eudc-bob.elc	8.58 KB	-rw-r--r--
eudc-export.elc	5.97 KB	-rw-r--r--
eudc-hotlist.elc	6.69 KB	-rw-r--r--
eudc-vars.elc	14.68 KB	-rw-r--r--
eudc.elc	33.77 KB	-rw-r--r--
eudcb-bbdb.elc	5.97 KB	-rw-r--r--
eudcb-ldap.elc	5.5 KB	-rw-r--r--
eudcb-mab.elc	2.58 KB	-rw-r--r--
eww.elc	68.31 KB	-rw-r--r--
gnutls.elc	12.62 KB	-rw-r--r--
goto-addr.elc	10 KB	-rw-r--r--
hmac-def.elc	1.87 KB	-rw-r--r--
hmac-md5.elc	2.11 KB	-rw-r--r--
imap.elc	102.11 KB	-rw-r--r--
ldap.elc	16.8 KB	-rw-r--r--
mailcap.elc	27.34 KB	-rw-r--r--
mairix.elc	25.1 KB	-rw-r--r--
net-utils.elc	35.04 KB	-rw-r--r--
netrc.elc	4.95 KB	-rw-r--r--
network-stream.elc	12.02 KB	-rw-r--r--
newst-backend.elc	65.76 KB	-rw-r--r--
newst-plainview.elc	48.96 KB	-rw-r--r--
newst-reader.elc	9.66 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	76.37 KB	-rw-r--r--
newsticker.elc	769 B	-rw-r--r--
nsm.elc	34.82 KB	-rw-r--r--
ntlm.elc	13.79 KB	-rw-r--r--
pop3.elc	20.1 KB	-rw-r--r--
puny.elc	4.92 KB	-rw-r--r--
quickurl.elc	17.83 KB	-rw-r--r--
rcirc.elc	105.35 KB	-rw-r--r--
rfc2104.elc	1.2 KB	-rw-r--r--
rlogin.elc	10.97 KB	-rw-r--r--
sasl-cram.elc	1003 B	-rw-r--r--
sasl-digest.elc	3.33 KB	-rw-r--r--
sasl-ntlm.elc	1.62 KB	-rw-r--r--
sasl-scram-rfc.elc	3.6 KB	-rw-r--r--
sasl.elc	6.58 KB	-rw-r--r--
secrets.elc	23.55 KB	-rw-r--r--
shr-color.elc	8.82 KB	-rw-r--r--
shr.elc	69.72 KB	-rw-r--r--
sieve-manage.elc	15.31 KB	-rw-r--r--
sieve-mode.elc	6.94 KB	-rw-r--r--
sieve.elc	11.62 KB	-rw-r--r--
snmp-mode.elc	14.51 KB	-rw-r--r--
soap-client.elc	221.75 KB	-rw-r--r--
soap-inspect.elc	20.04 KB	-rw-r--r--
socks.elc	12.5 KB	-rw-r--r--
telnet.elc	9.65 KB	-rw-r--r--
tramp-adb.elc	107.17 KB	-rw-r--r--
tramp-archive.elc	25.39 KB	-rw-r--r--
tramp-cache.elc	23.77 KB	-rw-r--r--
tramp-cmds.elc	18.89 KB	-rw-r--r--
tramp-compat.elc	9.57 KB	-rw-r--r--
tramp-ftp.elc	4.38 KB	-rw-r--r--
tramp-gvfs.elc	107.3 KB	-rw-r--r--
tramp-integration.elc	7.03 KB	-rw-r--r--
tramp-loaddefs.el	60.78 KB	-rw-r--r--
tramp-rclone.elc	39.17 KB	-rw-r--r--
tramp-sh.elc	306.37 KB	-rw-r--r--
tramp-smb.elc	140 KB	-rw-r--r--
tramp-sudoedit.elc	76.86 KB	-rw-r--r--
tramp-uu.elc	1.91 KB	-rw-r--r--
tramp.elc	242.21 KB	-rw-r--r--
trampver.elc	2.15 KB	-rw-r--r--
webjump.elc	9.85 KB	-rw-r--r--
zeroconf.elc	18.4 KB	-rw-r--r--

Code Editor : eudc-bob.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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 (#$ . 424))
#@27 Keymap for inline images.
(defvar eudc-bob-image-keymap nil (#$ . 509))
#@27 Keymap for inline sounds.
(defvar eudc-bob-sound-keymap nil (#$ . 587))
#@25 Keymap for inline urls.
(defvar eudc-bob-url-keymap nil (#$ . 665))
#@37 Keymap for inline e-mail addresses.
(defvar eudc-bob-mail-keymap nil (#$ . 739))
(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) "\301\302!\203�\302!b\207\303\304!\211@\262!q\210\305\304!!b\207" [event fboundp event-closest-point window-buffer event-start posn-point] 3 (#$ . 1425)])
#@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 (#$ . 1682)])
#@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 (#$ . 1976)])
#@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 (#$ . 2236)])
#@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 (#$ . 2741)])
#@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 (#$ . 3506) 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 (#$ . 3895)])
#@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 (#$ . 4178)])
#@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 (#$ . 4488) 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 (#$ . 4863) "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 (#$ . 5088) nil])
#@69 Pipe the object data of the button at point to an external program.
(defalias 'eudc-bob-pipe-object-to-external-program #[nil "\305\306!\307\310!\311\211\3121F�\212\313\314!\203�\314\315!\210\nq\210c\210\316\317\f\"\320	\f\"\211\203<�\321edA@AA$\202A�\321ed	#)0\202J�\210\322\n!,\207" [viewer program buffer data eudc-external-viewers eudc-bob-get-overlay-prop object-data generate-new-buffer "*eudc-tmp*" nil (error) fboundp set-buffer-file-coding-system binary completing-read "Viewer: " assoc call-process-region kill-buffer] 5 (#$ . 5477) 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 (#$ . 6042)])
#@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 (#$ . 6191) "@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\331#\210)\333\n	\"\210\333	\"\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] set-keymap-parent] 4)
#@2 
(defvar eudc-bob-generic-menu nil (#$ . 7302))
(easy-menu-do-define 'eudc-bob-generic-menu eudc-bob-generic-keymap "" eudc-bob-generic-menu)
#@2 
(defvar eudc-bob-image-menu nil (#$ . 7449))
(easy-menu-do-define 'eudc-bob-image-menu eudc-bob-image-keymap "" eudc-bob-image-menu)
#@2 
(defvar eudc-bob-sound-menu nil (#$ . 7588))
(easy-menu-do-define 'eudc-bob-sound-menu eudc-bob-sound-keymap "" eudc-bob-sound-menu)
#@48 Display a button for unidentified binary DATA.
(defalias 'eudc-display-generic-binary #[(data) "\301!\207" [data eudc-bob-display-generic-binary] 2 (#$ . 7728)])
#@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 (#$ . 7897)])
#@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 (#$ . 8084)])
#@42 Display a button to play the sound DATA.
(defalias 'eudc-display-sound #[(data) "\301!\207" [data eudc-bob-display-audio] 2 (#$ . 8285)])
#@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 (#$ . 8430)])
#@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 (#$ . 8631)])

${this.title}

Code Editor : eudc-bob.elc