From f8fee15578ee7233bca3fc81573efd450988b405 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 2 Jun 2008 13:45:12 +0000
Subject: [PATCH] add method-of information

svn: r10087
---
 collects/scribblings/main/private/make-search.ss | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/collects/scribblings/main/private/make-search.ss b/collects/scribblings/main/private/make-search.ss
index 72a237ac1a..211953f4ce 100644
--- a/collects/scribblings/main/private/make-search.ss
+++ b/collects/scribblings/main/private/make-search.ss
@@ -71,6 +71,16 @@
       (define text (string-downcase (string-join texts " ")))
       (define-values (href html)
         (let* ([e (add-between elts ", ")]
+               ;; !!HACK!! The index entry for methods should have the extra
+               ;; text in it (when it does, this should go away)
+               [e (if (method-index-desc? desc)
+                    `(,@e ,(make-element "smaller"
+                             `(" (method of "
+                               ,(make-element "schemevariable"
+                                  (list (symbol->string
+                                         (exported-index-desc-name desc))))
+                               ")")))
+                    e)]
                [e (make-link-element "indexlink" e tag)]
                [e (send renderer render-element e sec ri)])
           (match e ; should always render to a single `a'