From 430b1fbcf78cb14dbea9602638183f0560dcaf75 Mon Sep 17 00:00:00 2001 From: rearman Date: Wed, 2 Nov 2022 16:08:17 -0400 Subject: [PATCH] Remove superfluous defuns. Add binds for next/prev window/buffer --- init.el | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/init.el b/init.el index a617ac7..05c5a3d 100644 --- a/init.el +++ b/init.el @@ -138,21 +138,11 @@ Can't go prev line first, edge case of beginning of buffer." (setq buffer-offer-save t) newbuf)) -(defun kill-current-buffer () - "Kill the current buffer instead of prompting." - (interactive) - (kill-buffer (current-buffer))) - (defun edit-init () "Bring up init.el for editing." (interactive) (find-file shared-system-init)) -(defun last-window () - "Go to last visited window." - (interactive) - (other-window -1)) - (defun run-chicken () "Opens a chicken-scheme repl to the right." (interactive) @@ -193,8 +183,10 @@ Can't go prev line first, edge case of beginning of buffer." (global-set-key (kbd "C-z") 'zap-up-to-char) (global-set-key (kbd "C-M-z") 'eval-region) (global-set-key (kbd "C-'") 'universal-argument) -(global-set-key (kbd "C-.") 'other-window) -(global-set-key (kbd "C-,") 'last-window) +(global-set-key (kbd "C-.") 'next-window-any-frame) +(global-set-key (kbd "C-,") 'previous-window-any-frame) +(global-set-key (kbd "C-x .") 'next-buffer) +(global-set-key (kbd "C-x ,") 'previous-buffer) (global-set-key (kbd "M-%") 'replace-regexp) (global-set-key (kbd "C-M-%") 'query-replace-regexp) -- 2.39.5