Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-keys.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 1856695b1fa9
children
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
1 ;;; $Id: hm--html-keys.el,v 1.6 1997/05/09 03:28:00 steve Exp $ 1 ;;; $Id: hm--html-keys.el,v 1.7 1997/05/29 23:49:42 steve Exp $
2 ;;; 2 ;;;
3 ;;; Copyright (C) 1995, 1996, 1997 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
123 (define-key hm--html-noregion-frame-map "a" 'hm--html-add-address) 123 (define-key hm--html-noregion-frame-map "a" 'hm--html-add-address)
124 (define-key hm--html-noregion-frame-map "s" 'hm--html-add-signature) 124 (define-key hm--html-noregion-frame-map "s" 'hm--html-add-signature)
125 (define-key hm--html-noregion-frame-map 125 (define-key hm--html-noregion-frame-map
126 [(control c)] 'hm--html-insert-created-comment) 126 [(control c)] 'hm--html-insert-created-comment)
127 (define-key hm--html-noregion-frame-map "c" 'hm--html-insert-changed-comment) 127 (define-key hm--html-noregion-frame-map "c" 'hm--html-insert-changed-comment)
128 (define-key hm--html-noregion-frame-map
129 [(control m)] 'hm--html-insert-modified-line)
128 (define-key hm--html-noregion-frame-map "d" 'hm--html-new-date) 130 (define-key hm--html-noregion-frame-map "d" 'hm--html-new-date)
129 ) 131 )
130 132
131 (defvar hm--html-region-frame-map nil 133 (defvar hm--html-region-frame-map nil
132 "Region sub keymap for inserting frame elements.") 134 "Region sub keymap for inserting frame elements.")
216 [(meta d)] 'hm--html-add-document-division-to-region) 218 [(meta d)] 'hm--html-add-document-division-to-region)
217 ) 219 )
218 220
219 (defvar hm--html-noregion-formatting-paragraph-map nil 221 (defvar hm--html-noregion-formatting-paragraph-map nil
220 "Noregion sub keymap for inserting paragraph formatting elements.") 222 "Noregion sub keymap for inserting paragraph formatting elements.")
221 (define-obsolete-variable-alias
222 'hm--html-noregion-formating-paragraph-map
223 'hm--html-noregion-formatting-paragraph-map)
224 223
225 (if hm--html-noregion-formatting-paragraph-map 224 (if hm--html-noregion-formatting-paragraph-map
226 () 225 ()
227 (setq hm--html-noregion-formatting-paragraph-map (make-sparse-keymap)) 226 (setq hm--html-noregion-formatting-paragraph-map (make-sparse-keymap))
228 ; (define-key hm--html-noregion-formatting-paragraph-map 227 ; (define-key hm--html-noregion-formatting-paragraph-map
245 ; "a" 'hm--html-add-abstract) 244 ; "a" 'hm--html-add-abstract)
246 ) 245 )
247 246
248 (defvar hm--html-region-formatting-paragraph-map nil 247 (defvar hm--html-region-formatting-paragraph-map nil
249 "Region sub keymap for inserting paragraph formatting elements.") 248 "Region sub keymap for inserting paragraph formatting elements.")
250 (define-obsolete-variable-alias
251 'hm--html-region-formating-paragraph-map
252 'hm--html-region-formatting-paragraph-map)
253 249
254 (if hm--html-region-formatting-paragraph-map 250 (if hm--html-region-formatting-paragraph-map
255 () 251 ()
256 (setq hm--html-region-formatting-paragraph-map (make-sparse-keymap)) 252 (setq hm--html-region-formatting-paragraph-map (make-sparse-keymap))
257 ; (define-key hm--html-region-formatting-paragraph-map 253 ; (define-key hm--html-region-formatting-paragraph-map
274 ; "a" 'hm--html-add-abstract-to-region) 270 ; "a" 'hm--html-add-abstract-to-region)
275 ) 271 )
276 272
277 (defvar hm--html-noregion-formatting-word-map nil 273 (defvar hm--html-noregion-formatting-word-map nil
278 "Norgion sub keymap for inserting physical text formatting elements.") 274 "Norgion sub keymap for inserting physical text formatting elements.")
279 (define-obsolete-variable-alias
280 'hm--html-noregion-formating-word-map
281 'hm--html-noregion-formatting-word-map)
282 275
283 (if hm--html-noregion-formatting-word-map 276 (if hm--html-noregion-formatting-word-map
284 () 277 ()
285 (setq hm--html-noregion-formatting-word-map (make-sparse-keymap)) 278 (setq hm--html-noregion-formatting-word-map (make-sparse-keymap))
286 (define-key hm--html-noregion-formatting-word-map 279 (define-key hm--html-noregion-formatting-word-map
307 "\M-b" 'hm--html-add-big) 300 "\M-b" 'hm--html-add-big)
308 ) 301 )
309 302
310 (defvar hm--html-region-formatting-word-map nil 303 (defvar hm--html-region-formatting-word-map nil
311 "Region sub keymap for inserting word text formatting elements.") 304 "Region sub keymap for inserting word text formatting elements.")
312 (define-obsolete-variable-alias
313 'hm--html-region-formating-word-map
314 'hm--html-region-formatting-word-map)
315 305
316 (if hm--html-region-formatting-word-map 306 (if hm--html-region-formatting-word-map
317 () 307 ()
318 (setq hm--html-region-formatting-word-map (make-sparse-keymap)) 308 (setq hm--html-region-formatting-word-map (make-sparse-keymap))
319 (define-key hm--html-region-formatting-word-map 309 (define-key hm--html-region-formatting-word-map
752 (define-key hm--html-minor-region-mode-map 742 (define-key hm--html-minor-region-mode-map
753 hm--html-minor-mode-prefix-key hm--html-region-sub-map) 743 hm--html-minor-mode-prefix-key hm--html-region-sub-map)
754 (if (adapt-xemacsp) 744 (if (adapt-xemacsp)
755 (progn 745 (progn
756 (define-key hm--html-minor-region-mode-map 746 (define-key hm--html-minor-region-mode-map
757 '(button3) 'hm--html-popup-menu-region) 747 '(button3) 'hm--html-popup-minor-html-menu-region)
758 (define-key hm--html-minor-region-mode-map 748 (define-key hm--html-minor-region-mode-map
759 [(meta control button1)] 'idd-mouse-drag-and-drop)) 749 [(meta control button1)] 'idd-mouse-drag-and-drop))
760 (if hm--html-expert 750 (if hm--html-expert
761 (define-key hm--html-minor-region-mode-map 751 (define-key hm--html-minor-region-mode-map
762 hm--html-emacs19-popup-region-menu-button 752 hm--html-emacs19-popup-region-menu-button