(let ((char ?a))
(while (< char ?z)
(global-set-key (list 'control 'alt char)
`(lambda () (jump-to-register ,char)))
(incf char)))
Но такие штуки в ``Programming in Emacs Lisp: An Introduction'', насколько я
помню, не описывают.
Хотя для любого, кто желает что-то делать на Лиспе, оное введение прочитать
просто необходимо.
Коля.
intro: "DD" == Denis Dzyubenko <shad(a)mail.kubtelecom.ru> writes:
DD> On Fri, 13 Jun 2003 18:58:53 +0400, Vasily Korytov(VK) wrote to xemacs:
VK> A -- это M, Meta, то есть?
DD> нет, Meta у меня клавиша Win; A - это left alt
>> нужно что-то вроде for i in [a-z] do (global-set-key i
'(lambda ()
>> (jump-to-register i))) done
VK> let и while спасут благородного дона. А вообще, марш читать хотя бы
VK> ``Programming in Emacs Lisp: An Introduction'' by Robert J. Chassell.
VK> Берется с любого зеркала GNU.
DD> все никак не хватает времени почитать :( может подскажете в двух словах?
DD> -- Denis.
DD> Нет, я не хакер, просто плохо спал...