[英]Redefine major mode prefix key in Emacs
I've been trying teach myself emacs, and because I am using dvorak, I foolishly rebound Cc
to a movement key and got used to it. 我一直在尝试自学emacs,因为我使用的是dvorak,所以我愚蠢地将Cc
反弹到了运动键上并习惯了。 Now i'm actually starting to do some programming with it, and I loaded up a python file and noticed that Cc
is the prefix to all the special commands in python-mode
. 现在,我实际上开始使用它进行一些编程,并且我加载了一个python文件,并注意到Cc
是python-mode
所有特殊命令的前缀。
Can I rebind the prefix key and change all python commands in one swoop in my init.el
file? 我可以一次绑定init.el
文件中的前缀键并更改所有python命令吗? If not, should I rebind all the python commands individually? 如果没有,我应该单独重新绑定所有python命令吗?
If you want Ctrl + C to act as left
and F12 to act as Cc
: 如果要让Ctrl + C充当left
而F12充当Cc
:
(define-key key-translation-map [f12] "\C-c")
(define-key key-translation-map "\C-c" [left])
Note that this will also influence multi-key bindings, eg you now need to type Ctrl + X F12 to exit Emacs. 请注意,这也会影响多键绑定,例如,现在您需要输入Ctrl + X F12退出Emacs。 The flip side of this coin is that Cc Cc
is typed as F12 F12 . 此硬币的另一面是Cc Cc
键入为F12 F12 。
If you look at the source code for python.el, you'll see that the commands were added individually using the full specification, eg (define-key map "\\Cc\\Cr" 'python-send-region)
. 如果查看python.el的源代码,您会看到这些命令是使用完整规范分别添加的,例如(define-key map "\\Cc\\Cr" 'python-send-region)
。
So, you're going to have to redo them all yourself. 因此,您将必须自己重做它们。 That said it is pretty straight-forward. 那说的很简单。 From your comment, you want to change the prefix key to be C-' , and the trick to getting escaping right is to not use escapes at all, but instead to use the macro kbd
( documentation link ). 根据您的评论,您想要将前缀键更改为C-' ,而正确转义的技巧是根本不使用转义符,而应使用宏kbd
( 文档链接 )。
With that, you can update the mode-map definition to be: 这样,您可以将模式映射定义更新为:
(defvar python-mode-map
(let ((map (make-sparse-keymap)))
;; Mostly taken from python-mode.el.
(define-key map ":" 'python-electric-colon)
(define-key map "\177" 'python-backspace)
(define-key map (kbd "C-' <") 'python-shift-left)
(define-key map (kbd "C-' >") 'python-shift-right)
(define-key map (kbd "C-' C-k") 'python-mark-block)
(define-key map (kbd "C-' C-d") 'python-pdbtrack-toggle-stack-tracking)
(define-key map (kbd "C-' C-n") 'python-next-statement)
(define-key map (kbd "C-' C-p") 'python-previous-statement)
(define-key map (kbd "C-' C-u") 'python-beginning-of-block)
(define-key map (kbd "C-' C-f") 'python-describe-symbol)
(define-key map (kbd "C-' C-w") 'python-check)
(define-key map (kbd "C-' C-v") 'python-check) ; a la sgml-mode
(define-key map (kbd "C-' C-s") 'python-send-string)
(define-key map (kbd "C-\\ M-x") 'python-send-defun)
(define-key map (kbd "C-' C-r") 'python-send-region)
(define-key map (kbd "C-' M-r") 'python-send-region-and-go)
(define-key map (kbd "C-' C-c") 'python-send-buffer)
(define-key map (kbd "C-' C-z") 'python-switch-to-python)
(define-key map (kbd "C-' C-m") 'python-load-file)
(define-key map (kbd "C-' C-l") 'python-load-file) ; a la cmuscheme
(substitute-key-definition 'complete-symbol 'symbol-complete
map global-map)
(define-key map (kbd "C-' C-i") 'python-find-imports)
(define-key map (kbd "C-' C-t") 'python-expand-template)
(easy-menu-define python-menu map "Python Mode menu"
`("Python"
:help "Python-specific Features"
["Shift region left" python-shift-left :active mark-active
:help "Shift by a single indentation step"]
["Shift region right" python-shift-right :active mark-active
:help "Shift by a single indentation step"]
"-"
["Mark block" python-mark-block
:help "Mark innermost block around point"]
["Mark def/class" mark-defun
:help "Mark innermost definition around point"]
"-"
["Start of block" python-beginning-of-block
:help "Go to start of innermost definition around point"]
["End of block" python-end-of-block
:help "Go to end of innermost definition around point"]
["Start of def/class" beginning-of-defun
:help "Go to start of innermost definition around point"]
["End of def/class" end-of-defun
:help "Go to end of innermost definition around point"]
"-"
("Templates..."
:help "Expand templates for compound statements"
:filter (lambda (&rest junk)
(abbrev-table-menu python-mode-abbrev-table)))
"-"
["Start interpreter" python-shell
:help "Run `inferior' Python in separate buffer"]
["Import/reload file" python-load-file
:help "Load into inferior Python session"]
["Eval buffer" python-send-buffer
:help "Evaluate buffer en bloc in inferior Python session"]
["Eval region" python-send-region :active mark-active
:help "Evaluate region en bloc in inferior Python session"]
["Eval def/class" python-send-defun
:help "Evaluate current definition in inferior Python session"]
["Switch to interpreter" python-switch-to-python
:help "Switch to inferior Python buffer"]
["Set default process" python-set-proc
:help "Make buffer's inferior process the default"
:active (buffer-live-p python-buffer)]
["Check file" python-check :help "Run pychecker"]
["Debugger" pdb :help "Run pdb under GUD"]
"-"
["Help on symbol" python-describe-symbol
:help "Use pydoc on symbol at point"]
["Complete symbol" symbol-complete
:help "Complete (qualified) symbol before point"]
["Find function" python-find-function
:help "Try to find source definition of function at point"]
["Update imports" python-find-imports
:help "Update list of top-level imports for completion"]))
map))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.