checkDocFiles() for unaliased usages also in <pkg>-deprecated overviews

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

doc/NEWS.Rd

@@ -277,8 +277,8 @@
       Strings markaed as \code{"bytes"} now give a warning rather than a
       NOTE.  These are better supplied as raw vectors.
 
-      \item \code{tools::checkDocFiles()} now also notes \emph{nullary}
-      functions shown in the usage section without corresponding \verb{\alias}.
+      \item \code{tools::checkDocFiles()} notes more cases of
+      usage documentation without corresponding \verb{\alias}.
     }
   }
 

src/library/tools/R/QC.R

@@ -1526,12 +1526,12 @@ function(package, dir, lib.loc = NULL, chkInternal = NULL)
         }
 
         ## Also test whether the objects we found from the \usage all
-        ## have aliases, provided no alias ends in '-deprecated'.
+        ## have aliases, provided not all aliases end in '-deprecated'.
         ## This exception allows packages to keep the original help page of a
         ## deprecated function at help("<fun>-deprecated") (see ?deprecated)
         ## and alias <fun> to help("<pkg>-deprecated").
         functions_not_in_aliases <-
-            if(!any(endsWith(aliases, "-deprecated"))) {
+            if(!all(endsWith(aliases, "-deprecated"))) {
                 ## Argh.  There are good reasons for keeping \S4method{}{}
                 ## as is, but of course this is not what the aliases use ...
                 ## <FIXME>