[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-expand-abbreviations-and-complete): Emacs
`choose-completion' (choosing a completion from the *Completions*
buffer) always replaces text upto (point). So the code which
figures out an `unambiguous-completion-length' and places the
point there in `slime-expand-abbreviations-and-complete' causes
problems: the replacement text gets garbled.  Get rid of the bogus
`unambiguous-completion-length'.  Patch by Madhu <enometh at meer.net>


--- /project/slime/cvsroot/slime/slime.el	2006/12/14 16:05:12	1.706
+++ /project/slime/cvsroot/slime/slime.el	2006/12/14 16:13:10	1.707
@@ -6151,15 +6151,10 @@
                          (set-window-start window (point-min) nil)
                        (let ((other-window-scroll-buffer 
                               (window-buffer window)))
-                   (scroll-other-window)))))
-               (let ((unambiguous-completion-length
-                      (loop for c in completion-set
-                            minimizing (or (mismatch completed-prefix c)
-                                           (length completed-prefix)))))
-                 (goto-char (+ beg unambiguous-completion-length))
-                 (slime-display-completion-list completion-set
-                                                completed-prefix)
-                 (slime-complete-delay-restoration))))))))
+                   (scroll-other-window))))) ; madhu
+               (slime-display-completion-list completion-set
+                                              completed-prefix)
+               (slime-complete-delay-restoration)))))))
 
 (defun slime-complete-symbol*-fancy-bit ()
   "Do fancy tricks after completing a symbol.