[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv4169

Modified Files:
	slime.el 
Log Message:
(slime-start-swank-server): Avoid comint-send-input here as it seems
to trigger a bug in ansi-color-for-commit-mode.

Date: Fri Oct 21 10:05:02 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.556 slime/slime.el:1.557
--- slime/slime.el:1.556	Mon Oct 17 20:15:32 2005
+++ slime/slime.el	Fri Oct 21 10:05:00 2005
@@ -1466,8 +1466,9 @@
       (make-local-variable 'slime-inferior-lisp-args)
       (setq slime-inferior-lisp-args args)
       (let ((str (funcall init (slime-swank-port-file) coding-system)))
-        (goto-char (point-max)) (insert str)
-        (comint-send-input)))))
+        (goto-char (process-mark process)) 
+        (insert-before-markers str)
+        (process-send-string process str)))))
 
 (defun slime-inferior-lisp-args (process)
   (with-current-buffer (process-buffer process)
@@ -3759,7 +3760,7 @@
           (with-temp-buffer
             (insert ";; History for SLIME REPL.  Automatically written\n")
             (insert ";; Edit only if you know what you're doing\n")
-            (pp (mapcar 'substring-no-properties hist) (current-buffer))
+            (pp (mapcar #'substring-no-properties hist) (current-buffer))
             (write-region (point-min) (point-max) file)))))))
 
 (defun slime-repl-save-all-histories ()
@@ -7944,35 +7945,6 @@
   "*The name of the default Lisp implementation.
 See `slime-lisp-implementations'")
 
-(defun slime-register-lisp-implementation (name command)
-  (interactive "sName: \nfCommand: ")
-  (let ((cons (assoc name slime-lisp-implementations)))
-    (if cons
-      (setf (cdr cons) command)
-      (push (cons name command) slime-lisp-implementations)))
-  (if (string= inferior-lisp-program "lisp")
-    (slime-select-lisp-implementation name)))
-
-(defun slime-select-lisp-implementation (name)
-  (interactive "sName: ")
-  (setq inferior-lisp-program
-        (cdr (assoc name slime-lisp-implementations))))
-
-(defun slime-find-lisp-implementation (name)
-  (let ((cons (or (assoc name slime-lisp-implementations)
-                  (rassoc name slime-lisp-implementations))))
-    (if cons (cdr cons) name)))
-
-;; XXX: unused function
-(defun slime-find-lisp-implementation-name (command)
-  (cdr (rassoc command slime-lisp-implementations)))
-
-(defun slime-symbolic-lisp-name-p (name)
-  (let ((cons (or (assoc name slime-lisp-implementations)
-                  (rassoc name slime-lisp-implementations))))
-    (if cons (car cons))))
-
-
 (define-derived-mode slime-connection-list-mode fundamental-mode
   "connection-list"
   "SLIME Connection List Mode.
@@ -9227,7 +9199,8 @@
     (let ((p (slime-eval 
               `(swank:listener-eval 
                 ,(format 
-                  "(cl:setq cl:*package* (cl:find-package %S))
+                  "(cl:setq cl:*print-case* :upcase)
+                   (cl:setq cl:*package* (cl:find-package %S))
                    (cl:package-name cl:*package*)" package-name))
               (slime-lisp-package))))
       (slime-check ("slime-lisp-package is %S." package-name)