diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-05-22 10:18:51 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-05-22 14:34:51 -0700 |
commit | 6e855218d1883a56846d417994d2d57bf2953ffb (patch) | |
tree | 21f5b79c7662e54ee8d4a88a0dc490ee20018266 | |
parent | 99a82ac8f0bbc149e6df738c8d41d4ebfe17775c (diff) | |
download | dotfiles-6e855218d1883a56846d417994d2d57bf2953ffb.tar.gz |
define two global bindings using keyboard macros
-rw-r--r-- | .emacs.d/init.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 505e06d4..c68be6e5 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2174,10 +2174,7 @@ Used in my `message-mode' yasnippets." (kill-buffer-and-window))) (global-set-key [remap kill-buffer-and-window] #'spw/kill-buffer-and-window) -(defun spw/delete-other-windows-and-split-right () - (interactive) - (delete-other-windows) (split-window-right)) -(define-key spw/ctl-z-map "3" #'spw/delete-other-windows-and-split-right) +(define-key spw/ctl-z-map "3" "\C-x1\C-x3") (defun spw/set-other-window-to-scroll (arg) "Set `other-window-scroll-buffer' to the most recently used window. @@ -3214,9 +3211,7 @@ scroll through them." ;; non-Paredit buffers, and reclaimed C-M-p and C-M-n from Paredit. However, ;; the global bindings of C-M-p and C-M-n have not proved themselves useful. (global-set-key [?\C-\M-n] #'up-list) -(global-set-key [?\C-\M-p] (lambda (&optional arg interactive) - (interactive "^p\nd") - (down-list (and arg (* -1 arg)) interactive))) +(global-set-key [?\C-\M-p] "\C-u-\C-\M-d") (defun spw/lisp-hippie-expand () "Remove some `hippie-expand' functions which interact poorly with paredit." |