[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-system-history): New variable.
(slime-read-system-name): Use a separate history list for ASDF
system names.


--- /project/slime/cvsroot/slime/slime.el	2006/03/07 16:59:42	1.594
+++ /project/slime/cvsroot/slime/slime.el	2006/03/14 07:41:50	1.595
@@ -4330,6 +4330,9 @@
   (interactive (list (slime-read-system-name)))
   (slime-oos system "LOAD-OP"))
 
+(defvar slime-system-history nil
+  "History list for ASDF system names.")
+
 (defun slime-read-system-name (&optional prompt initial-value)
   "Read a system name from the minibuffer, prompting with PROMPT."
   (setq prompt (or prompt "System: "))
@@ -4339,7 +4342,8 @@
                         (slime-eval 
                          `(swank:list-all-systems-in-central-registry))))))
     (completing-read prompt alist nil nil
-                     (or initial-value (slime-find-asd) ""))))
+                     (or initial-value (slime-find-asd) "")
+                     'slime-system-history)))
 
 (defun slime-oos (system operation &rest keyword-args)
   (slime-save-some-lisp-buffers)