From c64e010d0b51f1914d9bca263063506be9420540 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Mon, 13 Apr 2020 12:15:22 -0400 Subject: [PATCH] Add convenience b/move-indentation-or-beginning-of-line, bind to C-a --- init.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/init.el b/init.el index 23158a1..e633282 100644 --- a/init.el +++ b/init.el @@ -239,6 +239,17 @@ For disabling the behaviour for certain buffers and/or modes." (interactive) (kill-buffer (current-buffer))) +(defun b/move-indentation-or-beginning-of-line (arg) + "Move to the indentation or to the beginning of line." + (interactive "^p") + ;; (if (bolp) + ;; (back-to-indentation) + ;; (move-beginning-of-line arg)) + (if (= (point) + (progn (back-to-indentation) + (point))) + (move-beginning-of-line arg))) + ;;; Defaults @@ -490,6 +501,7 @@ For disabling the behaviour for certain buffers and/or modes." ;;; General bindings (bind-keys + ("C-a" . b/move-indentation-or-beginning-of-line) ("C-c a i" . ielm) ("C-c e b" . eval-buffer) -- 2.20.1