[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/buffer.c
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/src/buffer.c |
Date: |
Mon, 03 Mar 2003 14:06:49 -0500 |
Index: emacs/src/buffer.c
diff -c emacs/src/buffer.c:1.414 emacs/src/buffer.c:1.415
*** emacs/src/buffer.c:1.414 Mon Feb 24 21:24:53 2003
--- emacs/src/buffer.c Mon Mar 3 14:06:49 2003
***************
*** 150,155 ****
--- 150,156 ----
/* List of functions to call that can query about killing a buffer.
If any of these functions returns nil, we don't kill it. */
Lisp_Object Vkill_buffer_query_functions;
+ Lisp_Object Qkill_buffer_query_functions;
/* List of functions to call before changing an unmodified buffer. */
Lisp_Object Vfirst_change_hook;
***************
*** 1304,1321 ****
{
int count = SPECPDL_INDEX ();
Lisp_Object list;
record_unwind_protect (save_excursion_restore, save_excursion_save ());
set_buffer_internal (b);
/* First run the query functions; if any query is answered no,
don't kill the buffer. */
! for (list = Vkill_buffer_query_functions; CONSP (list); list = XCDR
(list))
! {
! tem = call0 (XCAR (list));
! if (NILP (tem))
! return unbind_to (count, Qnil);
! }
/* Then run the hooks. */
Frun_hooks (1, &Qkill_buffer_hook);
--- 1305,1320 ----
{
int count = SPECPDL_INDEX ();
Lisp_Object list;
+ Lisp_Object arglist[1];
record_unwind_protect (save_excursion_restore, save_excursion_save ());
set_buffer_internal (b);
/* First run the query functions; if any query is answered no,
don't kill the buffer. */
! arglist[0] = Qkill_buffer_query_functions;
! if (NILP (Frun_hook_with_args_until_failure (1, arglist)))
! return unbind_to (count, Qnil);
/* Then run the hooks. */
Frun_hooks (1, &Qkill_buffer_hook);
***************
*** 5150,5155 ****
--- 5149,5157 ----
Qafter_change_functions = intern ("after-change-functions");
staticpro (&Qafter_change_functions);
staticpro (&Qucs_set_table_for_input);
+
+ Qkill_buffer_query_functions = intern ("kill-buffer-query-functions");
+ staticpro (&Qkill_buffer_query_functions);
Fput (Qprotected_field, Qerror_conditions,
Fcons (Qprotected_field, Fcons (Qerror, Qnil)));
- [Emacs-diffs] Changes to emacs/src/buffer.c,
Richard M. Stallman <=