[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-initialize-lisp-buffer-for-test-suite): Moved to
contrib/slime-fontifying-fu.el

--- /project/slime/cvsroot/slime/ChangeLog	2009/06/21 12:18:10	1.1790
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/21 12:18:25	1.1791
@@ -1,5 +1,9 @@
 2009-06-21  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-initialize-lisp-buffer-for-test-suite): Moved to
+	contrib/slime-fontifying-fu.el
+
+2009-06-21  Helmut Eller  <heller at common-lisp.net>
 	Don't try so hard to get symbol-at-point right.
 	The old implementation was complicated and didn't even pass it's
 	own test suite.  The new version is less ambitious but simpler.
--- /project/slime/cvsroot/slime/slime.el	2009/06/21 12:18:10	1.1188
+++ /project/slime/cvsroot/slime/slime.el	2009/06/21 12:18:25	1.1189
@@ -7419,22 +7419,6 @@
   slime-test-symbols
   (slime-check-symbol-at-point "\" )))(( \"" sym ""))
 
-(defun* slime-initialize-lisp-buffer-for-test-suite 
-    (&key (font-lock-magic t) (autodoc t))
-  (let ((hook lisp-mode-hook))
-    (unwind-protect
-         (progn 
-           (set (make-local-variable 'slime-highlight-suppressed-forms)
-                font-lock-magic)
-           (setq lisp-mode-hook nil)
-           (lisp-mode)
-           (slime-mode 1)
-           (when (boundp 'slime-autodoc-mode)
-             (if autodoc
-                 (slime-autodoc-mode 1)
-                 (slime-autodoc-mode -1))))
-      (setq lisp-mode-hook hook))))
-
 (def-slime-test narrowing ()
     "Check that narrowing is properly sustained."
     '()