[slime-cvs] CVS slime/contrib

[heller]

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

Modified Files:
	ChangeLog slime-references.el 
Log Message:
Minor beautifications.

* slime.el (slime-sbcl-manual-root): Move definition to
contrib/slime-references.el.

* contrib/slime-references.el (sldb-maybe-insert-references): Insert
  newlines differently.



--- /project/slime/cvsroot/slime/contrib/ChangeLog	2007/09/10 20:09:52	1.41
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2007/09/10 21:38:35	1.42
@@ -5,7 +5,8 @@
 	* slime-references.el (sldb-reference-face): Add missing quote.
 	(sldb-reference-properties): We are lucky and can use keywords
 	instead of strings.
-
+	(sldb-maybe-insert-references): Insert newlines differently.
+	
 2007-09-10  Helmut Eller  <heller at common-lisp.net>
 
 	Move SBCL doc references to contrib.
--- /project/slime/cvsroot/slime/contrib/slime-references.el	2007/09/10 20:09:52	1.2
+++ /project/slime/cvsroot/slime/contrib/slime-references.el	2007/09/10 21:38:35	1.3
@@ -7,6 +7,11 @@
 ;;
 ;;;
 
+(defcustom slime-sbcl-manual-root "http://www.sbcl.org/manual/"
+  "*The base URL of the SBCL manual, for documentation lookup."
+  :type 'string
+  :group 'slime-mode)
+
 (defface sldb-reference-face 
   (list (list t '(:underline t)))
   "Face for references."
@@ -44,19 +49,18 @@
           (when (cdr refs)
             (terpri (current-buffer))))))
 
-
 
 ;;;;; SLDB references (rather SBCL specific)
 
 (defun sldb-insert-references (references)
   "Insert documentation references from a condition.
 See SWANK-BACKEND:CONDITION-REFERENCES for the datatype."
-  (loop for ref in references do
-        (destructuring-bind (where type what) ref
-          (insert (sldb-format-reference-source where) ", ")
-          (slime-insert-propertized (sldb-reference-properties ref)
-                                    (sldb-format-reference-node what))
-          (insert (format " [%s]" type) "\n"))))
+  (dolist (ref references)
+    (destructuring-bind (where type what) ref
+      (insert "\n" (sldb-format-reference-source where) ", ")
+      (slime-insert-propertized (sldb-reference-properties ref)
+				(sldb-format-reference-node what))
+      (insert (format " [%s]" type)))))
 
 (defun sldb-reference-properties (reference)
   "Return the properties for a reference.
@@ -84,7 +88,7 @@
 
 (defun sldb-format-reference-node (what)
   (if (listp what)
-      (mapconcat (lambda (x) (format "%s" x)) what ".")
+      (mapconcat #'prin1-to-string what ".")
     what))
 
 (defun sldb-lookup-reference ()
@@ -111,10 +115,9 @@
   (destructure-case extra
     ((:references references)
      (when references
-       (insert "See also:\n")
+       (insert "\nSee also:")
        (slime-with-rigid-indentation 2
-	 (sldb-insert-references references))
-       (insert "\n"))
+	 (sldb-insert-references references)))
      t)
     (t nil)))