是否有一個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.