mirror of
https://github.com/rfivet/uemacs.git
synced 2024-12-18 15:26:23 -05:00
In order to support # as comment indicator, buffer content prefix is changed to '='. #buffername becomes =buffername.
This commit is contained in:
parent
6b3061cedb
commit
1ab601071e
16
eval.c
16
eval.c
@ -1117,15 +1117,9 @@ static int gettyp( char *token) {
|
|||||||
/* grab the first char (this is all we need) */
|
/* grab the first char (this is all we need) */
|
||||||
c = *token;
|
c = *token;
|
||||||
|
|
||||||
/* no blanks!!! */
|
|
||||||
if (c == 0)
|
|
||||||
return TKNUL;
|
|
||||||
|
|
||||||
/* a numeric literal? */
|
|
||||||
if( (c >= '0' && c <= '9') || c == '-')
|
|
||||||
return TKLIT;
|
|
||||||
|
|
||||||
switch (c) {
|
switch (c) {
|
||||||
|
case 0: /* no blanks!!! */
|
||||||
|
return TKNUL ;
|
||||||
case '"':
|
case '"':
|
||||||
return TKSTR;
|
return TKSTR;
|
||||||
|
|
||||||
@ -1133,7 +1127,7 @@ static int gettyp( char *token) {
|
|||||||
return TKDIR;
|
return TKDIR;
|
||||||
case '@':
|
case '@':
|
||||||
return TKARG;
|
return TKARG;
|
||||||
case '#':
|
case '=':
|
||||||
return TKBUF;
|
return TKBUF;
|
||||||
case '$':
|
case '$':
|
||||||
return TKENV;
|
return TKENV;
|
||||||
@ -1145,6 +1139,10 @@ static int gettyp( char *token) {
|
|||||||
return TKLBL;
|
return TKLBL;
|
||||||
|
|
||||||
default:
|
default:
|
||||||
|
/* a numeric literal? */
|
||||||
|
if( (c >= '0' && c <= '9') || c == '-')
|
||||||
|
return TKLIT;
|
||||||
|
else
|
||||||
return TKCMD;
|
return TKCMD;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user