mirror of
https://github.com/rfivet/uemacs.git
synced 2024-10-01 17:55:55 -04:00
Retest gflags and limit implementation details to eval.
This commit is contained in:
parent
f8c405f501
commit
a634ae5087
11
eval.c
11
eval.c
@ -55,7 +55,16 @@ static int gettyp( char *token) ;
|
|||||||
char outline[ NSTRING] ; /* global string to hold debug line text */
|
char outline[ NSTRING] ; /* global string to hold debug line text */
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
int gflags = GFREAD ; /* global control flag */
|
/* Emacs global flag bit definitions (for gflags). */
|
||||||
|
/* if GFREAD is set, current buffer will be set on first file (read in) */
|
||||||
|
#define GFREAD 1
|
||||||
|
|
||||||
|
static int gflags = GFREAD ; /* global control flag */
|
||||||
|
|
||||||
|
int readfirst_f( void) {
|
||||||
|
return GFREAD == (gflags & GFREAD) ;
|
||||||
|
}
|
||||||
|
|
||||||
int macbug = FALSE ; /* macro debuging flag */
|
int macbug = FALSE ; /* macro debuging flag */
|
||||||
int cmdstatus = TRUE ; /* last command status */
|
int cmdstatus = TRUE ; /* last command status */
|
||||||
int flickcode = FALSE ; /* do flicker supression? */
|
int flickcode = FALSE ; /* do flicker supression? */
|
||||||
|
7
eval.h
7
eval.h
@ -10,18 +10,13 @@
|
|||||||
extern char outline[] ; /* Global string to hold debug line text. */
|
extern char outline[] ; /* Global string to hold debug line text. */
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
/* Emacs global flag bit definitions (for gflags). */
|
|
||||||
|
|
||||||
#define GFREAD 1
|
|
||||||
|
|
||||||
extern int gflags ; /* global control flag */
|
|
||||||
extern int macbug ; /* macro debuging flag */
|
extern int macbug ; /* macro debuging flag */
|
||||||
extern int cmdstatus ; /* last command status */
|
extern int cmdstatus ; /* last command status */
|
||||||
extern int flickcode ; /* do flicker supression? */
|
extern int flickcode ; /* do flicker supression? */
|
||||||
extern int rval ; /* return value of a subprocess */
|
extern int rval ; /* return value of a subprocess */
|
||||||
extern long envram ; /* # of bytes current in use by malloc */
|
extern long envram ; /* # of bytes current in use by malloc */
|
||||||
|
|
||||||
|
int readfirst_f( void) ;
|
||||||
int is_it_cmd( char *token) ;
|
int is_it_cmd( char *token) ;
|
||||||
|
|
||||||
void varinit( void) ;
|
void varinit( void) ;
|
||||||
|
2
main.c
2
main.c
@ -318,7 +318,7 @@ int main(int argc, char **argv)
|
|||||||
|
|
||||||
/* if there are any files to read, read the first one! */
|
/* if there are any files to read, read the first one! */
|
||||||
bp = bfind("main", FALSE, 0);
|
bp = bfind("main", FALSE, 0);
|
||||||
if (firstfile == FALSE && (gflags & GFREAD)) {
|
if (firstfile == FALSE && readfirst_f()) {
|
||||||
swbuffer(firstbp);
|
swbuffer(firstbp);
|
||||||
zotbuf(bp);
|
zotbuf(bp);
|
||||||
} else
|
} else
|
||||||
|
Loading…
Reference in New Issue
Block a user