From a696cbe0f1d96e2ac6a3454d716326f20312a4a8 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Tue, 3 Oct 2023 22:36:07 +1100
Subject: [emacs] some minor changes

---
 emacs/.emacs.d/init/ycp-editing.el | 1 +
 emacs/.emacs.d/init/ycp-gnus.el    | 1 +
 emacs/.emacs.d/init/ycp-prog.el    | 4 ++++
 3 files changed, 6 insertions(+)

(limited to 'emacs')

diff --git a/emacs/.emacs.d/init/ycp-editing.el b/emacs/.emacs.d/init/ycp-editing.el
index 65189de..e469097 100644
--- a/emacs/.emacs.d/init/ycp-editing.el
+++ b/emacs/.emacs.d/init/ycp-editing.el
@@ -41,6 +41,7 @@
 (setq window-divider-default-places 'bottom-only)
 ;; don't interpret C-m as RET
 (define-key input-decode-map [?\C-m] [C-m])
+(define-key input-decode-map [?\C-i] [C-i])
 (setq save-place-file (locate-user-emacs-file "saveplace"))
 
 (my-configure
diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el
index 4e40603..e4e24a4 100644
--- a/emacs/.emacs.d/init/ycp-gnus.el
+++ b/emacs/.emacs.d/init/ycp-gnus.el
@@ -150,6 +150,7 @@
     "n" #'my-gnus-summary-next-article-like-mu4e
     "p" #'my-gnus-summary-prev-article-like-mu4e
     "q" #'my-gnus-summary-exit-like-mu4e
+    "g" #'gnus-group-get-new-news-this-group
     "M-u" nil
     "M-&" nil
     "M" #'my-gnus-move-article-like-mu4e
diff --git a/emacs/.emacs.d/init/ycp-prog.el b/emacs/.emacs.d/init/ycp-prog.el
index 78bdd88..6696aaf 100644
--- a/emacs/.emacs.d/init/ycp-prog.el
+++ b/emacs/.emacs.d/init/ycp-prog.el
@@ -271,6 +271,10 @@
     "C-<left>" nil
     "C-<right>" nil
     "M-?" nil
+    ;; we want to reserve M-r to `previous-matching-history-element'
+    ;; when in minibuffer and ielm
+    "M-r" nil
+    "M-i" #'paredit-raise-sexp
     "C-j" nil ;not ideal, we just want to unshadow it in lisp-interaction-mode
     "<RET>" #'paredit-newline
     "M-s" nil
-- 
cgit v1.2.3