Changeset 6698

Timestamp:

Jun 12, 2007, 12:38:45 PM (17 years ago)

Author:

Gary Byers

Message:

PRINT-SHORT-DOC was a bad

File:

• branches/ide-1.0/ccl/hemlock/src/doccoms.lisp (modified) (4 diffs)

branches/ide-1.0/ccl/hemlock/src/doccoms.lisp

@@ -107 +107 @@
           (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 +120 @@
                 (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 +127 @@
         (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 +367 @@
                      (t (write-line str s)
                         (write-string "   - " s)))
-               (print-short-doc (command-documentation cmd) s))))
+               (print-doc (command-documentation cmd) s))))
        :mode name))))