emacs的複製和貼上 - Linux

幾個相關的好用 elisp function
直接塞進.emacs就好

;-----------------------------------------------------------
;使用強化後的C-w 和 M-w
;沒有選中一個區域的時候，C-w會剪切光標所在行，不管光標的位置在哪裡
;沒有選中一個區域的時候，M-w會複製光標所在的行，不管光標的位置在行首還是行尾
;還是行中間的任意位置。
(defadvice kill-ring-save (before slickcopy activate compile)
"When called interactively with no active region, copy a single line
instead."
(interactive
(if mark-active (list (region-beginning) (region-end))
(list (line-beginning-position)
(line-beginning-position 2)))))

(defadvice kill-region (before slickcut 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)))))
;-----------------------------------------------------------
;;設置拷貝用的function，讓copy更方便
(defun copy-line (&optional arg)
"Save current line into Kill-Ring without mark the line"
(interactive "P")
(let ((beg (line-beginning-position))
(end (line-end-position arg)))
(copy-region-as-kill beg end))
)


(defun copy-word (&optional arg)
"Copy words at point"
(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))
)


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











※ 引述《mgdesigner (魔法設計師)》之銘言：
: ※ 引述《noonee (feynman511)》之銘言：
: : 很抱歉問個蠢問題
: : emacs裡要怎麼複製和貼上？
: : 我查過 C-h tutorial 裏面沒找到
: : google後發現 有人推荐 C-k C-y然後 用C-y來複製整行
: : 也有人直接去改 .emacs的內容
: : 請問真的沒有內建的複製和貼上嗎？
: : 複製幾個字 複製整行 等等
: C-k剪下整行然後再shift+Insert是貼整行
: 也可以用滑鼠反白後，再按ctrl+Insert複製，然後一樣shift+Insert貼上，當然
: 也可以只是字串反白後，按shift+insert貼上。
: 不過這還不是用emacs本身的機能，一定要用到滑鼠，如果在console下，必須啟動
: 終端機的滑鼠驅動，不過比較簡單。純用鍵盤進行mark的，就要查一下文件囉。
: : 謝謝

--