Tweaks.

git-svn-id: https://svn.r-project.org/R/trunk@84995 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Aug 20, 2023 · 60950cb · 60950cb
1 parent a7f313d
commit 60950cb
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/library/tools/R/Rd2HTML.R b/src/library/tools/R/Rd2HTML.R
@@ -928,10 +928,9 @@ Rd2HTML <-
                     ## Argh.  Quite a few packages put the items in
                     ## their value section inside \code.
                     if(identical(RdTags(block[[1L]])[1L], "\\code")) {
-                        writeContent(block[[1L]], tag)
-                    } else {
-                        writeItemAsCode(blocktag, block[[1L]])
+                        attr(block[[1L]][[1L]], "Rd_tag") <- "Rd"
                     }
+                    writeItemAsCode(blocktag, block[[1L]])
     		    of1('</td>\n<td>\n')
     		    inPara <<- FALSE
     		    writeContent(block[[2L]], tag)