;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'eudc) (defvar eudc-hotlist-list-beginning nil) (defvar eudc-hotlist-mode-map (define-keymap "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)) (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\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\313#\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 defvar-1 nil make-syntax-table "Syntax table for `eudc-hotlist-mode'." define-abbrev-table "Abbrev table for `eudc-hotlist-mode'." derived-mode-parent] 5)#@655 Major mode used to edit the hotlist of servers. These are the special commands of this mode:\ \[eudc-hotlist-add-server] -- Add a new server to the list. \[eudc-hotlist-delete-server] -- Delete the server at point from the list. \[eudc-hotlist-select-server] -- Select the server at point. \[eudc-hotlist-transpose-servers] -- Transpose the server at point and the previous one \[eudc-hotlist-quit-edit] -- Commit the changes and quit. \[kill-current-buffer] -- Quit without committing the changes. This mode runs the hook `eudc-hotlist-mode-hook', as the final or penultimate step during initialization. (defalias 'eudc-hotlist-mode #[0 "\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 (#$ . 1526) nil])#@64 Edit the hotlist of directory servers in a specialized buffer. (defalias 'eudc-edit-hotlist #[0 "\303\304\305\306\307!!\210\304\310 \210 \211\203\"\211@\211@G]\262A\266\202\202\210\311\\\262\312\313Z\314\"\262\315\316\317\320\321\322\323\317\261\n\210` \211\203]\211@\211@c\210j\210\324A!\317\261\210A\266\202\202A\210\325 \207" [buffer-read-only eudc-server-hotlist eudc-hotlist-list-beginning 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] 12 (#$ . 2631) nil])#@49 Add a new server to the list after current one. (defalias 'eudc-hotlist-add-server #[0 "\302\303!\204\n\304\305!\210\306\307!\310\311\312\313\"\"\314m\204\315y\210c\210\316j\210\211\317\261)\207" [eudc-known-protocols buffer-read-only derived-mode-p eudc-hotlist-mode error "Not in a EUDC hotlist edit buffer" read-from-minibuffer "Server: " completing-read "Protocol: " mapcar #[257 "\300!B\207" [symbol-name] 3 "\n\n(fn ELT)"] nil 1 30 "\n"] 6 (#$ . 3306) nil])#@43 Delete the server at point from the list. (defalias 'eudc-hotlist-delete-server #[0 "\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 (#$ . 3784) nil])#@64 Quit the hotlist editing mode and save changes to the hotlist. (defalias 'eudc-hotlist-quit-edit #[0 "\302\303!\204\n\304\305!\210\306b\210\307\310!\203'\311\312!\313\311\314!!BB\262\312y\210\202\307\315!\2041\304\316!\210\211\237\317 \210\320 \210\321 \207" [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] 5 (#$ . 4235) nil])#@51 Select the server at point as the current server. (defalias 'eudc-hotlist-select-server #[0 "\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 (#$ . 4847) nil])#@65 Swap the order of the server with the previous one in the list. (defalias 'eudc-hotlist-transpose-servers #[0 "\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 (#$ . 5414) 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]))#@20 EUDC hotlist Menu. (defvar eudc-hotlist-emacs-menu nil (#$ . 6239)) (easy-menu-do-define 'eudc-hotlist-emacs-menu eudc-hotlist-mode-map "EUDC hotlist Menu." eudc-hotlist-menu)