martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

universal-argument--preserve: Preserve last-prefix-arg

Browse Source 
* lisp/simple.el (universal-argument--preserve): Set
current-prefix-arg to last-prefix-arg in order to preserve
last-prefix-arg, too (bug#71277).
This commit is contained in:
Sean Whitton
2024-05-30 12:45:57 +01:00
parent ae7d0e86b3
commit 0b4d2bb9b3
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/simple.el
View File

@@ -5414,7 +5414,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))