[ новости /+++ | форум | теги | ]

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

Ключевые слова: emacs, rus,  (найти похожие документы)

Date: Mon, 23 Jul 2001 06:40:13 +0400
From: Boris Tobotras <Boris.Tobotras@f510.n5020.z2.fidonet.org>
Newsgroups: fido7.ru.linux
Subject: Управление курсором в емаксе при активной русской раскладке

Ivan> Привет All!  Печатаю в емаксе по русски, иногда надо курсором
Ivan> порулить, но все комбинации клавиш работают только с английскими
Ivan> буквами, а переключаться не хочу, ведь можно как-нибудь?


iso-control-hack.el:

;; This function is from XEmacs.
(defun x11-remap-keysyms-using-function-key-map (mapping)
  (while mapping
    (let ((k1 (car (car mapping)))
          (k2 (cdr (car mapping))))
      (mapcar (function (lambda (prefix)
                          (define-key function-key-map
                            (vector (append prefix (list k1)))
                            (vector (append prefix (list k2))))))
              '((shift) (control) (meta) (alt)
                (shift control) (shift alt) (shift meta)
                (control alt) (control meta) (alt meta)
                (shift control alt) (shift control meta)
                (shift alt meta) (control alt meta)
                (shift control alt meta))
              ))
    (setq mapping (cdr mapping))))

;; Map Latin1 symbols with modifiers back to ASCII symbols.
(x11-remap-keysyms-using-function-key-map         
 '((AE          . ?a)
   (Eacute      . ?b)
   (Oacute      . ?c)
   (multiply    . ?d)
   (Otilde      . ?e)
   (Aacute      . ?f)
   (ETH         . ?g)
   (Ograve      . ?h)
   (Ucircumflex . ?i)
   (Idiaeresis  . ?j)
   (Igrave      . ?k)
   (Adiaeresis  . ?l)
   (Ooblique    . ?m)
   (Ocircumflex . ?n)
   (Yacute      . ?o)
   (Uacute      . ?p)
   (Ecircumflex . ?q)
   (Ediaeresis  . ?r)
   (Ugrave      . ?s)
   (Aring       . ?t)
   (Ccedilla    . ?u)
   (Iacute      . ?v)
   (Atilde      . ?w)
   (THORN       . ?x)
   (Icircumflex . ?y)
   (Ntilde      . ?z)
   (ae          . ?A)
   (eacute      . ?B)
   (oacute      . ?C)
   (division    . ?D)
   (otilde      . ?E)
   (aacute      . ?F)
   (eth         . ?G)
   (ograve      . ?H)
   (ucircumflex . ?I)
   (idiaeresis  . ?J)
   (igrave      . ?K)
   (adiaeresis  . ?L)
   (oslash      . ?M)
   (ocircumflex . ?N)
   (yacute      . ?O)
   (uacute      . ?P)
   (ecircumflex . ?Q)
   (ediaeresis  . ?R)
   (ugrave      . ?S)
   (aring       . ?T)
   (ccedilla    . ?U)
   (iacute      . ?V)
   (atilde      . ?W)
   (thorn       . ?X)
   (icircumflex . ?Y)
   (ntilde      . ?Z)
   (egrave       . ?{)
   (ydiaeresis   . ?})
   (odiaeresis   . ?:)
   (udiaeresis   . ?\")
   (acircumflex  . ?<)
   (agrave       . ?>)
   (exclamdown   . ??)
   (quotedbl     . ?@)
   (percent      . ?$)
   (colon        . ?%)
   (comma        . ?^)
   (period       . ?&)
   (semicolon    . ?\;)
   (Egrave       . ?\[)
   (ssharp       . ?\])
   (Odiaeresis   . ?\;)
   (Udiaeresis   . ?')
   (Acircumflex  . ?,)
   (Agrave       . ?.)
   (ntilde       . ?/)))


(provide 'iso-control-hack)


-- 
	Best regards, -- Boris.

Anything that can go wr
fortune: Segmentation violation (core dumped)

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

Партнёры:

Хостинг: