[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-autodoc.el 
Log Message:
* contrib/slime-autodoc.el (slime-fontify-string): setup *slime-fontify*
buffer without calling (lisp-mode) to avoid turning slime-mode there,
which may cause interference.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/09/13 03:15:03	1.243
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/09/15 17:34:32	1.244
@@ -1,3 +1,9 @@
+2009-09-15  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-autodoc.el (slime-fontify-string): setup *slime-fontify*
+	buffer without calling (lisp-mode) to avoid turning slime-mode there,
+	which may cause interference.
+
 2009-09-13  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-autodoc.el (slime-fontify-string): do not call
--- /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2009/09/13 03:15:03	1.19
+++ /project/slime/cvsroot/slime/contrib/slime-autodoc.el	2009/09/15 17:34:32	1.20
@@ -183,8 +183,10 @@
   (with-current-buffer (get-buffer-create " *slime-fontify*")
     (erase-buffer)
     (unless (eq major-mode 'lisp-mode)
-      (lisp-mode)
-      (set (make-local-variable 'slime-highlight-suppressed-forms) nil))
+      ;; Just calling (lisp-mode) will turn slime-mode on in that buffer,
+      ;; which may interfere with this function
+      (setq major-mode 'lisp-mode)
+      (lisp-mode-variables t))
     (insert string)
     (let ((font-lock-verbose nil))
       (font-lock-fontify-buffer))