[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
	* slime.el (slime-display-warning): Add `warning' as warning type.
	(slime-show-note-counts): If compilation failed, fontify the
	message in red to be more visibly apparant.


--- /project/slime/cvsroot/slime/slime.el	2009/05/11 08:03:39	1.1165
+++ /project/slime/cvsroot/slime/slime.el	2009/05/12 17:24:49	1.1166
@@ -734,7 +734,7 @@
   (apply slime-message-function format args))
 
 (defun slime-display-warning (message &rest args)
-  (display-warning 'slime (apply #'format message args)))
+  (display-warning '(slime warning) (apply #'format message args)))
 
 (when (or (featurep 'xemacs))
   (setq slime-message-function 'slime-format-display-message))
@@ -2727,8 +2727,11 @@
         (:warning             (incf nwarnings))
         (:style-warning       (incf nstyle-warnings))
         (:note                (incf nnotes))))
-    (message "Compilation %s:%s%s%s%s%s"
-             (if successp "finished" "failed")
+    (message "%s:%s%s%s%s%s"
+             (if successp 
+                 "Compilation finished" 
+                 (slime-add-face '(:foreground "Red")
+                   "Compilation failed"))
              (slime-note-count-string "error" nerrors)
              (slime-note-count-string "warning" nwarnings)
              (slime-note-count-string "style-warning" nstyle-warnings t)
@@ -5205,6 +5208,8 @@
   (add-text-properties 0 (length string) (list 'face face) string)
   string)
 
+(put 'slime-add-face 'lisp-indent-function 1)
+
 
 ;;;;; sldb-mode
 
--- /project/slime/cvsroot/slime/ChangeLog	2009/05/11 08:03:39	1.1743
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/12 17:24:49	1.1744
@@ -1,3 +1,9 @@
+2009-05-12  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el (slime-display-warning): Add `warning' as warning type.
+	(slime-show-note-counts): If compilation failed, fontify the
+	message in red to be more visibly apparant.
+
 2009-05-11  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	(slime-eval-feature-expression): Guard for more erroneous