From 91cee4c5a72fb0fba5513d2fcab0d2596bfba684 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Barra=20=C3=93=20Cath=C3=A1in?= Date: Mon, 7 Oct 2024 00:16:23 +0100 Subject: [PATCH] Fix buffer-to-register add-hook. * lisp/register.el (buffer-to-register): Add with-current-buffer so add-hook correctly refers to buffer when given argument. --- lisp/register.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/register.el b/lisp/register.el index 1b4281ae4ec..d9dbc3ab186 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -728,8 +728,10 @@ buffer-to-register (current-buffer) (read-buffer "Buffer: ")) (register-read-with-preview "Buffer to register: "))) - (add-hook 'kill-buffer-hook 'register-buffer-to-file-query nil t) - (set-register register (cons 'buffer buffer))) + (let ((buffer (or (get-buffer buffer) buffer))) + (with-current-buffer buffer + (add-hook 'kill-buffer-hook 'register-buffer-to-file-query nil t)) + (set-register register (cons 'buffer buffer)))) (cl-defgeneric register-val-jump-to (_val _arg) "Execute the \"jump\" operation of VAL. -- 2.46.0