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

[Alan Ruttenberg]

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

Modified Files:
	ChangeLog slime.el 
Log Message:

Date: Fri Sep  9 19:10:20 2005
Author: aruttenberg

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.772 slime/ChangeLog:1.773
--- slime/ChangeLog:1.772	Fri Sep  9 04:01:13 2005
+++ slime/ChangeLog	Fri Sep  9 19:10:18 2005
@@ -1,3 +1,7 @@
+2005-09-09  Alan Ruttenberg <alanr-l at mumble.net>
+	* slime.el (slime-choose-overlay-region). Don't try to overlay a
+	note if location is nil.
+
 2005-09-08  Alan Ruttenberg <alanr-l at mumble.net>
 
 	* bridge.el Fix bug in bridge filter where a bridge message which


Index: slime/slime.el
diff -u slime/slime.el:1.538 slime/slime.el:1.539
--- slime/slime.el:1.538	Wed Sep  7 20:41:32 2005
+++ slime/slime.el	Fri Sep  9 19:10:18 2005
@@ -4500,18 +4500,19 @@
 region around the first element is used.
 Return nil if there's no useful source location."
   (let ((location (slime-note.location note)))
-    (destructure-case location
-      ((:error msg) )                       ; do nothing
-      ((:location file pos _hints)
-       (cond ((eq (car file) ':source-form) nil)
-             (t
-              (destructure-case pos
-                ((:position pos &optional alignp)
-                 (if (eq (slime-note.severity note) :read-error)
-                     (values pos (1+ pos))
-                   (slime-choose-overlay-for-sexp location)))
-                (t 
-                 (slime-choose-overlay-for-sexp location)))))))))
+    (when location 
+      (destructure-case location
+        ((:error msg) )                 ; do nothing
+        ((:location file pos _hints)
+         (cond ((eq (car file) ':source-form) nil)
+               (t
+                (destructure-case pos
+                  ((:position pos &optional alignp)
+                   (if (eq (slime-note.severity note) :read-error)
+                       (values pos (1+ pos))
+                     (slime-choose-overlay-for-sexp location)))
+                  (t 
+                   (slime-choose-overlay-for-sexp location))))))))))
           
 (defun slime-choose-overlay-for-sexp (location)
   (slime-goto-source-location location)