Прикольный способ для изготовления кнопок с переключателем в emacs

key-redefine-trick.el

;; Когда ты нажимаешь на кнопку в первый раз, выполняется функция,
;; которая делает то, что ей положено (в этом примере - начинает
;; записывать макрос) и переопределяет клавишу по которой была
;; вызвана функция на другую функцию (в этом примере - остановка записи 
;; макроса).

(defun toggle-kbd-macro-recording-on ()
  "One-key keyboard macros: turn recording on."
  (interactive)
  (define-key global-map (this-command-keys) ; <= HERE
    'toggle-kbd-macro-recording-off)
  (start-kbd-macro nil))

(defun toggle-kbd-macro-recording-off ()
  "One-key keyboard macros: turn recording off."
  (interactive)
  (define-key global-map (this-command-keys) ; <= HERE
    'toggle-kbd-macro-recording-on)
  (end-kbd-macro))

(global-set-key '[(f1)]          'call-last-kbd-macro)
(global-set-key '[(shift f1)]    'toggle-kbd-macro-recording-on)

;; via http://www.emacswiki.org/emacs/KeyboardMacros