= Сообщение: 6691 из 8279 ========================================= RU.LINUX = От : Roman Lagunov 2:450/42.101 28 Dec 02 00:54:46 Кому : Evgenij M. Baldin 28 Dec 02 00:54:46 Тема : Вопрос про рус<->лат в emacs, но не про переключалку :) FGHI : area://RU.LINUX?msgid=2:450/42.101+3e0cb021 На : area://RU.LINUX?msgid=sky.inp.nsk.su+d2d565ed = Кодировка сообщения определена как: CP866 ================================== Ответ: area://RU.LINUX?msgid=sky.inp.nsk.su+24f430d0 ============================================================================== Hello Evgenij.
27 Dec 02 08:58, Evgenij M. Baldin wrote to All:
EB> Довольно часто что-нибудь пишешь и обнаруживаешь, что забыл EB> переключить регистр, приходится перебивать заново.
EB> Лениво разбираться, потому обращаюсь ко всезнающему сообществу: EB> поделиться примером для .emacs, где есть функция, которая производит EB> преобразование выделенного фрагмента.
EB> Hапример я написал следующее:
EB> Yfghbvth z yfgbcfk cktle.ott:
EB> Две вышеупомянутые фразы одно и то же, но во втором случае я не сменил EB> регистр.
(defun my-latcyr-recode () "Преобразование ASDF-ФЫВА в выделенном тексте, или в слове под курсором" (interactive) (let (text (bounds (if (region-exists-p) (cons (region-beginning)(region-end)) (bounds-of-thing-at-point 'word)))) (when bounds (setq text (buffer-string (car bounds)(cdr bounds))) (delete-region (car bounds)(cdr bounds)) (insert-string (concat (mapcar (lambda (char) (or (car (quail-lookup-key (string char))) char)) text))))))
Правда, это для XEmacs.
Roman
... Широко известный в узких кругах. --- GoldED+/LNX 1.1.5 * Origin: Powered by Debian GNU/Linux 3.0 aka Woody (2:450/42.101)
