FreeCode Signature

Hi,

I find this function very useful, so I suggest that it be included.

(defun slime-toggle-connection ()
"Change current slime connection, and make it buffer local"
(interactive)
(setf slime-net-processes (rotate-list slime-net-processes))
(let ((p (car slime-net-processes)))
    (make-local-variable 'slime-default-connection) ;; To have different files with different lisps
    (slime-select-connection p)
    (slime-set-state (format "(%s)" (slime-connection-name p)) p)
    (message "Lisp: %s, buffer: %s" (process-contact p) (slime-connection-name p))))

And, I have bound these keys:
(define-key slime-mode-map [f12] 'slime-toggle-connection)
(define-key slime-mode-map [f11] 'slime-goto-current-connection)

--
FreeCode Signature Free Software Consultant
Cell: +47 - 47 34 40 08
Phone: +47 - 21 53 69 00, Fax: +47 - 21 53 69 09
Addr: Slemdalsveien 70, PB 1 Vinderen, 0319 Oslo