[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv12148

Modified Files:
	ChangeLog slime.el 
Log Message:
Remove some rarely used code.

* slime.el(slime-make-default-connection, slime-choose-connection)
(slime-find-connection-by-name, slime-symbol-at-point): Remove. Unused
code.

--- /project/slime/cvsroot/slime/ChangeLog	2008/03/18 13:21:38	1.1325
+++ /project/slime/cvsroot/slime/ChangeLog	2008/03/18 13:21:51	1.1326
@@ -36,8 +36,13 @@
 	
 2008-03-14  Helmut Eller  <heller at common-lisp.net>
 
+	Remove some rarely used code.
+
 	* slime.el (with-lexical-bindings): Removed.  Updated callers
 	accordingly.
+	(slime-make-default-connection, slime-choose-connection)
+	(slime-find-connection-by-name, slime-symbol-at-point):
+	Remove. Unused code.
 
 2008-03-14  Helmut Eller  <heller at common-lisp.net>
 
--- /project/slime/cvsroot/slime/slime.el	2008/03/18 13:21:38	1.927
+++ /project/slime/cvsroot/slime/slime.el	2008/03/18 13:21:54	1.928
@@ -1957,31 +1957,6 @@
   (interactive)
   (mapc #'slime-net-close slime-net-processes))
 
-(defun slime-make-default-connection ()
-  "Make the current connection the default connection."
-  (interactive)
-  (slime-select-connection (slime-connection))
-  (message "Connection #%S (%s) now default SLIME connection."
-           (slime-connection-number)
-           (slime-connection-name)))
-
-(defun slime-choose-connection ()
-  "Return an established connection chosen by the user."
-  (let ((default (slime-connection-name)))
-    (slime-find-connection-by-name
-     (completing-read (format "Connection name (default %s): " default)
-                      (slime-bogus-completion-alist
-                       (mapcar #'slime-connection-name slime-net-processes))
-                      nil
-                      t
-                      nil
-                      nil
-                      default))))
-
-(defun slime-find-connection-by-name (name)
-  (find name slime-net-processes 
-        :test #'string= :key #'slime-connection-name))
-
 (defun slime-connection-port (connection)
   "Return the remote port number of CONNECTION."
   (if (featurep 'xemacs)
@@ -2628,7 +2603,7 @@
 
 (defun slime-switch-to-output-buffer (&optional connection)
   "Select the output buffer, preferably in a different window."
-  (interactive (list (if prefix-arg (slime-choose-connection))))
+  (interactive)
   (let ((slime-dispatching-connection (or connection 
                                           slime-dispatching-connection)))
     (set-buffer (slime-output-buffer))
@@ -9071,6 +9046,7 @@
 (defun slime-symbol-end-pos ()
   (save-excursion (slime-end-of-symbol) (point)))
 
+;; FIXME: rename this as slime-symbol-at-point.
 (defun slime-symbol-name-at-point ()
   "Return the name of the symbol at point, otherwise nil."
   (save-restriction
@@ -9087,11 +9063,6 @@
              (not (equal string ""))
              (substring-no-properties string))))))
 
-(defun slime-symbol-at-point ()
-  "Return the symbol at point, otherwise nil."
-  (let ((name (slime-symbol-name-at-point)))
-    (and name (intern name))))
-
 (defun slime-sexp-at-point ()
   "Return the sexp at point as a string, otherwise nil."
   (let ((string (thing-at-point 'sexp)))