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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-log-event): Better bug-avoidance with hs-minor-mode. Hopefully
XEmacs users can rest safely now.

(slime-prin1-to-string): Bind `print-escape-newlines' to nil.

Date: Tue Apr 27 13:40:14 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.278 slime/slime.el:1.279
--- slime/slime.el:1.278	Mon Apr 26 14:16:18 2004
+++ slime/slime.el	Tue Apr 27 13:40:08 2004
@@ -1000,7 +1000,8 @@
   "Like `prin1-to-string' but don't octal-escape non-ascii characters.
 This is more compatible with the CL reader."
   (with-temp-buffer
-    (let ((print-escape-nonascii nil))
+    (let ((print-escape-nonascii nil)
+          (print-escape-newlines nil))
       (prin1 sexp (current-buffer))
       (buffer-string))))
 
@@ -1667,7 +1668,8 @@
       (goto-char (point-max))
       (save-excursion
         (pp event (current-buffer)))
-      (hs-hide-block-at-point)
+      (when hs-minor-mode
+        (hs-hide-block-at-point))
       (goto-char (point-max)))))
 
 (defun slime-events-buffer ()