From 3706954c02ec7f26f8d712355b00786d24e4fb50 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 30 May 2024 12:45:57 +0100 Subject: [PATCH] universal-argument--preserve: Preserve last-prefix-arg * lisp/simple.el (universal-argument--preserve): Set current-prefix-arg to last-prefix-arg in order to preserve last-prefix-arg, too (bug#71277). (cherry picked from commit 0b4d2bb9b366ea78e8bc6bf1915d91d4131e98f7) --- lisp/simple.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index 764f809c012..071ec7df9fb 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -5464,7 +5464,8 @@ Runs `prefix-command-preserve-state-hook'." (add-hook 'prefix-command-preserve-state-hook #'universal-argument--preserve) (defun universal-argument--preserve () - (setq prefix-arg current-prefix-arg)) + (setq prefix-arg current-prefix-arg) + (setq current-prefix-arg last-prefix-arg)) (defvar universal-argument-map (let ((map (make-sparse-keymap)) -- 2.39.2