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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(make-compiler-note): Don't send the short-message across the wire if
the slot is nil.
Date: Tue Feb 17 16:54:25 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.210 slime/slime.el:1.211
--- slime/slime.el:1.210	Tue Feb 17 16:47:03 2004
+++ slime/slime.el	Tue Feb 17 16:54:25 2004
@@ -2422,7 +2422,8 @@
   (plist-get note :message))
 
 (defun slime-note.short-message (note)
-  (plist-get note :short-message))
+  (or (plist-get note :short-message)
+      (plist-get note :message)))
 
 (defun slime-note.location (note)
   (plist-get note :location))