Function: eudc-hotlist-transpose-servers

eudc-hotlist-transpose-servers is an interactive and byte-compiled function defined in eudc-hotlist.el.gz.

Signature

(eudc-hotlist-transpose-servers)

Documentation

Swap the order of the server with the previous one in the list.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc-hotlist.el.gz
(defun eudc-hotlist-transpose-servers ()
  "Swap the order of the server with the previous one in the list."
  (interactive)
  (if (not (derived-mode-p 'eudc-hotlist-mode))
      (error "Not in a EUDC hotlist edit buffer"))
  (let ((buffer-read-only nil))
    (save-excursion
      (beginning-of-line)
      (if (and (>= (point) eudc-hotlist-list-beginning)
	       (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)")
	       (progn
		 (forward-line -1)
		 (looking-at "^\\([-.a-zA-Z:0-9]+\\)[ \t]+\\([a-zA-Z]+\\)")))
	  (progn
	    (forward-line 1)
	    (transpose-lines 1))))))