Как в Emacs повторять вызов функции по последней клавише?

https://github.com/abo-abo/hydra

Спасибо, но хотелось бы своё наколхозить.

https://www.gnu.org/software/emacs/manual/html_node/emacs/Repeating.html

Благодарю. Но!

Вместо:

C-x t C-x z z z

Хочется свой велосипед:

C-x t t t

Ну так в чем проблема-то? Не можете же вы быть не в курсе, что ГНУ Емакс — это свободная программа, и вы в полном праве взять из него кусочек, и адаптировать под свои нужды? :-)

https://github.com/abo-abo/hydra

Точно? Когда я в последний раз туда смотрел, мне показалось, что она для такого слишком жестка.

Проблема в том, что с данной задачей я раньше не сталкивался и, прежде чем копаться в исходниках самому, решил запросить помощь зала.

Проблема в том, что с данной задачей я раньше не сталкивался

Я тоже.

и, прежде чем копаться в исходниках самому, решил запросить помощь зала

Ну ок... В двадцать секунд я, правда, не уложусь, тут минут пять, наверное.

(defvar transpose-lines-map
  (let ((map (make-sparse-keymap)))
    (define-key map "t" #'transpose-lines)
    map))

(defun transpose-lines-dwim (arg)
  (interactive "*p")
  (transpose-lines arg)
  (set-transient-map transpose-lines-map t))

(define-key ctl-x-map "t" #'transpose-lines-dwim)

Премного благодарен!

Вы открыли для меня set-transient-map. С её помощью задача действительно решается тривиально.

С праздником ваших близких женщин :-)

Да всегда пожалуйста.

Вы открыли для меня set-transient-map

Ну, а вы для меня. :-) Как-то не доводилось смотреть ранее, как это С-x z z ... или C-x e e ... там сделано.

Но ничего, оно полезно было здесь это зафиксировать. Нагуглится кому надо будет.