Add delete-current-line interactive function
This commit is contained in:
parent
e2794d8002
commit
786aff4067
6
init.el
6
init.el
@ -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))
|
||||||
|
Loading…
Reference in New Issue
Block a user