[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv2117

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-eol-conversion-fixup): Return 0 (not nil) for
anyting other than CRLF conventions.

--- /project/slime/cvsroot/slime/ChangeLog	2008/09/21 11:17:49	1.1535
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/21 11:18:00	1.1536
@@ -1,5 +1,10 @@
 2008-09-21  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-eol-conversion-fixup): Return 0 (not nil) for
+	anyting other than CRLF conventions.
+
+2008-09-21  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-openmcl.lisp: Try to remove the first few internal frames
 	from backtraces.
 	(guess-stack-top): New function.
--- /project/slime/cvsroot/slime/slime.el	2008/09/20 21:46:30	1.1036
+++ /project/slime/cvsroot/slime/slime.el	2008/09/21 11:18:00	1.1037
@@ -4667,14 +4667,15 @@
   ;; moving N chars forward.  N is the number of chars but \r\n are
   ;; counted as 2 separate chars.
   (case (coding-system-eol-type buffer-file-coding-system)
-    ((0 2) 0)
     ((1) 
      (save-excursion 
        (do ((pos (+ (point) n))
             (count 0 (1+ count)))
            ((>= (point) pos) (1- count))
          (forward-line)
-         (decf pos))))))
+         (decf pos))))
+    (t 0)))
+
 
 (defun slime-search-method-location (name specializers qualifiers)
   ;; Look for a sequence of words (def<something> method name