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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-setup-command-hooks): Make after-change-functions a
buffer-local variable; it's by default global in XEmacs.
Date: Wed Sep 21 22:50:41 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.550 slime/slime.el:1.551
--- slime/slime.el:1.550	Wed Sep 21 13:50:22 2005
+++ slime/slime.el	Wed Sep 21 22:50:40 2005
@@ -896,6 +896,7 @@
   (add-hook 'pre-command-hook 'slime-pre-command-hook nil t) 
   (add-hook 'post-command-hook 'slime-post-command-hook nil t)
   (when slime-repl-enable-presentations
+    (make-local-variable 'after-change-functions)
     (add-hook 'after-change-functions 'slime-after-change-function nil t)))
 
 
@@ -2733,7 +2734,7 @@
   ;;(byte-compile-file "slime-net.el" t)
   ;;(setq slime-log-events nil)
   (setq slime-enable-evaluate-in-emacs t)
-  (setq slime-repl-enable-presentations nil)
+  ;;(setq slime-repl-enable-presentations nil)
   (when profile
     (elp-instrument-package "slime-"))
   (kill-buffer (slime-output-buffer))
@@ -8823,6 +8824,8 @@
       (cond ((time-less-p end (current-time))
              (error "Timeout waiting for condition: %S" name))
             (t
+             ;; XXX if a process-filter enters a recursive-edit, we
+             ;; hang forever
              (accept-process-output nil 0 100000))))))
 
 (defun slime-sync-to-top-level (timeout)
@@ -9184,8 +9187,8 @@
     (insert input)
     (call-interactively 'slime-repl-return)
     (slime-sync-to-top-level 5)
-    (slime-check "Buffer contains result"
-      (equal result-contents (buffer-string)))))
+    (slime-test-expect "Buffer contains result" 
+                       result-contents (buffer-string))))
 
 (def-slime-test repl-read-lines
     (command inputs final-contents)
@@ -9236,15 +9239,17 @@
     ()
     "Test if BREAK invokes SLDB."
     '(())
+  (slime-check-top-level)
   (slime-compile-string (prin1-to-string '(cl:defun cl-user::foo () 
                                                     (cl:break))) 
                         0)
+  (slime-sync-to-top-level 2)
   (slime-eval-async '(cl-user::foo))
   (slime-wait-condition "Debugger visible" 
                         (lambda () 
                           (and (slime-sldb-level= 1)
                                (get-buffer-window (sldb-get-default-buffer))))
-                        10)
+                        5)
   (with-current-buffer (sldb-get-default-buffer)
     (sldb-quit))
   (slime-sync-to-top-level 5))