Re: [Blinux-rus] Russian input feedback in Emacspeak

2009-01-07 Пенетрантность Igor B. Poretsky
Здравствуйте!

 Дмитрий == Дмитрий Падучих dpad...@k66.ru writes:

Дмитрий Мне вообще не очень понятно, зачем была нужна эта
Дмитрий фича. Но если уж её делать, то лучше написать так:

Дмитрий (dtk-speak (key-description ad-return-value))

Дмитрий Иначе на C-SPC, например, вы получите [67108896].

А как бы это можно было бы проверить?

С уважением,
Игорь.
-- 
Blinux-rus mailing list
Blinux-rus@lists.a11ywiki.org
http://www.a11ywiki.org/cgi-bin/mailman/listinfo/blinux-rus

Re: [Blinux-rus] Russian input feedback in Emacspeak

2009-01-07 Пенетрантность Дмитрий Падучих
Igor B. Poretsky:

 (dtk-speak (key-description ad-return-value))
 Иначе на C-SPC, например, вы получите [67108896].

IP А как бы это можно было бы проверить?

Например, набрать в *scratch*:

(read-key-sequence Press: ) C-j

и нажать C-SPC. В иксах получается [67108896]. Если хотите послушать, как
это проговаривает адвайс, наберите:

(prog1 (read-key-sequence Press: ) (sit-for 11)) C-j

-- 
Дмитрий Падучих
-- 
Blinux-rus mailing list
Blinux-rus@lists.a11ywiki.org
http://www.a11ywiki.org/cgi-bin/mailman/listinfo/blinux-rus

Re: [Blinux-rus] Russian input feedback in Emacspeak

2009-01-06 Пенетрантность Дмитрий Падучих
Igor B. Poretsky:

IP Я выяснил, что речевому серверу при включенном русском вводе помимо
IP обычных команд типа l для обеспечения эха ввода посылаются еще и
IP последовательности команд q и d для произношения оригинальных
IP названий клавиш. Очень бы хотелось избавиться от этой пакости. Быть
IP может, кто-нибудь что-нибудь полезное подскажет? Как и где бы найти
IP источник?

Попробуйте вычислить приведённые ниже выражения и поэкспериментировать со
вводом русского текста в буфере TEST (большими буквами). В результате на
каждый вызов dtk-speak у вас будет бэктрейс в переменной my-dtk-speak-trace.
Вы эту переменную потом посмотрите и узнаете, откуда идут вызовы dtk-speak.
Надеюсь, что результатами поделитесь, мне тоже было бы интересно узнать, в
чём дело. У меня этого нет.

(defvar my-dtk-speak-trace nil)

(defadvice dtk-speak (after trace pre act comp)
  (when (string= (buffer-name) TEST)
(let ((n 1) (frame nil) (trace nil))
  (setq frame (backtrace-frame n))
  (while frame
(push frame trace)
(setq n (+ n 1))
(setq frame (backtrace-frame n)))
  (push trace my-dtk-speak-trace

-- 
Дмитрий Падучих
-- 
Blinux-rus mailing list
Blinux-rus@lists.a11ywiki.org
http://www.a11ywiki.org/cgi-bin/mailman/listinfo/blinux-rus

Re: [Blinux-rus] Russian input feedback in Emacspeak

2009-01-06 Пенетрантность Igor B. Poretsky
Здравствуйте!

 Дмитрий == Дмитрий Падучих dpad...@k66.ru writes:

Дмитрий В версии Emacspeak из Subversion этот вызов уже
Дмитрий закомментирован:

Дмитрий (defadvice read-key-sequence(around emacspeak pre act )

Весь? А зачем? Его ведь достаточно лишь слегка подправить, что я уже и
сделал. И заплатку сейчас выложу.

С уважением,
Игорь.
-- 
Blinux-rus mailing list
Blinux-rus@lists.a11ywiki.org
http://www.a11ywiki.org/cgi-bin/mailman/listinfo/blinux-rus

Re: [Blinux-rus] Russian input feedback in Emacspeak

2009-01-06 Пенетрантность Дмитрий Падучих
Igor B. Poretsky:

 В версии Emacspeak из Subversion этот вызов уже закомментирован:
 (defadvice read-key-sequence(around emacspeak pre act )

IP Весь? А зачем? Его ведь достаточно лишь слегка подправить, что я уже и
IP сделал. И заплатку сейчас выложу.

Мне вообще не очень понятно, зачем была нужна эта фича. Но если уж её
делать, то лучше написать так:

(dtk-speak (key-description ad-return-value))

Иначе на C-SPC, например, вы получите [67108896].

-- 
Дмитрий Падучих
-- 
Blinux-rus mailing list
Blinux-rus@lists.a11ywiki.org
http://www.a11ywiki.org/cgi-bin/mailman/listinfo/blinux-rus