made truncated message be red italics

svn: r8060 original commit: 5840ec28b3d0facc5604163587b1ca3cd7b030ac
2007-12-19 04:25:53 +00:00 · 2007-12-19 04:25:53 +00:00 · 878223492b
commit 878223492b
parent 6bdb23bf75
1 changed files with 1 additions and 1 deletions
--- a/collects/help/search.ss
+++ b/collects/help/search.ss
@ -145,7 +145,7 @@
                 entries)))
        (if (<= (length entries) limit)
            '()
-            (list (italic (format "Search truncated after ~a hits." limit))))))]))
+            (list (make-element "schemeerror" (list (format "Search truncated after ~a hits." limit)))))))]))

 (define (limit-length n l)
  (cond