1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
(setq *true-mac-cut-buffer* "")
(setq *true-mac-cut-buffer2* t)

(setq interprogram-cut-function
'(lambda (str push)
(setq *true-mac-cut-buffer* str)
(setq *true-mac-cut-buffer2* push)))


(setq interprogram-paste-function
'(lambda () nil))


(defun true-mac-cut-function () (interactive)
(if mark-active
(progn
(true-mac-copy-function)
(kill-region (point) (mark)))

(beep)))


(defun true-mac-copy-function () (interactive)
(if mark-active
(mac-cut-function
*true-mac-cut-buffer*
*true-mac-cut-buffer2*)

(beep)))


(defun true-mac-paste-function () (interactive)
(if mark-active
(kill-region (point) (mark)))

(insert (mac-paste-function)))


(global-set-key [?\A-x] 'true-mac-cut-function)
(global-set-key "\S-c" 'true-mac-copy-function)
(global-set-key [?\A-v] 'true-mac-paste-function)

(global-set-key [?\A-a] 'mark-whole-buffer)
(global-set-key [?\A-s] 'save-buffer)
(global-set-key [?\A-S] 'write-file)
(global-set-key [?\A-p] 'ps-print-buffer)
(global-set-key [?\A-o] 'find-file)
(global-set-key [?\A-q] 'save-buffers-kill-emacs)
(global-set-key [?\A-w] 'kill-buffer-and-window)
(global-set-key [?\A-z] 'undo)
(global-set-key [?\A-f] 'isearch-forward)
(global-set-key [?\A-g] 'query-replace)
(global-set-key [?\A-l] 'goto-line)
(global-set-key [?\A-m] 'iconify-frame)
(global-set-key [?\A-n] 'new-frame)
知识共享授权条款
本著作Chen, Zai-Chun制作,以知识共享 姓名标示-相同方式分享 4.0 国际 授权条款释出

留言

Nov 27 2012