[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-fancy-inspector.lisp 
Log Message:
* slime.el (slime-ed): add bytep argument to destructure-case.
When it's true, position is interpreted as byte offset.

* contrib/swank-fancy-inspector.lisp (make-pathname-ispec): Use :position
instead of :charpos, according to slime-ed interface. Add :bytep
t, telling slime-ed to interpret it as byte offset.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/11/12 12:01:52	1.504
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/11/12 14:43:02	1.505
@@ -10,6 +10,12 @@
 
 	* slime-cl-indent-test.txt: Tests 64 and 65.
 
+2011-11-11  Anton Kovalenko  <anton at sw4me.com>
+
+	* swank-fancy-inspector.lisp (make-pathname-ispec): Use :position
+	instead of :charpos, according to slime-ed interface. Add :bytep
+	t, telling slime-ed to interpret it as byte offset.
+
 2011-10-31  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* slime-cl-indent.el (common-lisp-run-indentation-tests): Make it
--- /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2010/12/09 19:55:57	1.30
+++ /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2011/11/12 14:43:02	1.31
@@ -828,7 +828,7 @@
     (:newline) "  "
     ,@(when position
         `((:action "[visit file and show current position]"
-                   ,(lambda () (ed-in-emacs `(,pathname :charpos ,position)))
+                   ,(lambda () (ed-in-emacs `(,pathname :position ,position :bytep t)))
                    :refreshp nil)
           (:newline)))))