The R Project SVN R

Rev

Rev 52804 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 52804 Rev 52814
Line 549... Line 549...
549 
		    /* Quote path if necessary */
 549 
		    /* Quote path if necessary */
550 
		    if(pager[0] != '"' && Rf_strchr(pager, ' '))
 550 
		    if(pager[0] != '"' && Rf_strchr(pager, ' '))
551 
			snprintf(buf, 1024, "\"%s\" \"%s\"", pager, file[i]);
 551 
			snprintf(buf, 1024, "\"%s\" \"%s\"", pager, file[i]);
552 
		    else
 552 
		    else
553 
			snprintf(buf, 1024, "%s \"%s\"", pager, file[i]);
 553 
			snprintf(buf, 1024, "%s \"%s\"", pager, file[i]);
554 
		    runcmd(buf, CE_NATIVE, 0, 1, "");
 554 
		    runcmd(buf, CE_NATIVE, 0, 1, NULL, NULL, NULL);
555 
		}
 555 
		}
556 
	    } else {
 556 
	    } else {
557 
		snprintf(buf, 1024,
 557 
		snprintf(buf, 1024,
558 
			 _("file.show(): file '%s' does not exist\n"),
 558 
			 _("file.show(): file '%s' does not exist\n"),
559 
			 file[i]);
 559 
			 file[i]);
Line 595... Line 595...
595 
		/* Quote path if necessary */
 595 
		/* Quote path if necessary */
596 
		if (editor[0] != '"' && Rf_strchr(editor, ' '))
 596 
		if (editor[0] != '"' && Rf_strchr(editor, ' '))
597 
		    snprintf(buf, 1024, "\"%s\" \"%s\"", editor, file[i]);
 597 
		    snprintf(buf, 1024, "\"%s\" \"%s\"", editor, file[i]);
598 
		else
 598 
		else
599 
		    snprintf(buf, 1024, "%s \"%s\"", editor, file[i]);
 599 
		    snprintf(buf, 1024, "%s \"%s\"", editor, file[i]);
600 
		runcmd(buf, CE_UTF8, 0, 1, "");
 600 
		runcmd(buf, CE_UTF8, 0, 1, NULL, NULL, NULL);
601 
	    }
 601 
	    }
602 
 
 602 
 
603 
	}
 603 
	}
604 
	return 0;
 604 
	return 0;
605 
    }
 605 
    }