Anotheroneuser> > Ща ноут у жены отберу и попробую накидать :)
Anotheroneuser> Слушай, может не стоит так рисковать?? Фиг с ним. Выйдем из положения))

(defun setup-move-words ()
    "Move word right or left."

    (defun move-word-right (arg)
        "Move word to right."
        (interactive "*p")
        (transpose-words 1))

    (defun move-word-left (arg)
        "Move word to left."
        (interactive "*p")
        (transpose-words -1))

    (global-set-key [\C-\S-right] 'move-word-right)
    (global-set-key [\C-\S-left] 'move-word-left))

(setup-move-words)