Add delete-current-line interactive function

2014-10-07 23:49:44 +02:00
parent e2794d8002
commit 786aff4067
1 changed files with 6 additions and 0 deletions
--- a/init.el
+++ b/init.el
@@ -209,3 +209,9 @@
 (setq rcirc-default-user-name "polesz")
 (setq rcirc-default-full-name "Gergely Polonkai")
 (add-hook 'after-init-hook 'fiplr-clear-cache)
+
+(defun delete-current-line ()
+  "Kill the whole line on which point is"
+  (interactive)
+  (beginning-of-line)
+  (kill-line 1))