Тема: Что писать в initget
Считаю, что вариант
(initget "Да Нет Yes No _ Y N Y N") (setq will_draw (getkword "\nБудем рисовать [Да/Нет] <Да>? : "))
не совсем идеологически выдержан.
Раз запрос идет на русском, то и ответ пользователя должен быть на русском. Собственно, опциями Да/Нет мы его к этому и побуждаем. Т.е. пользователь должен давить клавиши на которых присутствует русская "Д" или "Н" и хорошо, если при этом ему не нужно заботиться о текущей раскладке клавиатуры.
Более того, то что "Да" - это "Yes" может пользователь и знает, но в общем случае английский эквивалент русских опций ему в принципе неведом. А потому, в данном случае, правильным для приложения с русским интерфейсом считаю следующее инвариантное к текущей раскладке клавиатуры написание:
(initget "Да Нет Lf Ytn _ Y N Y N") (setq will_draw (getkword "\nБудем рисовать [Да/Нет] <Да>? : "))
А для приложения с английским интерфейсом соответственно:
(initget "Yes No Нуы Тщ _ Y N Y N") (setq will_draw (getkword "\nContinue [Yes/No] <Yes>? : "))
Могу ошибаться.