Emacs中C-@后C-w区域剪切的问题[已解决]

junalbert

我发现我的Emacs中，通过先C-@ Mark Set，再C-w 和M-w剪切复制的时候，最前面的一个word总是保留的，无论.c和.el文件都是如此。

比如:

-------在此处C-@
|
(show-paren-mode t)
...
...
...
若干行后C-w

前面的那个"(show"还是在的

请问这个是什么原因？有谁遇到过这样的情况。

另外问一个问题，elisp中如何区域注释，如同C语言中的/**/

我的.emacs.el内容如下：

1. 
   
2. ;; set font for linux
   
3. (setq facemedium-str "-simsun-simsun bitmap *-medium-r-normal--12-*-*-*-*-*-*-*")
   
4. 
   
5. 
   
6. (setq fontset-facemedium
   
7.     (create-fontset-from-fontset-spec
   
8.     (concat
   
9.      "-adobe-courier-medium-r-*-*-14-*-*-*-*-*-fontset-facemedium")))
   
10. 
    
11. (defun setallfontsets ()
    
12.      (set-default-font fontset-facemedium))
    
13. 
    
14. (add-to-list 'after-init-hook 'setallfontsets)
    
15. 
    
16. (add-to-list 'after-make-frame-functions
    
17.      (lambda (new-frame) (select-frame new-frame) (setallfontsets)))
    
18. 
    
19. (setq default-frame-alist (append '(
    
20.                           (cursor-type      . bar)
    
21.                           ;(cursor-color     . "wheat")
    
22.                           ;(foreground-color . "gray90")
    
23.                           (background-color . "gray10")
    
24.                           )))
    
25. ;Display column and row number
    
26. (column-number-mode t)
    
27. (line-number-mode t)
    
28. 
    
29. ;Display matching brackets
    
30. (show-paren-mode t)
    
31. 
    
32. ;Hide toolbar
    
33. (tool-bar-mode -1)
    
34. 
    
35. ;this will make sure spaces are used instead of tabs
    
36. (setq default-tab-width 4)
    
37. (setq tab-width 4
    
38.     indent-tabs-mode nil)
    
39. (setq c-basic-offset tab-width)
    
40. ;(setq c-tab-always-indent nil)
    
41. 
    
42. (setq
    
43.      backup-by-copying t      ; don't clobber symlinks
    
44.      backup-directory-alist
    
45.      '(("." . "~/.emacs_backup"))    ; don't litter my fs tree
    
46.      delete-old-versions t
    
47.      kept-new-versions 6
    
48.      kept-old-versions 2
    
49.      version-control t)       ; use versioned backups
    
50. 
    
51. ;;; disable welcome screen
    
52. (setq inhibit-startup-message t)
    
53. 
    
54. 
    
55. (require 'cc-mode)
    
56. ;(c-set-offset 'inline-open 0)
    
57. ;(c-set-offset 'friend '-)
    
58. ;(c-set-offset 'substatement-open 0)
    
59. 
    
60. (setq semanticdb-project-roots
    
61.           (list
    
62.         (expand-file-name "/")))
    
63. 
    
64. (defun my-indent-or-complete ()
    
65.    (interactive)
    
66.    (if (looking-at "\\>")
    
67.           (hippie-expand nil)
    
68.           (indent-for-tab-command))
    
69. )
    
70. 
    
71. (autoload 'senator-try-expand-semantic "senator")
    
72. 
    
73. (setq hippie-expand-try-functions-list
    
74.           '(
    
75.                 senator-try-expand-semantic
    
76.                 try-expand-dabbrev
    
77.                 try-expand-dabbrev-visible
    
78.                 try-expand-dabbrev-all-buffers
    
79.                 try-expand-dabbrev-from-kill
    
80.                 try-expand-list
    
81.                 try-expand-list-all-buffers
    
82.                 try-expand-line
    
83.         try-expand-line-all-buffers
    
84.         try-complete-file-name-partially
    
85.         try-complete-file-name
    
86.         try-expand-whole-kill
    
87.         )
    
88. )
    
89. 
    
90. (defconst yxn-c-style
    
91.   '((c-tab-always-indent        . 4)
    
92.     ;(c-comment-only-line-offset . 4)
    
93.     (c-hanging-braces-alist     . ((substatement-open after)
    
94.                                    (brace-list-open)))
    
95.     (c-hanging-colons-alist     . ((member-init-intro before)
    
96.                                    (inher-intro)
    
97.                                    (case-label after)
    
98.                                    (label after)
    
99.                                    (access-label after)))
    
100.     (c-cleanup-list             . (scope-operator
     
101.                                    empty-defun-braces
     
102.                                    defun-close-semi))
     
103.     (c-offsets-alist            . ((arglist-close . c-lineup-arglist)
     
104.                                    (substatement-open . 0)
     
105.                                    (case-label        . 4)
     
106.                                    (block-open        . 0)
     
107.                                    (block-open        . 0)
     
108.                                    (knr-argdecl-intro . -)))
     
109.     (c-echo-syntactic-information-p . t)
     
110.     )
     
111.   "My C Programming Style")
     
112. 
     
113. (defun my-c-mode-common-hook()
     
114.     (setq tab-width 4 indent-tabs-mode nil)
     
115.     ;;; hungry-delete and auto-newline
     
116.     (c-toggle-auto-hungry-state 1)
     
117.     ;;key map
     
118.     ;(define-key c-mode-base-map [(control \`)] 'hs-toggle-hiding)
     
119.     (define-key c-mode-base-map [(return)] 'newline-and-indent)
     
120.     ;(define-key c-mode-base-map [(f7)] 'compile)
     
121.     ;(define-key c-mode-base-map [(meta \`)] 'c-indent-command)
     
122.     ;;  (define-key c-mode-base-map [(tab)] 'hippie-expand)
     
123.     (define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
     
124.     (define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)
     
125.         ;
     
126.     ;(setq c-macro-shrink-window-flag t)
     
127.     ;(setq c-macro-preprocessor "cpp")
     
128.     ;(setq c-macro-cppflags " ")
     
129.     ;(setq c-macro-prompt-flag t)
     
130.     ;(setq hs-minor-mode t)
     
131.     ;(setq abbrev-mode t)
     
132. )
     
133. (add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
     
134. 
     
135. ;;;;C++ Mode
     
136. (defun my-c++-mode-hook()
     
137.     (setq tab-width 4 indent-tabs-mode nil)
     
138.     (c-set-style "stroustrup")
     
139.     ;;  (define-key c++-mode-map [f3] 'replace-regexp)
     
140. )
     
141. 
     
142. ;(global-set-key [(f5)] 'speedbar)
     
143. 
     
144. ;;set title as "filename@LC's Emacs"
     
145. (setq frame-title-format
     
146.           '("  GNU Emacs   -   [ " (buffer-file-name "%f \]"
     
147.       (dired-directory dired-directory "%b \]"))))
     
148. 
     
149. (load-file "/usr/share/emacs/site-lisp/xcscope.el")
     
150. (require 'xcscope)
     
151. 
     
152. (add-to-list 'load-path "/usr/share/emacs/site-lisp/semantic")
     
153. (add-to-list 'load-path "/usr/share/emacs/site-lisp/eieio")
     
154. (add-to-list 'load-path "/usr/share/emacs/site-lisp/speedbar")
     
155. (add-to-list 'load-path "/usr/share/emacs/site-lisp/ecb")
     
156. (require 'ecb-autoloads)
     
157. 
     

复制代码

pluskid

你是按了 M-@ ，而不是 C-@ ，是不是？