Function: eudc-hotlist-quit-edit

eudc-hotlist-quit-edit is an interactive and byte-compiled function defined in eudc-hotlist.el.gz.

Signature

(eudc-hotlist-quit-edit)

Documentation

Quit the hotlist editing mode and save changes to the hotlist.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc-hotlist.el.gz
(defun eudc-hotlist-quit-edit ()
  "Quit the hotlist editing mode and save changes to the hotlist."
  (interactive)
  (if (not (derived-mode-p 'eudc-hotlist-mode))
      (error "Not in a EUDC hotlist edit buffer"))
  (let (hotlist)
    (goto-char eudc-hotlist-list-beginning)
    (while (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)")
      (setq hotlist (cons (cons (match-string 1)
				(intern (match-string 2)))
			  hotlist))
      (forward-line 1))
    (if (not (looking-at "^[ \t]*$"))
	(error "Malformed entry in hotlist, discarding edits"))
    (setq eudc-server-hotlist (nreverse hotlist))
    (eudc-install-menu)
    (eudc-save-options)
    (kill-this-buffer)))