4425 |
old_buffer = current_buffer; |
old_buffer = current_buffer; |
4426 |
set_buffer_internal_1 (XBUFFER (buffer)); |
set_buffer_internal_1 (XBUFFER (buffer)); |
4427 |
current_buffer->truncate_lines = Qnil; |
current_buffer->truncate_lines = Qnil; |
4428 |
|
specbind (Qinhibit_read_only, Qt); |
4429 |
|
specbind (Qinhibit_modification_hooks, Qt); |
4430 |
Ferase_buffer (); |
Ferase_buffer (); |
4431 |
Finsert (1, &text); |
Finsert (1, &text); |
4432 |
set_buffer_internal_1 (old_buffer); |
set_buffer_internal_1 (old_buffer); |
5479 |
#endif /* USE_X_TOOLKIT */ |
#endif /* USE_X_TOOLKIT */ |
5480 |
|
|
5481 |
#ifdef USE_GTK |
#ifdef USE_GTK |
5482 |
|
/* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it |
5483 |
|
is not an X toolkit in that sense (USE_X_TOOLKIT is not defined). |
5484 |
|
But for a user it is a toolkit for X, and indeed, configure |
5485 |
|
accepts --with-x-toolkit=gtk. */ |
5486 |
|
Fprovide (intern ("x-toolkit"), Qnil); |
5487 |
Fprovide (intern ("gtk"), Qnil); |
Fprovide (intern ("gtk"), Qnil); |
5488 |
|
|
5489 |
DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string, |
DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string, |