diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-05-28 16:53:25 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-05-31 18:49:40 -0700 |
commit | f7f7244d317ee03c40cf891ac5a1f91d14e94172 (patch) | |
tree | 94c3fc43fcfc04475b4eeaa42557f0340874dce7 /.emacs.d | |
parent | 552599f854fc58486ed2bad635e7fe823e8d0750 (diff) | |
download | dotfiles-f7f7244d317ee03c40cf891ac5a1f91d14e94172.tar.gz |
ensure that M-r and M-= pass through prefix args
Diffstat (limited to '.emacs.d')
-rw-r--r-- | .emacs.d/init-spw.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index c1c65346..cb3de830 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -876,15 +876,17 @@ Passes ARG to `projectile-switch-project-by-name'." ;; Best for entering commands where the key after C-c/C-x is not ;; modified by control. Otherwise best to just keep control held down ;; and type both modified keys. -(defun spw/access-ctl-c-bindings () +(defun spw/access-ctl-c-bindings (arg) "Access bindings under C-c." - (interactive) - (setq unread-command-events (cons '(t . ?\C-c) unread-command-events))) + (interactive "P") + (setq prefix-arg arg + unread-command-events (cons '(t . ?\C-c) unread-command-events))) (global-set-key "\M-r" 'spw/access-ctl-c-bindings) -(defun spw/access-ctl-x-bindings () +(defun spw/access-ctl-x-bindings (arg) "Access bindings under C-x." - (interactive) - (setq unread-command-events (cons '(t . ?\C-x) unread-command-events))) + (interactive "P") + (setq prefix-arg arg + unread-command-events (cons '(t . ?\C-x) unread-command-events))) (global-set-key "\M-=" 'spw/access-ctl-x-bindings) ;; ... and resettle the former occupant of M-= (isearch replaces |