Anotheroneuser> Бывают проблемы с лексикой и надо переместить слово в в другой конец предложения. Может быть, есть для этого удобное сокращение?

(defun setup-move-code-block ()
    "Enable code moving like as Sublime."
    (defun move-text-internal (arg)
        (cond
         ((and mark-active transient-mark-mode)
          (if (> (point) (mark))
                  (exchange-point-and-mark))
          (let ((column (current-column))
                (text (delete-and-extract-region (point) (mark))))
              (forward-line arg)
              (move-to-column column t)
              (set-mark (point))
              (insert text)
              (exchange-point-and-mark)
              (setq deactivate-mark nil)))
         (t
          (beginning-of-line)
          (when (or (> arg 0) (not (bobp)))
              (forward-line)
              (when (or (< arg 0) (not (eobp)))
                  (transpose-lines arg))
              (forward-line -1)))))

    (defun move-text-down (arg)
        "Move region (transient-mark-mode active) or current line
  arg lines down."
        (interactive "*p")
        (move-text-internal arg))

    (defun move-text-up (arg)
        "Move region (transient-mark-mode active) or current line
  arg lines up."
        (interactive "*p")
        (move-text-internal (- arg)))

    (global-set-key [\M-\S-up] 'move-text-up)
    (global-set-key [\M-\S-down] 'move-text-down))

> C-w C-y

Anotheroneuser> Нажал по неопытности -- херак! -- полтекста исчезло. Слава Богу, помнил C-x u
Anotheroneuser> Потом вспомнил, что это просто копировать-вставить.

Anotheroneuser> Вот просто ради интереса: там везде говорится up и down, но нигде не сказано right и left )
Anotheroneuser> В right и в left слова можно двигать?

            Before C-S-right

           +----------+           +----------+         +----------+
           | word A   |           | word B   |         | word C   |
           |          +-----+-----+          +---------+          |
           +----------+     |     +----------+         +----------+
                            |
                            |
                            |
            After C-S-right |
                            |
           +----------+     |     +----------+         +----------+
           | word B   |     |     | word A   |         | word C   |
           |          +-----+-----+          +---------+          |
           +----------+           +----------+         +----------+

> Извини

> написать можно

Anotheroneuser> Ничего не нашёл, кроме -- менять слова местами по M-t

> C-u 4 M-t

> Ща ноут у жены отберу и попробую накидать :)

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)

> довольно объемный кейбиндинг

Anotheroneuser> Работает! ) Только пока не до конца понятно.
Anotheroneuser> Вот какое выходит кино:
Anotheroneuser> https://yadi.sk/i/1fvUwhTP3aQWzM

Anotheroneuser>> Ничего не нашёл, кроме -- менять слова местами по M-t
btimofeev> А чем оно тебе не подходит? Судя по справке это то, что тебе и нужно. К примеру C-u 4 M-t передвинет слово вперёд через 4 слова, C-u - 4 M-t назад через 4 слова. Правда довольно объемный кейбиндинг выходит, возможно можно как-то переопределить покороче.

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

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

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

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

Difrex> (setup-move-words)
Difrex> ====
Difrex> По ctrl+shift+стрелка вправо двигаем слово на право, со стрелкой влево - влево =)

Всё оказалось даже проще, чем я думал =)

Emacs мощен, блин.