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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-message): Use slime-typeout-frame if available.

Date: Sun Oct 17 22:05:42 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.409 slime/slime.el:1.410
--- slime/slime.el:1.409	Sun Oct 17 19:59:46 2004
+++ slime/slime.el	Sun Oct 17 22:05:41 2004
@@ -103,7 +103,7 @@
 ;;;;; slime-ui
 
 (defgroup slime-ui nil
-  "Interfaction with the Superior Lisp Environment."
+  "Interaction with the Superior Lisp Environment."
   :prefix "slime-"
   :group 'slime)
 
@@ -911,16 +911,13 @@
 ;; Interface
 (defun slime-message (format &rest args)
   "Like `message' but with special support for multi-line messages.
-Single-line messages use the echo area.
-
-Multi-line messages will use the echo area only in GNU Emacs 21.  In
-other Emacsen they use the \"typeout frame\" if it is active,
-otherwise a temporary window that is automatically dismissed before
-the next command."
-  (if (or (featurep 'xemacs)
-          (= emacs-major-version 20))
-      (slime-display-message (apply #'format format args) "*SLIME Note*")
-    (apply 'message format args)))
+Single-line messages use the echo area."
+  (if (slime-typeout-active-p)
+      (apply #'slime-typeout-message format args)
+    (if (or (featurep 'xemacs)
+            (= emacs-major-version 20))
+        (slime-display-message (apply #'format format args) "*SLIME Note*")
+      (apply 'message format args))))
 
 (defun slime-display-message (message buffer-name) 
   "Display MESSAGE in the echo area or in BUFFER-NAME.