diff options
| author | Sean Whitton | 2024-05-30 12:45:57 +0100 |
|---|---|---|
| committer | Sean Whitton | 2024-05-30 16:23:18 +0100 |
| commit | 0b4d2bb9b366ea78e8bc6bf1915d91d4131e98f7 (patch) | |
| tree | ccce50b299852ffb0dfdb8514982bacb240f8de0 | |
| parent | ae7d0e86b37eabc434c48f85f56df0a221e0e7c7 (diff) | |
| download | emacs-0b4d2bb9b366ea78e8bc6bf1915d91d4131e98f7.tar.gz 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).
| -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'." | |||
| 5414 | (add-hook 'prefix-command-preserve-state-hook | 5414 | (add-hook 'prefix-command-preserve-state-hook |
| 5415 | #'universal-argument--preserve) | 5415 | #'universal-argument--preserve) |
| 5416 | (defun universal-argument--preserve () | 5416 | (defun universal-argument--preserve () |
| 5417 | (setq prefix-arg current-prefix-arg)) | 5417 | (setq prefix-arg current-prefix-arg) |
| 5418 | (setq current-prefix-arg last-prefix-arg)) | ||
| 5418 | 5419 | ||
| 5419 | (defvar universal-argument-map | 5420 | (defvar universal-argument-map |
| 5420 | (let ((map (make-sparse-keymap)) | 5421 | (let ((map (make-sparse-keymap)) |