JezK
Edit File: eudc-hotlist.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:54:07 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/eudc-hotlist.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) (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-this-buffer] 4)) #@366 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. (defalias 'eudc-hotlist-mode #[nil "\304 \210\305\306\307\n!\210\310\311\312!\207" [major-mode mode-name eudc-hotlist-mode-map buffer-read-only kill-all-local-variables eudc-hotlist-mode "EUDC-Servers" use-local-map t run-mode-hooks eudc-hotlist-mode-hook] 2 (#$ . 1025) nil]) #@64 Edit the hotlist of directory servers in a specialized buffer. (defalias 'eudc-edit-hotlist #[nil "\305\306\307\310\311!!\210\306\312 \210\313\314 \"\210\315 \\\316 \317Z\320\"\321\322\323\324\325\326\327\323\261\n\210`\313\330 \"\210\331 *\207" [gap proto-col buffer-read-only eudc-server-hotlist eudc-hotlist-list-beginning 10 nil switch-to-buffer get-buffer-create "*EUDC Servers*" erase-buffer mapc #[(entry) "@G ]\211\207" [entry proto-col] 2] 3 make-string 6 32 " EUDC Servers\n" " ============\n" "\n" "Server" "Protocol\n" "------" "--------\n" #[(entry) "@c\210 j\210\302A!\303\261\207" [entry proto-col symbol-name "\n"] 2] eudc-hotlist-mode] 10 (#$ . 1676) nil]) #@49 Add a new server to the list after current one. (defalias 'eudc-hotlist-add-server #[nil "\305=\204\n \306\307!\210\310\311!\312\313\314\315 \"\"\316 m\204 \317y\210\fc\210\320j\210 \321\261+\207" [major-mode eudc-known-protocols buffer-read-only protocol server 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 (#$ . 2395) nil]) #@43 Delete the server at point from the list. (defalias 'eudc-hotlist-delete-server #[nil "\303=\204\n \304\305!\210\306\212\307 \210`\nY\203\" \310\311!\203\" \312\313!\202% \304\314!*\207" [major-mode buffer-read-only eudc-hotlist-list-beginning 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 (#$ . 2876) nil]) #@64 Quit the hotlist editing mode and save changes to the hotlist. (defalias 'eudc-hotlist-quit-edit #[nil "\304=\204\n \305\306!\210\307\nb\210\310\311!\203' \312\313!\314\312\315!!B B\313y\210\202 \310\316!\2041 \305\317!\210 \237\320 \210\321 \210\322 )\207" [major-mode hotlist eudc-hotlist-list-beginning eudc-server-hotlist 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 (#$ . 3324) nil]) #@51 Select the server at point as the current server. (defalias 'eudc-hotlist-select-server #[nil "\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" [major-mode eudc-hotlist-list-beginning eudc-server eudc-protocol 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 (#$ . 3936) nil]) #@65 Swap the order of the server with the previous one in the list. (defalias 'eudc-hotlist-transpose-servers #[nil "\303=\204\n \304\305!\210\306\212\307 \210`\nY\205+ \310\311!\205+ \312y\210\310\311!\205+ \313y\210\314\313!*\207" [major-mode buffer-read-only eudc-hotlist-list-beginning 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 (#$ . 4499) 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])) (byte-code "\302\303!\210\304\305\306 $\207" [eudc-hotlist-mode-map eudc-hotlist-menu (lambda (#1=#:def-tmp-var) (defvar eudc-hotlist-emacs-menu #1# #2="")) nil easy-menu-do-define eudc-hotlist-emacs-menu #2#] 5)