Re: Keybindings

[Boris Tobotras <boris@xtalk.msk.su>]

On Tue, 22 Sep 1998 19:33:51 +0400, Paul Anni wrote:

> Коллеги,
> 
> А может быть, кто-то уже не поленился и написал привязки по клавишам
> для Emacs хотя бы для некоторых элементов TEItools? Буду премного
> благодарен (и, надеюсь, не я один).

(add-hook 'sgml-mode-hook 'My-SGML-Keymap)


(defun My-SGML-keymap ()
  (local-set-key [(alt i)] 
		 '(lambda ()
		    (interactive)
		    (sgml-indent-line)
		    (insert "\n\n<item> ")
		    (sgml-indent-line)))
  (local-set-key [(alt l)] 
		 '(lambda ()
		    (interactive)
		    (insert "<list>\n\n<item> ")
		    (sgml-indent-line)))
  (local-set-key [(alt p)]
		 '(lambda ()
		    (interactive)
		    (sgml-indent-line)
		    (insert "\n\n<p> ")
		    (sgml-indent-line)))
  
  )


	Ну, и так далее, по образу и подобию. (meta X) вместо (alt X), 
например.

	Можно лучше. Но лень.
-- 
	Best regards, -- Boris.