made truncated message be red italics

svn: r8060
2007-12-19 04:25:53 +00:00 · 2007-12-19 04:25:53 +00:00 · 5840ec28b3
commit 5840ec28b3
parent 3500ef305c
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