[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv27629

Modified Files:
	slime.el 
Log Message:
(slime-log-event): Use outline-minor-mode in *slime-events* instead of
hideshow-mode. It's more reliable. (Patch from Lawrence Mitchell.)

Date: Wed Apr 28 12:45:02 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.281 slime/slime.el:1.282
--- slime/slime.el:1.281	Tue Apr 27 18:35:24 2004
+++ slime/slime.el	Wed Apr 28 12:45:01 2004
@@ -1660,22 +1660,18 @@
       (goto-char (point-max))
       (save-excursion
         (pp event (current-buffer)))
-      (when hs-minor-mode
-        (hs-hide-block-at-point))
+      (when outline-minor-mode
+        (hide-entry))
       (goto-char (point-max)))))
 
 (defun slime-events-buffer ()
   (or (get-buffer "*slime-events*")
       (let ((buffer (get-buffer-create "*slime-events*")))
-        ;; Using hideshow mode in XEmacs has caused obscure problems
-        ;; for some users. -luke (24/Apr/2004)
-        (unless (featurep 'xemacs)
-          (with-current-buffer buffer
-            (set (make-local-variable 'hs-block-start-regexp) "^(")
-            (set (make-local-variable 'comment-start) ";")
-            (set (make-local-variable 'comment-end) "")
-            (unless (featurep 'xemacs)
-              (hs-minor-mode))))
+        (with-current-buffer buffer
+          (set (make-local-variable 'outline-regexp) "^(")
+          (set (make-local-variable 'comment-start) ";")
+          (set (make-local-variable 'comment-end) "")
+          (outline-minor-mode))
         buffer)))