Add delete-current-line interactive function

This commit is contained in:
Gergely Polonkai 2014-10-07 23:49:44 +02:00
parent e2794d8002
commit 786aff4067

View File

@ -209,3 +209,9 @@
(setq rcirc-default-user-name "polesz") (setq rcirc-default-user-name "polesz")
(setq rcirc-default-full-name "Gergely Polonkai") (setq rcirc-default-full-name "Gergely Polonkai")
(add-hook 'after-init-hook 'fiplr-clear-cache) (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))