view lib-src/leditcfns.c @ 34045:546a32ec3540

(ps-end-job): Bind case-fold-search only after switching to ps-spool-buffer. Line number font customization. PostScript: Lines and PageCount are initialized on each page. Doc Fix. (ps-print-version): New version number (6.3.2). (ps-lpr-switches, ps-font-info-database, ps-font-size) (ps-header-font-size, ps-header-title-font-size, ps-left-header) (ps-right-header): Customization fix. (ps-setup, ps-select-font, ps-begin-file, ps-header-sheet, ps-end-job): Fix code. (ps-end-with-control-d, ps-line-number-font, ps-line-number-font-size): New vars.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 30 Nov 2000 13:20:49 +0000
parents da530eb93c1a
children 695cf19ef79e
line wrap: on
line source

#include <sgtty.h>
#include <signal.h>
#define STRLEN 100
static char str[STRLEN+1] = "%?emacs"; /* extra char for the null */

switch_to_proc(){
    char *ptr = str;
    while (*ptr) ioctl(0, TIOCSTI, ptr++);
    ioctl(0, TIOCSTI, "\n");
    kill(getpid(), SIGTSTP);
    }

set_proc_str(ptr) char *ptr; {
    if (strlen(ptr) <= STRLEN)
	strcpy(str, ptr);
    else
	printf("string too long for set-proc-str: %s\n", ptr);
    }