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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-net-coding-system): Even more fixes to make it with mule-XEmacs.
Date: Thu Apr  7 12:00:13 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.480 slime/slime.el:1.481
--- slime/slime.el:1.480	Thu Apr  7 08:54:42 2005
+++ slime/slime.el	Thu Apr  7 12:00:12 2005
@@ -1489,9 +1489,11 @@
 The functions are called with the process as their argument.")
 
 (defvar slime-net-coding-system
-  (find-if (cond ((fboundp 'coding-system-p) #'coding-system-p)
-                 ((fboundp 'find-coding-system) #'find-coding-system)
-                 (t (lambda (x) (eq x 'binary))))
+  (find-if (cond ((featurep 'xemacs)
+                  (if (fboundp 'find-coding-system) 
+                      #'find-coding-system
+                    (lambda (x) (eq x 'binary))))
+                 (t #'coding-system-p))
            '(iso-latin-1-unix iso-8859-1-unix binary))
   "*Coding system used for network connections.
 See also `slime-net-valid-coding-systems'.")