Emacs 的复制与粘贴

增加Emacs的复制与粘贴功能。具体通过定义几个复制函数，将相关数据复制到删除环上，然后定义这些函数的快捷键。粘贴可以用Ctrl+y实现。现在的.Emacs文件内容如下：

 

(setq initial-frame-alist '((top . 0) (left . 0) (width . 1024) (height . 768)))
(column-number-mode t)
(transient-mark-mode t)
(setq line-number-mode t)
;;(setq default-tab-width 8)
(setq default-tab-width 4)
(customize-set-variable 'scroll-bar-mode' right)
(setq default-directory "/home/zhouyi198631/Study")
(setq inhibit-startup-message t)
(setq global-font-lock-mode t)
(setq make-backup-files nil)
(setq auto-save-mode nil)
(setq x-select-enable-clipboard t)
(setq mouse-yank-at-point t)
;;(define-key global-map [home] 'beginning-of-buffer)
;;(define-key global-map [end] 'end-of-buffer)
(define-key global-map [f3] 'display-line-number-mode-on)
(define-key global-map [C-f4] 'other-window)
(define-key global-map [f5] 'redraw-display)
(define-key global-map [f7] 'compile)
(setq-default compile-command "make")
;;(define-key global-map [f8] 'du-onekey-compile)
(define-key global-map [f6] 'gdb)
(define-key global-map [C-f9] 'previous-error)
(define-key global-map [f9] 'next-error)
;;(set-default-font "9x15")
;;(set-default-font "-adobe-courier-medium-r-normal--14-100-100-100-m-90-iso10646-1")
(set-default-font "10x20")
;;(set-default-font "-outline-ÐÂËÎÌå-normal-r-normal-normal-14-*-96-96-c-*-gb2312")

;; Load CEDET
(load-file "~/.emacs.d/cedet-1.0pre6/common/cedet.el")
;; Enabling various SEMANTIC minor modes.  See semantic/INSTALL for more ideas.
;; Select one of the following:
;; * This enables the database and idle reparse engines
;;(semantic-load-enable-minimum-features)
;; * This enables some tools useful for coding, such as summary mode
;;   imenu support, and the semantic navigator
;;(semantic-load-enable-code-helpers)
;; * This enables even more coding tools such as the nascent intellisense mode
;;   decoration