[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
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/ChangeLog	2011/11/08 08:15:34	1.2240
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/12 14:43:01	1.2241
@@ -1,3 +1,8 @@
+2011-11-11  Anton Kovalenko  <anton at sw4me.com>
+
+	* slime.el (slime-ed): add bytep argument to destructure-case.
+	When it's true, position is interpreted as byte offset.
+
 2011-11-08  Helmut Eller  <heller at common-lisp.net>
 
 	Restore old header format.
--- /project/slime/cvsroot/slime/slime.el	2011/11/08 08:15:34	1.1379
+++ /project/slime/cvsroot/slime/slime.el	2011/11/12 14:43:01	1.1380
@@ -4117,11 +4117,14 @@
     (select-frame slime-ed-frame))
   (when what
     (destructure-case what
-      ((:filename file &key line column position)
+      ((:filename file &key line column position bytep)
        (find-file (slime-from-lisp-filename file))
        (when line (slime-goto-line line))
        (when column (move-to-column column))
-       (when position (goto-char position)))
+       (when position
+         (goto-char (if bytep
+                        (byte-to-position position)
+                        position))))
       ((:function-name name)
        (slime-edit-definition name)))))