mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Fix buffer-list-update-hook for indirect buffers

Browse Source 
Fmake_indirect_buffer can be told whether to run buffer hooks since
bug#49160, but until now it ran buffer-list-update-hook irrespective
of this.

* src/buffer.c (Fmake_indirect_buffer): Don't run
buffer-list-update-hook when called with a non-nil
INHIBIT-BUFFER-HOOKS argument.
(run_buffer_list_update_hook): Don't special-case NULL argument, as
no such callers remain.

* test/src/buffer-tests.el
(buffer-tests-inhibit-buffer-hooks-indirect): Test whether indirect
buffer hooks are run regardless of whether base buffer hooks are
inhibited.  Check that all three buffer hooks, not just
kill-buffer-query-functions, are inhibited.
This commit is contained in:
Basil L. Contovounesios 2023-01-11 16:34:07 +00:00
parent 9e7a5d58ee
commit bd094207c7
2 changed files with 31 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/buffer.c
View File

@ -525,14 +525,14 @@ get_truename_buffer (register Lisp_Object filename)
return Qnil;
}
/* Run buffer-list-update-hook if Vrun_hooks is non-nil, and BUF is NULL
or does not have buffer hooks inhibited. BUF is NULL when called by
make-indirect-buffer, since it does not inhibit buffer hooks. */
/* Run buffer-list-update-hook if Vrun_hooks is non-nil and BUF does
not have buffer hooks inhibited. */
static void
run_buffer_list_update_hook (struct buffer *buf)
{
if (! (NILP (Vrun_hooks) || (buf && buf->inhibit_buffer_hooks)))
eassert (buf);
if (! (NILP (Vrun_hooks) || buf->inhibit_buffer_hooks))
call1 (Vrun_hooks, Qbuffer_list_update_hook);
}
@ -907,7 +907,7 @@ does not run the hooks `kill-buffer-hook',
set_buffer_internal_1 (old_b);
}
run_buffer_list_update_hook (NULL);
run_buffer_list_update_hook (b);
return buf;
}

46
test/src/buffer-tests.el
View File

@ -8315,29 +8315,35 @@ dicta sunt, explicabo. "))
(remove-hook 'buffer-list-update-hook bluh))))
(ert-deftest buffer-tests-inhibit-buffer-hooks-indirect ()
"Indirect buffers do not call `get-buffer-create'."
(dolist (inhibit '(nil t))
(let ((base (get-buffer-create "foo" inhibit)))
"Test `make-indirect-buffer' argument INHIBIT-BUFFER-HOOKS."
(let* ( base run-bluh run-kbh run-kbqf
(bluh (lambda () (setq run-bluh t)))
(kbh (lambda () (setq run-kbh t)))
(kbqf (lambda () (setq run-kbqf t))))
(dolist (inhibit-base '(nil t))
(unwind-protect
(dotimes (_i 11)
(let* (flag*
(flag (lambda () (prog1 t (setq flag* t))))
(indirect (make-indirect-buffer base "foo[indirect]" nil
inhibit)))
(unwind-protect
(progn
(with-current-buffer indirect
(add-hook 'kill-buffer-query-functions flag nil t))
(kill-buffer indirect)
(if inhibit
(should-not flag*)
(should flag*)))
(let (kill-buffer-query-functions)
(let (indirect)
(setq base (generate-new-buffer " base" inhibit-base))
(dolist (inhibit-indirect '(nil t))
(dotimes (_ 11)
(unwind-protect
(let ((name (generate-new-buffer-name " indirect")))
(setq run-bluh nil run-kbh nil run-kbqf nil)
(add-hook 'buffer-list-update-hook bluh)
(with-current-buffer
(setq indirect (make-indirect-buffer
base name nil inhibit-indirect))
(add-hook 'kill-buffer-hook kbh nil t)
(add-hook 'kill-buffer-query-functions kbqf nil t)
(kill-buffer))
(should (xor inhibit-indirect run-bluh))
(should (xor inhibit-indirect run-kbh))
(should (xor inhibit-indirect run-kbqf)))
(remove-hook 'buffer-list-update-hook bluh)
(when (buffer-live-p indirect)
(kill-buffer indirect))))))
(let (kill-buffer-query-functions)
(when (buffer-live-p base)
(kill-buffer base)))))))
(when (buffer-live-p base)
(kill-buffer base))))))
(ert-deftest zero-length-overlays-and-not ()
(with-temp-buffer