gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add the æ-kill-or-copy-whole-line function

Browse Source 
I’m not sure yet if this will be useful in the future, though…
This commit is contained in:
Gergely Polonkai 2016-10-17 16:25:20 +02:00
parent a6b3e27610
commit 46fe49e944
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/buf-manipulation.el
View File

@ -114,3 +114,16 @@ Version 2016-02-16"
(looking-back eshell-prompt-regexp)) (looking-back eshell-prompt-regexp))
(kill-buffer) (kill-buffer)
(signal (car err) (cdr err)))))) (signal (car err) (cdr err))))))
(defun æ-kill-or-copy-whole-line (kill)
"Kill or copy the whole line point is on.
If KILL is non-nil, the line gets killed. Otherwise, it gets just
copied to the kill-ring."
(interactive "P")
(if kill
(kill-whole-line)
(let ((beginning (progn (beginning-of-line) (point)))
(end (progn (end-of-line) (point))))
(copy-region-as-kill beginning end))))