From 6e855218d1883a56846d417994d2d57bf2953ffb Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 22 May 2022 10:18:51 -0700 Subject: define two global bindings using keyboard macros --- .emacs.d/init.el | 9 ++------- 1 file 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." -- cgit v1.2.3