[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv23618

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-show-compilation-log): Insert two lines at
the beginning.  Emacs 21 seems to skip over those two.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/05 11:19:09	1.1635
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/05 15:54:10	1.1636
@@ -1,3 +1,8 @@
+2009-01-05  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-show-compilation-log): Insert two lines at
+	the beginning.  Emacs 21 seems to skip over those two.
+
 2009-01-05  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank-sbcl.lisp (function-arglist):
--- /project/slime/cvsroot/slime/slime.el	2009/01/04 20:54:00	1.1098
+++ /project/slime/cvsroot/slime/slime.el	2009/01/05 15:54:11	1.1099
@@ -2886,16 +2886,15 @@
     (slime-with-popup-buffer ("*SLIME Compilation*")
       (compilation-mode)
       (let ((inhibit-read-only t))
-        (insert (format "%d compiler notes:\n" (length notes)))
+        (insert (format "cd %s\n%d compiler notes:\n" 
+                        default-directory (length notes)))
         (dolist (note notes)
           (insert (format "%s%s:\n%s\n"
                           (slime-compilation-loc (slime-note.location note))
                           (substring (symbol-name (slime-note.severity note))
                                      1)
                           (slime-note.message note)))))
-      (unless compilation-scroll-output 
-        (goto-char (point-min)))
-      (setq next-error-last-buffer (current-buffer)))))
+      (goto-char (point-min)))))
 
 (defun slime-compilation-loc (location)
   (cond ((slime-location-p location)
@@ -2907,7 +2906,7 @@
                  (list (or (buffer-file-name) (buffer-name))
                        (slime-line-number-at-pos)
                        (1+ (current-column)))))
-           (format "%s:%d:%d:" (or filename "") line col)))
+           (format "%s:%d:%d: " (or filename "") line col)))
         (t "")))
 
 (defun slime-maybe-list-compiler-notes (notes)