[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv12311

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (sldb-toggle-details): Inhibit point-motion-hooks.
This is a workaround for problems with the --more-- field.

--- /project/slime/cvsroot/slime/ChangeLog	2008/03/08 08:42:21	1.1312
+++ /project/slime/cvsroot/slime/ChangeLog	2008/03/13 10:42:49	1.1313
@@ -1,3 +1,8 @@
+2008-03-08  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (sldb-toggle-details): Inhibit point-motion-hooks.
+	This is a workaround for problems with the --more-- field.
+
 2008-03-07  Helmut Eller  <heller at common-lisp.net>
 
 	Be GC friendlier when parsing net packets.
--- /project/slime/cvsroot/slime/slime.el	2008/03/08 08:42:21	1.916
+++ /project/slime/cvsroot/slime/slime.el	2008/03/13 10:42:49	1.917
@@ -6744,7 +6744,7 @@
   (let ((inhibit-point-motion-hooks t)
         (inhibit-read-only t)
         (prev (get-text-property (point) 'sldb-previous-frame-number)))
-    ;; for unkown reasons, PREV is sometimes nil
+    ;; we may be called twice, PREV is nil the second time
     (when prev
       (let* ((count 40)
              (from (1+ prev))
@@ -6986,7 +6986,8 @@
 The details include local variable bindings and CATCH-tags."
   (interactive)
   (assert (sldb-frame-number-at-point))
-  (let ((inhibit-read-only t))
+  (let ((inhibit-read-only t)
+        (inhibit-point-motion-hooks t))
     (if (or on (not (sldb-frame-details-visible-p)))
 	(sldb-show-frame-details)
       (sldb-hide-frame-details))))