diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2024-05-30 12:45:57 +0100 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2024-05-30 16:23:18 +0100 |
| commit | 0b4d2bb9b366ea78e8bc6bf1915d91d4131e98f7 (patch) | |
| tree | ccce50b299852ffb0dfdb8514982bacb240f8de0 /lisp | |
| parent | ae7d0e86b37eabc434c48f85f56df0a221e0e7c7 (diff) | |
| download | emacs-0b4d2bb9b366ea78e8bc6bf1915d91d4131e98f7.tar.gz emacs-0b4d2bb9b366ea78e8bc6bf1915d91d4131e98f7.tar.bz2 emacs-0b4d2bb9b366ea78e8bc6bf1915d91d4131e98f7.zip | |
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).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 44197c3189a..76fb81c9df5 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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)) |