noquote fixes

git-svn-id: https://svn.r-project.org/R/trunk@10392 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · Aug 23, 2000 · 1375c47 · 1375c47
1 parent c1158ba
commit 1375c47
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/NEWS b/NEWS
@@ -157,6 +157,7 @@ BUG FIXES
     o	Internal function fprec was overflowing for numbers around
         1e-305.
 
+    o	print.noquote("ABC") now works.
 
 
 	**************************************************

diff --git a/src/library/base/R/print.R b/src/library/base/R/print.R
@@ -34,14 +34,15 @@ as.matrix.noquote <- function(x) noquote(NextMethod("as.matrix", x))
     attr <- attributes(x)
     r <- unclass(x)[...]
     attributes(r) <- c(attributes(r),
-		       attr[is.na(match(names(attr),c("dim","dimnames")))])
+		       attr[is.na(match(names(attr),
+                                        c("dim","dimnames","names")))])
     r
 }
 
-print.noquote <- function(obj,...) {
-    if(!is.null(cl <- class(obj)))
-	class(obj) <- cl[cl != "noquote"]
-    NextMethod("print", obj, quote = FALSE, ...)
+print.noquote <- function(x, ...) {
+    if(!is.null(cl <- class(x)))
+	class(x) <- cl[cl != "noquote"]
+    print(x, quote = FALSE, ...)
 }
 
 ## for alias: