From 8cf87b2f94fc84d672b9c894b7a5678228aa071c Mon Sep 17 00:00:00 2001 From: Charlie Root Date: Wed, 19 Mar 2025 22:16:32 +0100 Subject: [PATCH] some changes to editing-utils --- lisp/init-editing-utils.el | 36 ------------------------------------ 1 file changed, 36 deletions(-) diff --git a/lisp/init-editing-utils.el b/lisp/init-editing-utils.el index 59c2df8..68e2e37 100644 --- a/lisp/init-editing-utils.el +++ b/lisp/init-editing-utils.el @@ -7,9 +7,6 @@ (add-hook 'after-init-hook 'electric-pair-mode)) (add-hook 'after-init-hook 'electric-indent-mode) -(maybe-require-package 'list-unicode-display) - - ;;; Some basic preferences (setq-default @@ -57,16 +54,6 @@ (diminish 'subword-mode)) -(when (fboundp 'display-line-numbers-mode) - (setq-default display-line-numbers-width 3) - (add-hook 'prog-mode-hook 'display-line-numbers-mode)) - - -(when (boundp 'display-fill-column-indicator) - (setq-default indicate-buffer-boundaries 'left) - (setq-default display-fill-column-indicator-character ?┊) - (add-hook 'prog-mode-hook 'display-fill-column-indicator-mode)) - (when (require-package 'rainbow-delimiters) (add-hook 'prog-mode-hook 'rainbow-delimiters-mode)) @@ -84,8 +71,6 @@ ;;; Zap *up* to char is a handy pair for zap-to-char (global-set-key (kbd "M-Z") 'zap-up-to-char) - -(require-package 'browse-kill-ring) (setq browse-kill-ring-separator "\f") (global-set-key (kbd "M-Y") 'browse-kill-ring) (with-eval-after-load 'browse-kill-ring @@ -116,27 +101,6 @@ (when (maybe-require-package 'avy) (global-set-key (kbd "C-;") 'avy-goto-char-timer)) -(require-package 'multiple-cursors) -;; multiple-cursors -(global-set-key (kbd "C-<") 'mc/mark-previous-like-this) -(global-set-key (kbd "C->") 'mc/mark-next-like-this) -(global-set-key (kbd "C-+") 'mc/mark-next-like-this) -(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this) - -;; Train myself to use M-f and M-b instead -(global-unset-key [M-left]) -(global-unset-key [M-right]) - -(defun kill-back-to-indentation () - "Kill from point back to the first non-whitespace character on the line." - (interactive) - (let ((prev-pos (point))) - (back-to-indentation) - (kill-region (point) prev-pos))) - -(global-set-key (kbd "C-M-") 'kill-back-to-indentation) - - ;;; Page break lines (when (maybe-require-package 'page-break-lines)