5:01 p.m.
>>>> "SJT" == Stephen J Turnbull writes:
I've finally guessed. =))
SJT> AFAIK isearch does not override global-map as a whole.
Yes, and it's the problem. (suppress-keymap ...) in a nutshell undefines
all Cyrillic keys (as well as ASCII ones) -- but isearch, when called
From a mode with such a map, needs them -- and doesn't know, how to
restore them.
There's a block in isearch-mode.el:
--8<------------------------schnipp------------------------->8---
;; Bind all printing characters to `isearch-printing-char'.
;; This isn't normally necessary, but if a printing character were
;; bound to something other than self-insert-command in global-map,
;; then it would terminate the search and be executed without this.
(let ((i 32)
(str (make-string 1 0)))
(while (< i 127)
(aset str 0 i)
(define-key map str 'isearch-printing-char)
(setq i (1+ i))))
--8<------------------------schnapp------------------------->8---
Is seems, the only thing one needs is to add Cyrillic initialization
there. =)) I can write mapping for all letters keysums, as Stephen
suggests, like this:
(define-key isearch-mode-map [т] 'isearch-printing-char)
But would it be grecefil? IIRC, GNU Emacs doesn't have this problem. Can
anyone say, how this case is worked around there? If there's no a better
way for two days, I'll post a quick Russian work-around, as described
before.
---Vas
6:24 p.m.
New subject: Cyrillic letters abort i-search sometimes
>>>> "VK" == Vasily Korytov writes:
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---
5:01 p.m.
New subject: Cyrillic letters abort i-search sometimes
>>>> "SJT" == Stephen J Turnbull writes:
I've finally guessed. =))
SJT> AFAIK isearch does not override global-map as a whole.
Yes, and it's the problem. (suppress-keymap ...) in a nutshell undefines
all Cyrillic keys (as well as ASCII ones) -- but isearch, when called
From a mode with such a map, needs them -- and doesn't know, how to
restore them.
There's a block in isearch-mode.el:
--8<------------------------schnipp------------------------->8---
;; Bind all printing characters to `isearch-printing-char'.
;; This isn't normally necessary, but if a printing character were
;; bound to something other than self-insert-command in global-map,
;; then it would terminate the search and be executed without this.
(let ((i 32)
(str (make-string 1 0)))
(while (< i 127)
(aset str 0 i)
(define-key map str 'isearch-printing-char)
(setq i (1+ i))))
--8<------------------------schnapp------------------------->8---
Is seems, the only thing one needs is to add Cyrillic initialization
there. =)) I can write mapping for all letters keysums, as Stephen
suggests, like this:
(define-key isearch-mode-map [т] 'isearch-printing-char)
But would it be grecefil? IIRC, GNU Emacs doesn't have this problem. Can
anyone say, how this case is worked around there? If there's no a better
way for two days, I'll post a quick Russian work-around, as described
before.
---Vas
8337
days inactive
8338
days old
2 comments
2 participants
participants (2)
-
Stephen J. Turnbull -
Vasily Korytov