ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Boris Tobotras                       2:5020/510     23 Jul 2001  07:40:13
 To : Ivan Afanasjev
 Subject : Re: рулить курсором в емаксе
 -------------------------------------------------------------------------------- 
 

 .RFC-X-Complaints-To: news@xtalk.msk.su
 .RFC-NNTP-Posting-Date: 23 Jul 2001 03:40:13 GMT
 
 >>>>> "Ivan" == Ivan Afanasjev writes:
 
 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)
 --- Gnus v5.6.45/XEmacs 21.1 - "Channel Islands"
  * Origin: Linux inside (2:5020/510@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    рулить курсором в емаксе   Ivan Afanasjev   21 Jul 2001 23:01:32   Re: рулить курсором в емаксе   Eugene Kuzin   22 Jul 2001 10:20:22   Re: рулить курсором в емаксе    Evgenij M. Baldin   23 Jul 2001 14:10:01   Re: рулить курсором в емаксе   Boris Tobotras   23 Jul 2001 07:40:13