Заставь хиппи расширяться, чтобы уважать капитализацию

Question

Я хочу, чтобы хиппи-экспанд не давал мне дополнения, которые не соответствуют заглавной букве, которую я уже предоставил.Примеры:

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

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

Есть ли простой способ сделать это?

Answer 1

hippie-expand разбирает работу на функции из hippie-expand-try-functions-list, и я думаю, что каждая отдельная функция должна решать, считает ли она случай значительным, поэтому не может быть простого решения? 1003 *

Экспериментально переменная 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)