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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-find-coding-system): Use check-coding-system only if it's
actually fbound.

Date: Mon Dec  5 21:19:40 2005
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.566 slime/slime.el:1.567
--- slime/slime.el:1.566	Tue Nov 22 21:42:19 2005
+++ slime/slime.el	Mon Dec  5 21:19:40 2005
@@ -1662,11 +1662,13 @@
 The result is either an element in `slime-net-valid-coding-systems'
 of nil."
   (let* ((probe (assq name slime-net-valid-coding-systems)))
-    (if (and probe (ignore-errors (check-coding-system (car probe))))
+    (if (and probe (if (fboundp 'check-coding-system)
+                       (ignore-errors (check-coding-system (car probe)))
+                     (eq (car probe) 'binary)))
         probe)))
 
 (defvar slime-net-coding-system
-  (find-if 'slime-find-coding-system
+  (find-if 'slime-find-coding-system 
            '(iso-latin-1-unix iso-8859-1-unix binary))
   "*Coding system used for network connections.
 See also `slime-net-valid-coding-systems'.")
@@ -4842,7 +4844,8 @@
        (slime-forward-sexp)
        (beginning-of-sexp)))
     ((:line start &optional end)
-     (goto-line start))
+     (goto-line start)
+     (skip-chars-forward " \t"))
     ((:function-name name)
      (let ((case-fold-search t)
            (name (regexp-quote name)))