[elpa] externals/ess d04583e1d8 3/3: .ess.help -- so warnPartialMatchArgs does *not* warn here

[ELPA Syncer]

branch: externals/ess
commit d04583e1d87f01a57b4180f1124cc69720547740
Author: Martin Maechler <maechler@r-project.org>
Commit: Martin Maechler <maechler@r-project.org>

    .ess.help -- so warnPartialMatchArgs does *not* warn here
---
 etc/ESSR/R/.basic.R | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/etc/ESSR/R/.basic.R b/etc/ESSR/R/.basic.R
index bae7026165..e645c930ed 100644
--- a/etc/ESSR/R/.basic.R
+++ b/etc/ESSR/R/.basic.R
@@ -32,15 +32,18 @@
     ##   utils:::print.help_files_with_topic (used internally when there's
     ##   more than one a package) uses the quoted call
     ##   MM: don't understand; more specifically?
-    .ess.help <- function(...) {
+    ..help <- function(...) {
         do.call(get("help", envir = .GlobalEnv), list(...))
     }
 
     if (.ess.Rversion > "2.10") {
         ## Abbreviating help_type to avoid underscore
-        .ess.help(..., help = help.type)
+        if(!is.null(getOption("warnPartialMatchArgs"))) {
+            op <- options(warnPartialMatchArgs = FALSE); on.exit(options(op))
+        }
+        ..help(..., help = help.type)
     } else {
-        .ess.help(..., htmlhelp = help.type == "html")
+        ..help(..., htmlhelp = help.type == "html")
     }
 }