[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-search-buffer-package): Fix.


--- /project/slime/cvsroot/slime/slime.el	2006/10/19 11:57:47	1.666
+++ /project/slime/cvsroot/slime/slime.el	2006/10/19 12:11:15	1.667
@@ -2401,10 +2401,10 @@
                 (regexp "^(\\(cl:\\|common-lisp:\\)?in-package\\>[ \n\t\r']*"))
             (or (re-search-backward regexp nil t)
                 (re-search-forward regexp nil t)))
-      (let ((start (match-end 0)))
-        (ignore-errors
+      (goto-char (match-end 0))
+      (let ((start (point)))
           (up-list 1)
-          (buffer-substring-no-properties start (1- (point))))))))
+          (buffer-substring-no-properties start (1- (point)))))))
 
 ;;; Synchronous requests are implemented in terms of asynchronous
 ;;; ones. We make an asynchronous request with a continuation function