Mon, 30 Oct 2006

Самодисциплина

(defmacro disable-key (key alternative)
  `(global-set-key
	(kbd ,key)
	'(lambda () (interactive)
	   (message (format "%s is disabled, please try %s" ,key ,alternative)))))

(disable-key "<right>" "C-f")
(disable-key "<left>" "C-b")
(disable-key "<up>" "C-p")
(disable-key "<down>" "C-n")

17:06 | [] | # | (comments: 4)