[slime-cvs] CVS slime/contrib

[CVS User heller]

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

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

--- /project/slime/cvsroot/slime/contrib/slime-fontifying-fu.el	2009/06/16 06:36:40	1.12
+++ /project/slime/cvsroot/slime/contrib/slime-fontifying-fu.el	2009/06/21 12:18:25	1.13
@@ -317,7 +317,21 @@
                          'slime-reader-conditional-face
                          (get-text-property (point) 'face)))))
 
-
+(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))))
 
 (provide 'slime-fontifying-fu)
 
@@ -328,4 +342,3 @@
           slime-search-directly-preceding-reader-conditional
           slime-search-suppressed-forms
           slime-beginning-of-tlf)))
-