Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-keys.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents ac2d302a0011
children 4103f0995bd7
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
1 ;;; $Id: hm--html-keys.el,v 1.1.1.2 1996/12/18 03:46:48 steve Exp $ 1 ;;; $Id: hm--html-keys.el,v 1.2 1997/02/16 01:29:08 steve Exp $
2 ;;; 2 ;;;
3 ;;; Copyright (C) 1995, 1996 Heiko Muenkel 3 ;;; Copyright (C) 1995, 1996, 1997 Heiko Muenkel
4 ;;; email: muenkel@tnt.uni-hannover.de 4 ;;; email: muenkel@tnt.uni-hannover.de
5 ;;; 5 ;;;
6 ;;; This program is free software; you can redistribute it and/or modify 6 ;;; This program is free software; you can redistribute it and/or modify
7 ;;; it under the terms of the GNU General Public License as published by 7 ;;; it under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 1, or (at your option) 8 ;;; the Free Software Foundation; either version 2, or (at your option)
9 ;;; any later version. 9 ;;; any later version.
10 ;;; 10 ;;;
11 ;;; This program is distributed in the hope that it will be useful, 11 ;;; This program is distributed in the hope that it will be useful,
12 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 12 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 ;;; Installation: 25 ;;; Installation:
26 ;;; 26 ;;;
27 ;;; Put this file in one of your load path directories. 27 ;;; Put this file in one of your load path directories.
28 ;;; 28 ;;;
29 29
30 ;; This is necessary to get the definition of hm--html-mode-prefix-key.
31 (require 'hm--html-configuration) 30 (require 'hm--html-configuration)
32 31
33 (if (adapt-emacs19p) 32 (if (adapt-emacs19p)
34 (progn 33 (progn
35 34
190 "Region sub keymap for inserting entities.") 189 "Region sub keymap for inserting entities.")
191 190
192 (if hm--html-region-structure-map 191 (if hm--html-region-structure-map
193 () 192 ()
194 (setq hm--html-region-structure-map (make-sparse-keymap)) 193 (setq hm--html-region-structure-map (make-sparse-keymap))
195 (define-key hm--html-noregion-structure-map 194 (define-key hm--html-region-structure-map
196 "i" 'hm--html-add-list-or-menu-item-to-region) 195 "i" 'hm--html-add-list-or-menu-item-to-region)
197 (define-key hm--html-region-structure-map "m" 'hm--html-add-menu-to-region) 196 (define-key hm--html-region-structure-map "m" 'hm--html-add-menu-to-region)
198 (define-key hm--html-region-structure-map "u" 'hm--html-add-list-to-region) 197 (define-key hm--html-region-structure-map "u" 'hm--html-add-list-to-region)
199 (define-key hm--html-region-structure-map 198 (define-key hm--html-region-structure-map
200 "o" 'hm--html-add-numberlist-to-region) 199 "o" 'hm--html-add-numberlist-to-region)