From 60950cbc6db8a4984191b04f6e00bb8ef284930a Mon Sep 17 00:00:00 2001
From: hornik <hornik@00db46b3-68df-0310-9c12-caf00c1e9a41>
Date: Sun, 20 Aug 2023 20:38:15 +0000
Subject: [PATCH] Tweaks.

git-svn-id: https://svn.r-project.org/R/trunk@84995 00db46b3-68df-0310-9c12-caf00c1e9a41
---
 src/library/tools/R/Rd2HTML.R | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/library/tools/R/Rd2HTML.R b/src/library/tools/R/Rd2HTML.R
index 2a82a9ed201..6f8294603ab 100644
--- 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)