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-hotlist.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)
(defvar eudc-hotlist-menu nil)
(defvar eudc-hotlist-list-beginning nil)
(defvar eudc-hotlist-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210)\207" [map make-sparse-keymap define-key "a" eudc-hotlist-add-server "d" eudc-hotlist-delete-server "s" eudc-hotlist-select-server "t" eudc-hotlist-transpose-servers "q" eudc-hotlist-quit-edit "x" kill-current-buffer] 4))
(defvar eudc-hotlist-mode-hook nil)
(byte-code "\300\301N\204\f�\302\300\301\303#\210\304\305!\204�\302\305\306\307#\210\300\207" [eudc-hotlist-mode-hook variable-documentation put "Hook run after entering EUDC-Servers mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp eudc-hotlist-mode-map definition-name eudc-hotlist-mode] 4)
(defvar eudc-hotlist-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204�\303\301\302\304\305!#\210\306\307!\204�\303\307\310\311#\210\312\313 !\210\307\302N\204-�\303\307\302\304\314!#\210\306\300!\204B�\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P�\303\300\302\304\320!#\210\303\311\321\317#\207" [eudc-hotlist-mode-abbrev-table eudc-hotlist-mode-map variable-documentation put purecopy "Keymap for `eudc-hotlist-mode'." boundp eudc-hotlist-mode-syntax-table definition-name eudc-hotlist-mode (lambda (#1=#:def-tmp-var) (defvar eudc-hotlist-mode-syntax-table #1#)) make-syntax-table "Syntax table for `eudc-hotlist-mode'." (lambda (#1#) (defvar eudc-hotlist-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `eudc-hotlist-mode'." derived-mode-parent] 5)
#@499 Major mode used to edit the hotlist of servers.

These are the special commands of this mode:
    a -- Add a new server to the list.
    d -- Delete the server at point from the list.
    s -- Select the server at point.
    t -- Transpose the server at point and the previous one
    q -- Commit the changes and quit.
    x -- Quit without committing the changes.

This mode runs the hook `eudc-hotlist-mode-hook', as the final or penultimate step
during initialization.

\{eudc-hotlist-mode-map}
(defalias 'eudc-hotlist-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\307)\315\316!\207" [delay-mode-hooks major-mode mode-name eudc-hotlist-mode-map eudc-hotlist-mode-syntax-table eudc-hotlist-mode-abbrev-table make-local-variable t kill-all-local-variables eudc-hotlist-mode "EUDC-Servers" use-local-map set-syntax-table run-mode-hooks eudc-hotlist-mode-hook local-abbrev-table buffer-read-only] 2 (#$ . 2095) nil])
#@64 Edit the hotlist of directory servers in a specialized buffer.
(defalias 'eudc-edit-hotlist #[nil "\306\307\310\311\312!!\210\307\313 \210\307\211\203'�
@\211@G	]
A\211\204�*\314	\\\315	\316Z\317\"\320\321\322\323\324\325\326\322\261\n\210`\307\211\203d�
@\211@c\210	j\210\327\fA!\322\261\210
A\211\204K�*\330 *\207" [gap proto-col buffer-read-only eudc-server-hotlist entry --dolist-tail-- 10 nil switch-to-buffer get-buffer-create "*EUDC Servers*" erase-buffer 3 make-string 6 32 "              EUDC Servers\n" "              ============\n" "\n" "Server" "Protocol\n" "------" "--------\n" symbol-name eudc-hotlist-mode eudc-hotlist-list-beginning] 11 (#$ . 3047) nil])
#@49 Add a new server to the list after current one.
(defalias 'eudc-hotlist-add-server #[nil "\304\305!\204\n�\306\307!\210\310\311!\312\313\314\315\"\"\316m\204�\317y\210c\210\320j\210\n\321\261+\207" [eudc-known-protocols buffer-read-only protocol server derived-mode-p eudc-hotlist-mode error "Not in a EUDC hotlist edit buffer" read-from-minibuffer "Server: " completing-read "Protocol: " mapcar #[(elt) "\301!B\207" [elt symbol-name] 2] nil 1 30 "\n"] 6 (#$ . 3748) nil])
#@43 Delete the server at point from the list.
(defalias 'eudc-hotlist-delete-server #[nil "\302\303!\204\n�\304\305!\210\306\212\307 \210`	Y\203\"�\310\311!\203\"�\312\313!\202%�\304\314!*\207" [buffer-read-only eudc-hotlist-list-beginning derived-mode-p eudc-hotlist-mode error "Not in a EUDC hotlist edit buffer" nil beginning-of-line looking-at "^\$[-.a-zA-Z:0-9]+\$[ 	]+\$[a-zA-Z]+\$" kill-line 1 "No server on this line"] 2 (#$ . 4236) nil])
#@64 Quit the hotlist editing mode and save changes to the hotlist.
(defalias 'eudc-hotlist-quit-edit #[nil "\303\304!\204\n�\305\306!\210\307	b\210\310\311!\203'�\312\313!\314\312\315!!BB\313y\210\202�\310\316!\2041�\305\317!\210\237\320 \210\321 \210\322 )\207" [hotlist eudc-hotlist-list-beginning eudc-server-hotlist derived-mode-p eudc-hotlist-mode error "Not in a EUDC hotlist edit buffer" nil looking-at "^\$[-.a-zA-Z:0-9]+\$[ 	]+\$[a-zA-Z]+\$" match-string 1 intern 2 "^[ 	]*$" "Malformed entry in hotlist, discarding edits" eudc-install-menu eudc-save-options kill-this-buffer] 4 (#$ . 4690) nil])
#@51 Select the server at point as the current server.
(defalias 'eudc-hotlist-select-server #[nil "\303\304!\204\n�\305\306!\210\212\307 \210`Y\203-�\310\311!\203-�\312\313\314!\315\313\316!!\"\210\317\320	\n#\2020�\305\321!)\207" [eudc-hotlist-list-beginning eudc-server eudc-protocol derived-mode-p eudc-hotlist-mode error "Not in a EUDC hotlist edit buffer" beginning-of-line looking-at "^\$[-.a-zA-Z:0-9]+\$[ 	]+\$[a-zA-Z]+\$" eudc-set-server match-string 1 intern 2 message "Current directory server is %s (%s)" "No server on this line"] 5 (#$ . 5308) nil])
#@65 Swap the order of the server with the previous one in the list.
(defalias 'eudc-hotlist-transpose-servers #[nil "\302\303!\204\n�\304\305!\210\306\212\307 \210`	Y\205+�\310\311!\205+�\312y\210\310\311!\205+�\313y\210\314\313!*\207" [buffer-read-only eudc-hotlist-list-beginning derived-mode-p eudc-hotlist-mode error "Not in a EUDC hotlist edit buffer" nil beginning-of-line looking-at "^\$[-.a-zA-Z:0-9]+\$[ 	]+\$[a-zA-Z]+\$" -1 1 transpose-lines] 2 (#$ . 5878) nil])
(defconst eudc-hotlist-menu '("EUDC Hotlist Edit" ["---" nil nil] ["Add New Server" eudc-hotlist-add-server t] ["Delete Server" eudc-hotlist-delete-server t] ["Select Server" eudc-hotlist-select-server t] ["Transpose Servers" eudc-hotlist-transpose-servers t] ["Save and Quit" eudc-hotlist-quit-edit t] ["Exit without Saving" kill-this-buffer t]))
#@2 
(defvar eudc-hotlist-emacs-menu nil (#$ . 6705))
(easy-menu-do-define 'eudc-hotlist-emacs-menu eudc-hotlist-mode-map "" eudc-hotlist-menu)

${this.title}

Code Editor : eudc-hotlist.elc