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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-merge-notes, slime-tree-for-note): Use the short note message
for annotation in the source buffer and the long message in the tree
widget.  Used to be the other way around.

(sldb-insert-frames): Set the `start-open' property for XEmacs.
Without `start-open', the `point-entered' property is inherited when
we insert something before the "--more--".  Reported by Sundar
Narasimhan.



Date: Fri Aug 13 08:09:55 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.388 slime/slime.el:1.389
--- slime/slime.el:1.388	Thu Aug  5 08:18:32 2004
+++ slime/slime.el	Fri Aug 13 08:09:55 2004
@@ -3204,7 +3204,7 @@
   "Merge NOTES together. Keep the highest severity, concatenate the messages."
   (let* ((new-severity (reduce #'slime-most-severe notes
                                :key #'slime-note.severity))
-         (new-message (mapconcat #'slime-note.message notes "\n"))
+         (new-message (mapconcat #'slime-note.short-message notes "\n"))
          (new-references (reduce #'append notes :key #'slime-note.references)))
     (let ((new-note (copy-list (car notes))))
       (setf (getf new-note :message) new-message)
@@ -3312,7 +3312,7 @@
     (:style-warning "Style Warnings")))
 
 (defun slime-tree-for-note (note)
-  (make-slime-tree :item (slime-note.short-message note)
+  (make-slime-tree :item (slime-note.message note)
                    :plist (list 'note note)))
 
 (defun slime-tree-for-severity (severity notes collapsed-p)
@@ -5784,6 +5784,7 @@
                 `(sldb-default-action 
                   sldb-fetch-more-frames
                   point-entered sldb-fetch-more-frames
+                  start-open t
                   sldb-previous-frame-number ,number)
                 (in-sldb-face section " --more--\n"))))))))