Remove the æ-kill-or-copy-whole-line command
I never used, not even bound it.
This commit is contained in:
parent
2c490cfc36
commit
e13a6d9173
@ -433,25 +433,6 @@ Copied from http://whattheemacsd.com/editing-defuns.el-01.html
|
|||||||
(indent-for-tab-command))
|
(indent-for-tab-command))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
*** TODO Kill or copy the whole line
|
|
||||||
|
|
||||||
Got from Xah’s site (TODO is for adding a link here.)
|
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
|
||||||
(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))))
|
|
||||||
#+END_SRC
|
|
||||||
|
|
||||||
*** Enclose region in a specific character
|
*** Enclose region in a specific character
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
Loading…
Reference in New Issue
Block a user