From 4529128ed997d82a67789f9fa46ed30cf171f7cb Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Wed, 16 Apr 2014 09:23:19 -0400 Subject: [PATCH] Add smart-delete-backchar --- init.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/init.el b/init.el index 3c4d088..427756a 100644 --- a/init.el +++ b/init.el @@ -274,6 +274,18 @@ the current position of point, then move it to the beginning of the line." (beginning-of-line)))) (global-set-key (kbd "C-a") 'smart-line-beginning) +(defun smart-delete-backward-char () + "try to be smart to delete indentation" + (interactive) + (let ((pt (point))) + (beginning-of-line-text) + (if (eq pt (point)) + (delete-indentation) + (progn + (goto-char pt) + (call-interactively 'delete-backward-char))))) +(global-set-key "\d" 'smart-delete-backward-char) ;;does not work well with mc + (add-to-list 'load-path "~/tmp/expand-region.el") (require 'expand-region) (global-set-key (kbd "C-M-h") 'er/expand-region)