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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-complete-symbol): Use markers to hold the beginning and end of
the completion prefix in case looking up completions causes insertions
(e.g. GC announcements).

Date: Fri Jan  9 19:15:50 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.170 slime/slime.el:1.171
--- slime/slime.el:1.170	Fri Jan  9 18:00:25 2004
+++ slime/slime.el	Fri Jan  9 19:15:50 2004
@@ -3034,8 +3034,8 @@
   (interactive)
   (when (save-excursion (re-search-backward "\"[^ \t\n]+\\=" nil t))
     (return-from slime-complete-symbol (comint-dynamic-complete-as-filename)))
-  (let* ((end (slime-symbol-end-pos))
-         (beg (slime-symbol-start-pos))
+  (let* ((end (move-marker (make-marker) (slime-symbol-end-pos)))
+         (beg (move-marker (make-marker) (slime-symbol-start-pos)))
          (prefix (buffer-substring-no-properties beg end))
          (completion-result (slime-completions prefix))
          (completion-set (first completion-result))