[slime-cvs] CVS slime/contrib

[heller]

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

Modified Files:
	slime-editing-commands.el slime-presentations.el 
Log Message:
* slime.el (slime-repl-input-end-mark): Deleted. It was always at
the end of buffer. Use point-max instead.
(slime-repl-eol): Removed.  The usual end-of-line does the same.

--- /project/slime/cvsroot/slime/contrib/slime-editing-commands.el	2008/01/10 15:32:08	1.6
+++ /project/slime/cvsroot/slime/contrib/slime-editing-commands.el	2008/09/22 17:49:42	1.7
@@ -25,8 +25,7 @@
 
 (defun slime-end-of-defun ()
   (interactive)
-  (if (and (boundp 'slime-repl-input-end-mark)
-           slime-repl-input-end-mark)
+  (if (eq major 'slime-repl-mode)
       (slime-repl-end-of-defun)
       (end-of-defun)))
 
@@ -187,3 +186,4 @@
   (define-key slime-mode-map "\C-c\M-q" 'slime-reindent-defun))
 
 (provide 'slime-editing-commands)
+(defun
\ No newline at end of file
--- /project/slime/cvsroot/slime/contrib/slime-presentations.el	2008/08/18 09:20:20	1.17
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el	2008/09/22 17:49:42	1.18
@@ -671,10 +671,10 @@
     (let ((old-output (buffer-substring beg end))) ;;keep properties
       ;; Append the old input or replace the current input
       (cond (replace (goto-char slime-repl-input-start-mark))
-            (t (goto-char slime-repl-input-end-mark)
+            (t (goto-char (point-max))
                (unless (eq (char-before) ?\ )
                  (insert " "))))
-      (delete-region (point) slime-repl-input-end-mark)
+      (delete-region (point) (point-max))
       (let ((inhibit-read-only t))
         (insert old-output)))))
 
@@ -793,10 +793,8 @@
 The input is the region from after the last prompt to the end of
 buffer. Presentations of old results are expanded into code."
   (slime-buffer-substring-with-reified-output  slime-repl-input-start-mark
-                                               (if (and until-point-p
-                                                        (<= (point) slime-repl-input-end-mark))
-                                                   (point)
-                                                   slime-repl-input-end-mark)))    
+					       (point-max)))
+
 (defun slime-presentation-on-return-pressed ()
   (cond ((and (car (slime-presentation-around-or-before-point (point)))
 	      (< (point) slime-repl-input-start-mark))