[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:

* slime.el (make-slime-buffer-location): New.
  (make-slime-file-location): New.


--- /project/slime/cvsroot/slime/slime.el	2008/07/29 11:03:31	1.952
+++ /project/slime/cvsroot/slime/slime.el	2008/07/31 08:31:30	1.953
@@ -5084,6 +5084,13 @@
 (defun slime-xref-has-location-p (xref)
   (slime-location-p (slime-xref.location xref)))
 
+(defun make-slime-buffer-location (buffer-name position &optional hints)
+  `(:location (:buffer ,buffer-name) (:position ,position)
+              ,(if hints `(:hints ,hints) `(:hints))))
+
+(defun make-slime-file-location (file-name position &optional hints)
+  `(:location (:file ,file-name) (:position ,position)
+              ,(if hints `(:hints ,hints) `(:hints))))
 
 ;;; The hooks are tried in order until one succeeds, otherwise the
 ;;; default implementation involving `slime-find-definitions-function'
--- /project/slime/cvsroot/slime/ChangeLog	2008/07/29 11:03:31	1.1378
+++ /project/slime/cvsroot/slime/ChangeLog	2008/07/31 08:31:32	1.1379
@@ -1,3 +1,8 @@
+2008-07-27  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el (make-slime-buffer-location): New.
+	(make-slime-file-location): New.
+
 2008-07-29  Richard M Kreuter <kreuter at progn.net>
 
 	Environment variables for Lisp process.