emacs: bind C-d to kill-whole-line

1 files changed, 20 insertions, 0 deletions

diff --git a/emacs b/emacs
index f06f8ba..a0806e4 100644
--- a/emacs
+++ b/emacs
@@ -44,9 +44,29 @@
 
 (add-to-list 'load-path "~/.emacs.d/session")
 (add-to-list 'load-path "~/.emacs.d/lisp")
+
+;;session
 (require 'session)
 (add-hook 'after-init-hook 'session-initialize)
 
+;;kill a line
+(defun kill-whole-line nil
+  "delete the whole line"
+  (interactive)
+  (beginning-of-line)
+  (push-mark)
+  (beginning-of-line 2)
+  (kill-region (point) (mark)))
+(global-set-key (kbd "C-d") 'kill-whole-line)
+
+;; compile .emacs
+(defun autocompile nil
+  "compile itself if ~/.emacs"
+  (interactive)
+  (if (string= (buffer-file-name) (concat default-directory ".emacs"))
+      (byte-compile-file (buffer-file-name))))
+(add-hook 'after-save-hook 'autocompile)
+
 ;;----------------------------------------------------------------------------
 (setq tab-width 4)
 ;;(setq c-basic-offset 4)