我使用shell命令很多(默认绑定到M-!),但通常我正在做我正在编辑的缓冲区的东西。而不是键入缓冲区名称(并且没有文件名完成在shell命令中可用,唉!),只要有一个快捷键(如f3),只要按下键,就可以为我插入该名称。
问题是我不想全局绑定密钥(我在其他环境中使用f3作为其他的东西),只有在shell命令提示时才能使用minibuffer。编写一个lisp函数来插入当前的缓冲区名称很容易,但是我应该修改什么模式的keymap来绑定一个键到该函数?
或者,是否有任何在shell命令中提供文件名完成的lisp代码/包,类似于bash?我知道正常的M-x shell完成,但是在minibuff中输入命令的方便很难放弃;)
编辑:
这是我想要的,从huaiyuan的答案中得出了一些灵感来自于http://osdir.com/ml/emacs.sources/2002-04/msg00022.html的/被盗的修复
(define-key minibuffer-local-map [f3] (lambda () (interactive) (insert (buffer-name (current-buffer-not-mini))))) (defun current-buffer-not-mini () "Return current-buffer if current buffer is not the *mini-buffer* else return buffer before minibuf is activated." (if (not (window-minibuffer-p)) (current-buffer) (if (eq (get-lru-window) (next-window)) (window-buffer (prevIoUs-window)) (window-buffer (next-window)))))
(define-key minibuffer-local-map [f3] (lambda () (interactive) (insert (buffer-name))))
编辑:
正如在评论部分和其他地方所指出的,上面的代码段不起作用。 (对不起,我应该在发布之前测试过:)。一些修复已经发布;这里是另一个:
(define-key minibuffer-local-map [f3] (lambda () (interactive) (insert (buffer-name (window-buffer (minibuffer-selected-window))))))
关于发出shell命令的文件名完成,也许这个kludge可以工作(在Emacs 23.0.60上它适用于我):
(require 'shell) (define-key minibuffer-local-map (kbd "C-i") 'comint-dynamic-complete)