add attribute value for internal links

svn: r17020
2009-11-24 02:17:53 +00:00 · 2009-11-24 02:17:53 +00:00 · 37a1ada7a2
commit 37a1ada7a2
parent dcf2991736
1 changed files with 1 additions and 1 deletions
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@ -43,7 +43,7 @@
               ,@(map (lambda (x) (if (string? x) x (format "~a" x))) body)
               "\n"))))

-(define (extra-internal-attribs) null)
+(define (extra-internal-attribs) '([pltdoc "x"]))

 (define-runtime-path scribble-css "scribble.css")
 (define-runtime-path scribble-style-css "scribble-style.css")