2

如果我dabbrev-expand用于扩展，Emacs 会搜索当前缓冲区，然后搜索具有相同模式的其他缓冲区。这是dabbrev-friend-buffer-function由默认设置为处理的dabbrev--same-major-mode-p。

这工作正常，但我想使用hippie-expand.

(setq hippie-expand-try-functions-list
  '(try-expand-dabbrev
    try-expand-dabbrev-all-buffers))

这会从所有缓冲区中提取完成，即使是与我当前的主要模式不匹配的缓冲区。

如何使用hippie-expand仅来自使用与当前缓冲区相同主模式的缓冲区的 dabbrev 补全？

4

2 回答 2

2

快速而肮脏的解决方案：将函数的源代码复制try-expand-dabbrev-all-buffers到新位置，将其重命名 (say) try-expand-dabbrev-all-buffers-same-mode，并将表达式替换为(buffer-list)表达式：

(remove-if-not (lambda (x) (eq major-mode (with-current-buffer x major-mode)))
               (buffer-list))

（您需要(require 'cl)get remove-if-not，或者根据mapcarand重新实现它delq。）

然后，当然，替换try-expand-dabbrev-all-buffers为try-expand-dabbrev-all-buffers-same-modein hippie-expand-try-functions-list。

你可以得到try-expand-dabbrev-all-buffers使用的来源C-hf。

于 2012-12-19T18:11:54.650 回答
1

基于 Sean 的出色建议（并假设您安装了dash.el list 实用程序库）：

(autoload '--filter "dash" nil t)

;; only consider buffers in the same mode with try-expand-dabbrev-all-buffers
(defun try-expand-dabbrev-matching-buffers (old)
  (let ((matching-buffers (--filter
                           (eq major-mode (with-current-buffer it major-mode))
                           (buffer-list))))
    (flet ((buffer-list () matching-buffers))
      (try-expand-dabbrev-all-buffers old))))
于 2012-12-19T18:46:41.017 回答