Re: Cyrillic letters abort i-search sometimes

VK> If there's no a better way for two days, I'll post a quick Russian VK> work-around, as described before. I decided not to wait and wrote it now. It works here. =)) ---Vas --8<------------------------schnipp------------------------->8--- ;; isearch in XEmacs (at least, up to 21.4.11) is broken: in modes, that ;; have (suppress-keymap ...) in their map, it can accept only ASCII ;; letters. This hack seems to fix it. ;; Public domain. Originally by Vasily Korytov. ;; I use Russian letters and keysums. If you don't, change this: ;; (defconst self-insert-list (list 'Cyrillic_IO 'Ё 'Cyrillic_io 'ё 'Cyrillic_SHORTI 'Й 'Cyrillic_shorti 'й 'Cyrillic_TSE 'Ц 'Cyrillic_tse 'ц 'Cyrillic_U 'У 'Cyrillic_u 'у 'Cyrillic_KA 'К 'Cyrillic_ka 'к 'Cyrillic_IE 'Е 'Cyrillic_ie 'е 'Cyrillic_EN 'Н 'Cyrillic_en 'н 'Cyrillic_GHE 'Г 'Cyrillic_ghe 'г 'Cyrillic_SHA 'Ш 'Cyrillic_sha 'ш 'Cyrillic_SHCHA 'Щ 'Cyrillic_shcha 'щ 'Cyrillic_ZE 'З 'Cyrillic_ze 'з 'Cyrillic_HA 'Х 'Cyrillic_ha 'х 'Cyrillic_HARDSIGN 'Ъ 'Cyrillic_hardsign 'ъ 'Cyrillic_EF 'Ф 'Cyrillic_ef 'ф 'Cyrillic_YERU 'Ы 'Cyrillic_yeru 'ы 'Cyrillic_VE 'В 'Cyrillic_ve 'в 'Cyrillic_A 'А 'Cyrillic_a 'а 'Cyrillic_PE 'П 'Cyrillic_pe 'п 'Cyrillic_ER 'Р 'Cyrillic_er 'р 'Cyrillic_O 'О 'Cyrillic_o 'о 'Cyrillic_EL 'Л 'Cyrillic_el 'л 'Cyrillic_DE 'Д 'Cyrillic_de 'д 'Cyrillic_ZHE 'Ж 'Cyrillic_zhe 'ж 'Cyrillic_E 'Э 'Cyrillic_e 'э 'Cyrillic_YA 'Я 'Cyrillic_ya 'я 'Cyrillic_CHE 'Ч 'Cyrillic_che 'ч 'Cyrillic_ES 'С 'Cyrillic_es 'с 'Cyrillic_EM 'М 'Cyrillic_em 'м 'Cyrillic_I 'И 'Cyrillic_i 'и 'Cyrillic_TE 'Т 'Cyrillic_te 'т 'Cyrillic_SOFTSIGN 'Ь 'Cyrillic_softsign 'ь 'Cyrillic_BE 'Б 'Cyrillic_be 'б 'Cyrillic_YU 'Ю 'Cyrillic_yu 'ю ) "List of non-ASCII letters, that are in use.") (let ((list self-insert-list)) (while list (define-key isearch-mode-map (car list) 'isearch-printing-char) (setq list (cdr list)))) (provide 'isearch-vk-fix-keymap) --8<------------------------schnapp------------------------->8---