[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime-asdf.el 
Log Message:
	* slime-asdf.el (slime-query-replace-regexp): Quote `from'
	argument because `tags-query-replace' actually uses
	`query-replace-regexp' internally.

	Reported by David O'Toole.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/01 08:52:20	1.292
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/03 12:46:12	1.293
@@ -1,3 +1,11 @@
+2009-12-03  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-asdf.el (slime-query-replace-regexp): Quote `from'
+	argument because `tags-query-replace' actually uses
+	`query-replace-regexp' internally.
+
+	Reported by David O'Toole.
+
 2009-12-01  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-asdf.lisp (asdf-system-files): Include the .asd file too.
--- /project/slime/cvsroot/slime/contrib/slime-asdf.el	2009/11/23 21:48:52	1.18
+++ /project/slime/cvsroot/slime/contrib/slime-asdf.el	2009/12/03 12:46:12	1.19
@@ -161,7 +161,9 @@
           (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 
+  ;; `tags-query-replace' actually uses `query-replace-regexp'
+  ;; internally.
+  (tags-query-replace (regexp-quote from) to delimited
 		      '(slime-eval `(swank:asdf-system-files ,name))))