[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv5112/contrib

Modified Files:
	ChangeLog slime-asdf.el slime-fuzzy.el 
Log Message:
	* slime.el (slime-minibuffer-map): Nee `slime-read-expression-map'
	(slime-minibuffer-history): Nee `slime-read-expression-history'
	(slime-minibuffer-setup-hook): Extracted.
	(slime-read-from-minibuffer): Adapted accordingly.

	* slime-asdf.el (slime-query-replace-system): Enable TAB
	completion of symbol names.

	* slime-fuzzy.el (slime-fuzzy-completions): Do not use
	`slime-find-buffer-package' it's an internal operation of
	`slime-current-buffer'.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/17 20:38:22	1.277
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/19 13:37:45	1.278
@@ -1,3 +1,12 @@
+2009-11-19  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-asdf.el (slime-query-replace-system): Enable TAB
+	completion of symbol names.
+
+	* slime-fuzzy.el (slime-fuzzy-completions): Do not use
+	`slime-find-buffer-package' it's an internal operation of
+	`slime-current-buffer'.
+
 2009-11-17  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	M-x slime-isearch-system will run `isearch-forward' on all files
--- /project/slime/cvsroot/slime/contrib/slime-asdf.el	2009/11/17 20:38:22	1.14
+++ /project/slime/cvsroot/slime/contrib/slime-asdf.el	2009/11/19 13:37:45	1.15
@@ -149,12 +149,14 @@
 (defun slime-query-replace-system (name from to &optional delimited)
   "Run `query-replace' on an ASDF system."
   (interactive 
-   (let* ((system (slime-read-system-name nil nil t))
+   (let* ((minibuffer-setup-hook (slime-minibuffer-setup-hook))
+	  (minibuffer-local-map slime-minibuffer-map)
+	  (system (slime-read-system-name nil nil t))
           (common (query-replace-read-args 
                    (format "Query replace throughout `%s'" system) t t)))
      (list system (nth 0 common) (nth 1 common) (nth 2 common))))
   (tags-query-replace from to delimited 
-                      '(slime-eval `(swank:asdf-system-files ,name))))
+		      '(slime-eval `(swank:asdf-system-files ,name))))
 
 
 ;;; REPL shortcuts
--- /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2009/08/09 14:07:48	1.12
+++ /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2009/11/19 13:37:45	1.13
@@ -226,7 +226,6 @@
 		  (string prefix))))
     (slime-eval `(swank:fuzzy-completions ,prefix 
                                           ,(or default-package
-                                               (slime-find-buffer-package)
                                                (slime-current-package))
                   :limit ,slime-fuzzy-completion-limit
                   :time-limit-in-msec ,slime-fuzzy-completion-time-limit-in-msec))))