Function: eudc-hotlist-add-server

eudc-hotlist-add-server is an interactive and byte-compiled function defined in eudc-hotlist.el.gz.

Signature

(eudc-hotlist-add-server)

Documentation

Add a new server to the list after current one.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc-hotlist.el.gz
(defun eudc-hotlist-add-server ()
  "Add a new server to the list after current one."
  (interactive)
  (if (not (derived-mode-p 'eudc-hotlist-mode))
      (error "Not in a EUDC hotlist edit buffer"))
  (let ((server (read-from-minibuffer "Server: "))
	(protocol (completing-read "Protocol: "
				   (mapcar (lambda (elt)
					      (cons (symbol-name elt)
						    elt))
					   eudc-known-protocols)))
	(buffer-read-only nil))
    (if (not (eobp))
	(forward-line 1))
    (insert server)
    (indent-to 30)
    (insert protocol "\n")))