Index: /branches/ide-1.0/ccl/hemlock/src/doccoms.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/doccoms.lisp	(revision 6697)
+++ /branches/ide-1.0/ccl/hemlock/src/doccoms.lisp	(revision 6698)
@@ -107,5 +107,5 @@
 	  (print-command-bindings (command-bindings obj) s)
 	  (terpri s)
-	  (print-short-doc (command-documentation obj) s))))
+	  (print-doc (command-documentation obj) s))))
     (when vars
       (when coms (terpri s))
@@ -120,5 +120,5 @@
 		(prin1 (variable-value obj) s))
 	      (terpri s)
-	      (print-short-doc (variable-documentation obj) s))))))
+	      (print-doc (variable-documentation obj) s))))))
     (when attr
       (when (or coms vars) (terpri s))
@@ -127,16 +127,12 @@
 	(let ((obj (getstring att *character-attribute-names*)))
 	  (write-line att s)
-	  (print-short-doc (character-attribute-documentation obj) s))))))
-
-;;; PRINT-SHORT-DOC takes doc, a function or string, and gets it out on stream.
-;;; If doc is a string, this only outputs up to the first newline.  All output
-;;; is preceded by two spaces.
-;;;
-(defun print-short-doc (doc stream)
+	  (print-doc (character-attribute-documentation obj) s))))))
+
+;;; PRINT-DOC takes doc, a function or string, and gets it out on stream.
+
+(defun print-doc (doc stream)
   (let ((str (typecase doc
 	       (function (funcall doc :short))
-	       (simple-string
-		(let ((nl (position #\newline (the simple-string doc))))
-		  (subseq doc 0 (or nl (length doc)))))
+	       (simple-string doc)
 	       (t
 		(error "Bad documentation: ~S" doc)))))
@@ -371,5 +367,5 @@
 		     (t (write-line str s)
 			(write-string "   - " s)))
-	       (print-short-doc (command-documentation cmd) s))))
+	       (print-doc (command-documentation cmd) s))))
        :mode name))))