3331 |
|
|
3332 |
DEFVAR_LISP ("quit-flag", &Vquit_flag, |
DEFVAR_LISP ("quit-flag", &Vquit_flag, |
3333 |
doc: /* Non-nil causes `eval' to abort, unless `inhibit-quit' is non-nil. |
doc: /* Non-nil causes `eval' to abort, unless `inhibit-quit' is non-nil. |
3334 |
Typing C-g sets `quit-flag' non-nil, regardless of `inhibit-quit'. */); |
If the value is t, that means do an ordinary quit. |
3335 |
|
If the value equals `throw-on-input', that means quit by throwing |
3336 |
|
to the tag specified in `throw-on-input'; it's for handling `while-no-input'. |
3337 |
|
Typing C-g sets `quit-flag' to t, regardless of `inhibit-quit', |
3338 |
|
but `inhibit-quit' non-nil prevents anything from taking notice of that. */); |
3339 |
Vquit_flag = Qnil; |
Vquit_flag = Qnil; |
3340 |
|
|
3341 |
DEFVAR_LISP ("inhibit-quit", &Vinhibit_quit, |
DEFVAR_LISP ("inhibit-quit", &Vinhibit_quit, |