Emacs基础：文本删除、复制和恢复

delete-char (C-d)

delete-backward-char (DEL)

kill-word (M-d)

backward-kill-word (M-DEL)

kill-line (C-k)

kill-sentence (M-k)

backward-kill-sentence (C-x DEL)

yank (C-y) -- paste

yank-pop (M-y)

kill-region (C-w) -- cut

kill-paragraph

backward-kill-paragraph

kill-ring-save (M-w) -- copy

扩展

If mark active, copy region. Otherwise, copy current line.
(defun new-kill-ring-save (&optional m)
(interactive "p")
(if mark-active
(kill-ring-save (region-beginning) (region-end))
(if (> n 0)
(kill-ring-save (line-beginning-position) (line-end-position n))
(kill-ring-save (line-beginning-position n) (line-end-position)))))

copy current line
(defun copy-line (&optional arg)
(interactive "p")
(let ((beg (line-beginning-position))
(end (line-end-position arg)))
(copy-region-as-kill beg end)))

copy words at point
(defun copy-word (&optional arg)
(interactive "p")
(let ((beg (progn (if (looking-back "[a-zA-Z0-9]" 1) (backward-word 1)) (point)))
(end (progn (forward-word arg) (point))))
(copy-region-as-kill beg end)))

copy paragraphes at point
(defun copy-paragraph (&optional arg)
(interactive "p")
(let ((beg (progn (backward-paragraph 1) (point)))
(end (progn (forward-paragraph arg) (point))))
(copy-region-as-kill beg end)))