cvs diff: Diffing .
Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.1060
diff -u -r1.1060 slime.el
--- slime.el    2 Nov 2008 12:05:24 -0000       1.1060
+++ slime.el    12 Nov 2008 15:20:11 -0000
@@ -5057,7 +5057,10 @@
   "If point is at a string starting with \", complete it as filename.
 Return nil iff if point is not at filename."
   (if (save-excursion (re-search-backward "\"[^ \t\n]+\\=" nil t))
-      (let ((comint-completion-addsuffix '("/" . "\"")))
+      (let ((comint-completion-addsuffix 
+             (if (and (boundp 'paredit-mode) paredit-mode)
+                 '("/" . "")
+                 '("/" . "\""))))
         (if slime-when-complete-filename-expand
             (comint-replace-by-expanded-filename)
           (comint-dynamic-complete-as-filename))
cvs diff: Diffing contrib
Index: contrib/slime-presentations.el
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/slime-presentations.el,v
retrieving revision 1.20
diff -u -r1.20 slime-presentations.el
--- contrib/slime-presentations.el      24 Sep 2008 09:14:02 -0000      1.20
+++ contrib/slime-presentations.el      12 Nov 2008 15:20:11 -0000
@@ -789,7 +789,9 @@
 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
-                                              (point-max)))
+                                              (if until-point-p 
+                                                  (point) 
+                                                  (point-max))))
 
 (defun slime-presentation-on-return-pressed ()
   (cond ((and (car (slime-presentation-around-or-before-point (point)))