Add smart-delete-backchar

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)