是否有一个Emacs函数可以复制整行，包括换行符？

Question

我不能写emacs功能，有人可以帮我吗？

Answer 1

是的，有。 This code is borrowed from this blog entry：

(defadvice kill-ring-save (before slick-copy activate compile) 
    "When called interactively with no active region, copy a single line instead." 
    (interactive 
    (if mark-active (list (region-beginning) (region-end)) 
     (message "Copied line") 
     (list (line-beginning-position) 
     (line-beginning-position 2))))) 

(defadvice kill-region (before slick-cut activate compile) 
    "When called interactively with no active region, kill a single line instead." 
    (interactive 
    (if mark-active (list (region-beginning) (region-end)) 
     (list (line-beginning-position) 
     (line-beginning-position 2))))) 

Answer 2

有几种方法可以复制一个行：

1. 的常用方法：钙C-SPC道道分子量

2. 使用鼠标：在三击线，型号Mw

3. Set（or cust 钙CK C-_

我不觉得这是一个共同的足够的操作，我愿意为它分配一个按键组合：omize）变量kill-whole-line到t，然后通过杀戮和毁灭复制，但如果你这样做，然后可以很容易地编写一个函数：

(defun kill-ring-save-line() 
    "Save the line containing point to the kill ring." 
    (interactive) 
    (kill-ring-save (line-beginning-position) 
        (line-beginning-position 2))) 

Answer 3

钙CK CK赛扬
或
钙铜1 CK赛扬

通过
章ķCK
和
章˚F杀-TAB发现

(defun copy-line() 
    (interactive) 
    (beginning-of-line) 
    (kill-line 1) 
    (yank)) 

Answer 4

;; http://www.emacswiki.org/emacs/WholeLineOrRegion#toc2 
;; cut, copy, yank 
(defadvice kill-ring-save (around slick-copy activate) 
    "When called interactively with no active region, copy a single line instead." 
    (if (or (use-region-p) (not (called-interactively-p))) 
     ad-do-it 
    (kill-new (buffer-substring (line-beginning-position) 
           (line-beginning-position 2)) 
       nil '(yank-line)) 
    (message "Copied line"))) 
(defadvice kill-region (around slick-copy activate) 
    "When called interactively with no active region, kill a single line instead." 
    (if (or (use-region-p) (not (called-interactively-p))) 
     ad-do-it 
    (kill-new (filter-buffer-substring (line-beginning-position) 
             (line-beginning-position 2) t) 
       nil '(yank-line)))) 
(defun yank-line (string) 
    "Insert STRING above the current line." 
    (beginning-of-line) 
    (unless (= (elt string (1- (length string))) ?\n) 
    (save-excursion (insert "\n"))) 
    (insert string)) 

(global-set-key (kbd "<f2>") 'kill-region) ; cut. 
(global-set-key (kbd "<f3>") 'kill-ring-save) ; copy. 
(global-set-key (kbd "<f4>") 'yank)   ; paste.