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

[Alan Ruttenberg]

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

Modified Files:
	slime.el 
Log Message:

Date: Tue May 24 21:08:52 2005
Author: aruttenberg

Index: slime/slime.el
diff -u slime/slime.el:1.499 slime/slime.el:1.500
--- slime/slime.el:1.499	Tue May 24 09:07:12 2005
+++ slime/slime.el	Tue May 24 21:08:52 2005
@@ -2544,10 +2544,11 @@
 ;; FIXME: This conditional is not right - just used because the code
 ;; here does not work in XEmacs.
 (when slime-repl-enable-presentations
-  (pushnew '(slime-repl-old-output . t) text-property-default-nonsticky
-           :test 'equal)
-  (pushnew '(slime-repl-result-face . t) text-property-default-nonsticky
-           :test 'equal))
+  (when (boundp 'text-property-default-nonsticky)
+    (pushnew '(slime-repl-old-output . t) text-property-default-nonsticky
+             :test 'equal)
+    (pushnew '(slime-repl-result-face . t) text-property-default-nonsticky
+             :test 'equal)))
 
 (make-variable-buffer-local
  (defvar slime-presentation-start-to-point (make-hash-table)))