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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(sldb-fetch-more-frames): Use (goto-char (point-max)) instead of
end-of-buffer. 
Date: Wed Feb 25 03:05:12 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.218 slime/slime.el:1.219
--- slime/slime.el:1.218	Wed Feb 25 02:27:01 2004
+++ slime/slime.el	Wed Feb 25 03:05:12 2004
@@ -4326,10 +4326,11 @@
 Called on the `point-entered' text-property hook."
   (let ((inhibit-point-motion-hooks t))
     (let ((inhibit-read-only t))
-      (when-let (previous (get-text-property (point) 'sldb-previous-frame-number))
+      (when-let (previous (get-text-property (point) 
+                                             'sldb-previous-frame-number))
         (beginning-of-line)
         (let ((start (point)))
-          (end-of-buffer)
+          (goto-char (point-max))
           (delete-region start (point)))
         (let ((start (1+ previous))
               (end (+ previous 40)))
@@ -5699,6 +5700,7 @@
 (defun sldb-xemacs-post-command-hook ()
   (when (get-text-property (point) 'point-entered)
     (funcall (get-text-property (point) 'point-entered))))
+
 
 
 ;;; Finishing up