[slime-cvs] CVS slime

[alendvai]

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

Modified Files:
	slime.el 
Log Message:
FIX: older Emacsen have no line-number-at-pos


--- /project/slime/cvsroot/slime/slime.el	2007/01/03 11:04:54	1.731
+++ /project/slime/cvsroot/slime/slime.el	2007/01/03 11:07:23	1.732
@@ -9241,9 +9241,11 @@
   ;; narrowed the buffer.
   (save-restriction
     (widen)
-    (cons (if (fboundp 'line-number)
-              (line-number)             ; XEmacs
-            (line-number-at-pos))       ; Emacs
+    (cons (cond ((fboundp 'line-number)
+                 (line-number))         ; XEmacs
+                ((fboundp 'line-number-at-pos)
+                 (line-number-at-pos))  ; Recent GNU Emacs
+                (t (1+ (count-lines 1 (point-at-bol)))))
           (current-column))))
 
 (defun slime-inspector-operate-on-point ()