emacs - 强制嬉皮扩展以尊重大写

Question

我想阻止 hippie-expand 给我提供与我已经提供的大写字母不匹配的补全。示例:

start with "hippie1", "Hippie2", and "HIPPIE3"

"H" completes to "Hippie2" and "HIPPIE3", but not "hippie1"

有没有一种简单的方法可以做到这一点？

Answer 1

hippie-expand 将工作外包给 hippie-expand-try-functions-list 中的函数，我认为这取决于每个单独的函数它是否认为案例很重要，所以可能没有简单的解决方案？

根据实验，case-fold-search 变量在某些情况下有效，但并非全部。

编辑:
嗯，这不是所述问题的最终解决方案，但是如果设置 case-fold-search 足以满足您的目的，您可以使用以下内容:

(defadvice hippie-expand (around hippie-expand-case-fold)
  "Try to do case-sensitive matching (not effective with all functions)."
  (let ((case-fold-search nil))
    ad-do-it))
(ad-activate 'hippie-expand)