Tweaks for c87801.

git-svn-id: https://svn.r-project.org/R/trunk@87959 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: hornik

src/library/utils/R/aspell.R

@@ -1285,7 +1285,7 @@ function(x, vrbs = c("verbatim", "verbatim*", "Sinput", "Soutput"),
 
     recurse <- function(e) {
         tag <- ltxtag(e)
-        if((tag == "VERB") ||
+        if((tag == "VERB") || (tag == "DEFINITION") ||
            ((tag == "ENVIRONMENT") && e[[1L]] %in% envs))
             ranges <<- c(ranges, list(chrran(e)))
         else if(is.list(e)) {