Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-keys.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 4be1180a9e89
children 9f59509498e1
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
1 ;;; $Id: hm--html-keys.el,v 1.3 1997/02/24 01:13:27 steve Exp $ 1 ;;; $Id: hm--html-keys.el,v 1.4 1997/02/27 06:08:09 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
55 (define-key hm--html-noregion-anchor-map "g" 'hm--html-add-gopher-link) 55 (define-key hm--html-noregion-anchor-map "g" 'hm--html-add-gopher-link)
56 (define-key hm--html-noregion-anchor-map "f" 'hm--html-add-file-link) 56 (define-key hm--html-noregion-anchor-map "f" 'hm--html-add-file-link)
57 (define-key hm--html-noregion-anchor-map "\C-f" 'hm--html-add-ftp-link) 57 (define-key hm--html-noregion-anchor-map "\C-f" 'hm--html-add-ftp-link)
58 (define-key hm--html-noregion-anchor-map "n" 'hm--html-add-news-link) 58 (define-key hm--html-noregion-anchor-map "n" 'hm--html-add-news-link)
59 (define-key hm--html-noregion-anchor-map "m" 'hm--html-add-mail-link) 59 (define-key hm--html-noregion-anchor-map "m" 'hm--html-add-mail-link)
60 ; (define-key hm--html-noregion-anchor-map "\C-m" 'hm--html-add-mailto-link)
61 (define-key hm--html-noregion-anchor-map 60 (define-key hm--html-noregion-anchor-map
62 [(control m)] 'hm--html-add-mailto-link) 61 [(control m)] 'hm--html-add-mailto-link)
63 (define-key hm--html-noregion-anchor-map "w" 'hm--html-add-direct-wais-link) 62 (define-key hm--html-noregion-anchor-map "w" 'hm--html-add-direct-wais-link)
64 (define-key hm--html-noregion-anchor-map "\C-w" 'hm--html-add-wais-link) 63 (define-key hm--html-noregion-anchor-map "\C-w" 'hm--html-add-wais-link)
65 (define-key hm--html-noregion-anchor-map "p" 'hm--html-add-proggate-link) 64 (define-key hm--html-noregion-anchor-map "p" 'hm--html-add-proggate-link)
84 (define-key hm--html-region-anchor-map "f" 'hm--html-add-file-link-to-region) 83 (define-key hm--html-region-anchor-map "f" 'hm--html-add-file-link-to-region)
85 (define-key hm--html-region-anchor-map 84 (define-key hm--html-region-anchor-map
86 "\C-f" 'hm--html-add-ftp-link-to-region) 85 "\C-f" 'hm--html-add-ftp-link-to-region)
87 (define-key hm--html-region-anchor-map "n" 'hm--html-add-news-link-to-region) 86 (define-key hm--html-region-anchor-map "n" 'hm--html-add-news-link-to-region)
88 (define-key hm--html-region-anchor-map "m" 'hm--html-add-mail-link-to-region) 87 (define-key hm--html-region-anchor-map "m" 'hm--html-add-mail-link-to-region)
89 ; (define-key hm--html-region-anchor-map
90 ; "\C-m" 'hm--html-add-mailto-link-to-region)
91 (define-key hm--html-region-anchor-map 88 (define-key hm--html-region-anchor-map
92 [(control m)] 'hm--html-add-mailto-link-to-region) 89 [(control m)] 'hm--html-add-mailto-link-to-region)
93 (define-key hm--html-region-anchor-map 90 (define-key hm--html-region-anchor-map
94 "w" 'hm--html-add-direct-wais-link-to-region) 91 "w" 'hm--html-add-direct-wais-link-to-region)
95 (define-key hm--html-region-anchor-map 92 (define-key hm--html-region-anchor-map
109 106
110 (if hm--html-noregion-frame-map 107 (if hm--html-noregion-frame-map
111 () 108 ()
112 (setq hm--html-noregion-frame-map (make-sparse-keymap)) 109 (setq hm--html-noregion-frame-map (make-sparse-keymap))
113 (define-key hm--html-noregion-frame-map "f" 'hm--html-add-full-html-frame) 110 (define-key hm--html-noregion-frame-map "f" 'hm--html-add-full-html-frame)
111 (define-key hm--html-noregion-frame-map [(control d)] 'hm--html-add-doctype)
114 (define-key hm--html-noregion-frame-map [(control h)] 'hm--html-add-html) 112 (define-key hm--html-noregion-frame-map [(control h)] 'hm--html-add-html)
115 (define-key hm--html-noregion-frame-map [(meta h)] 'hm--html-add-head) 113 (define-key hm--html-noregion-frame-map [(meta h)] 'hm--html-add-head)
116 (define-key hm--html-noregion-frame-map "b" 'hm--html-add-body) 114 (define-key hm--html-noregion-frame-map "b" 'hm--html-add-body)
117 (define-key hm--html-noregion-frame-map 115 (define-key hm--html-noregion-frame-map
118 [(control t)] 'hm--html-add-title-and-header) 116 [(control t)] 'hm--html-add-title-and-header)
119 (define-key hm--html-noregion-frame-map "t" 'hm--html-add-title) 117 (define-key hm--html-noregion-frame-map "t" 'hm--html-add-title)
120 (define-key hm--html-noregion-frame-map "h" 'hm--html-add-header) 118 (define-key hm--html-noregion-frame-map "h" 'hm--html-add-header)
119 (define-key hm--html-noregion-frame-map "m" 'hm--html-add-meta)
121 (define-key hm--html-noregion-frame-map "n" 'hm--html-add-normal-node-link) 120 (define-key hm--html-noregion-frame-map "n" 'hm--html-add-normal-node-link)
121 (define-key hm--html-noregion-frame-map "i" 'hm--html-add-isindex)
122 (define-key hm--html-noregion-frame-map [(meta d)] 'hm--html-add-base)
122 (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)
123 (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)
124 (define-key hm--html-noregion-frame-map 125 (define-key hm--html-noregion-frame-map
125 [(control c)] 'hm--html-insert-created-comment) 126 [(control c)] 'hm--html-insert-created-comment)
126 (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)
176 (define-key hm--html-noregion-structure-map 177 (define-key hm--html-noregion-structure-map
177 "\C-t\C-r" 'hm--html-add-additional-table-row) 178 "\C-t\C-r" 'hm--html-add-additional-table-row)
178 (define-key hm--html-noregion-structure-map "p" 'hm--html-add-paragraph) 179 (define-key hm--html-noregion-structure-map "p" 'hm--html-add-paragraph)
179 (define-key hm--html-noregion-structure-map 180 (define-key hm--html-noregion-structure-map
180 "\C-p" 'hm--html-add-paragraph-separator) 181 "\C-p" 'hm--html-add-paragraph-separator)
182 (define-key hm--html-noregion-structure-map
183 [(meta d)] 'hm--html-add-document-division)
181 (define-key hm--html-noregion-structure-map "\C-m" 'hm--html-add-line-break) 184 (define-key hm--html-noregion-structure-map "\C-m" 'hm--html-add-line-break)
182 (define-key hm--html-noregion-structure-map 185 (define-key hm--html-noregion-structure-map
183 "h" 'hm--html-add-horizontal-rule) 186 "h" 'hm--html-add-horizontal-rule)
184 ) 187 )
185 188
194 (define-key hm--html-region-structure-map "m" 'hm--html-add-menu-to-region) 197 (define-key hm--html-region-structure-map "m" 'hm--html-add-menu-to-region)
195 (define-key hm--html-region-structure-map "u" 'hm--html-add-list-to-region) 198 (define-key hm--html-region-structure-map "u" 'hm--html-add-list-to-region)
196 (define-key hm--html-region-structure-map 199 (define-key hm--html-region-structure-map
197 "o" 'hm--html-add-numberlist-to-region) 200 "o" 'hm--html-add-numberlist-to-region)
198 (define-key hm--html-region-structure-map 201 (define-key hm--html-region-structure-map
199 "d" 'hm--html-add-directory-list-to-region) 202 "d" 'hm--html-add-directorylist-to-region)
200 (define-key hm--html-region-structure-map 203 (define-key hm--html-region-structure-map
201 "\C-dl" 'hm--html-add-description-list-to-region) 204 "\C-dl" 'hm--html-add-description-list-to-region)
202 (define-key hm--html-region-structure-map 205 (define-key hm--html-region-structure-map
203 "\C-dt" 'hm--html-add-description-title-to-region) 206 "\C-dt" 'hm--html-add-description-title-to-region)
204 (define-key hm--html-region-structure-map 207 (define-key hm--html-region-structure-map
205 "\C-de" 'hm--html-add-description-entry-to-region) 208 "\C-de" 'hm--html-add-description-entry-to-region)
206 ; (define-key hm--html-region-structure-map
207 ; "\C-d\C-t" 'html-add-description-title-and-entry-to-region))
208 (define-key hm--html-region-structure-map 209 (define-key hm--html-region-structure-map
209 "\C-tt" 'hm--html-add-table-to-region) 210 "\C-tt" 'hm--html-add-table-to-region)
210 (define-key hm--html-region-structure-map 211 (define-key hm--html-region-structure-map
211 "\C-t\C-t" 'hm--html-add-table-title-to-region) 212 "\C-t\C-t" 'hm--html-add-table-title-to-region)
212 (define-key hm--html-region-structure-map 213 (define-key hm--html-region-structure-map
213 "p" 'hm--html-add-paragraph-to-region) 214 "p" 'hm--html-add-paragraph-to-region)
215 (define-key hm--html-region-structure-map
216 [(meta d)] 'hm--html-add-document-division-to-region)
214 ) 217 )
215 218
216 (defvar hm--html-noregion-formating-paragraph-map nil 219 (defvar hm--html-noregion-formating-paragraph-map nil
217 "Noregion sub keymap for inserting paragraph formating elements.") 220 "Noregion sub keymap for inserting paragraph formating elements.")
218 221
219 (if hm--html-noregion-formating-paragraph-map 222 (if hm--html-noregion-formating-paragraph-map
220 () 223 ()
221 (setq hm--html-noregion-formating-paragraph-map (make-sparse-keymap)) 224 (setq hm--html-noregion-formating-paragraph-map (make-sparse-keymap))
225 ; (define-key hm--html-noregion-formating-paragraph-map
226 ; "o" 'hm--html-add-plaintext)
222 (define-key hm--html-noregion-formating-paragraph-map 227 (define-key hm--html-noregion-formating-paragraph-map
223 "o" 'hm--html-add-plaintext) 228 "p" 'hm--html-add-preformated)
224 (define-key hm--html-noregion-formating-paragraph-map
225 "w" 'hm--html-add-preformated)
226 (define-key hm--html-noregion-formating-paragraph-map 229 (define-key hm--html-noregion-formating-paragraph-map
227 "b" 'hm--html-add-blockquote) 230 "b" 'hm--html-add-blockquote)
228 (define-key hm--html-noregion-formating-paragraph-map 231 (define-key hm--html-noregion-formating-paragraph-map
229 "l" 'hm--html-add-listing) 232 "C-b" 'hm--html-add-basefont)
230 (define-key hm--html-noregion-formating-paragraph-map 233 (define-key hm--html-noregion-formating-paragraph-map
231 "a" 'hm--html-add-abstract) 234 "f" 'hm--html-add-font)
235 (define-key hm--html-noregion-formating-paragraph-map
236 "c" 'hm--html-add-center)
237 (define-key hm--html-noregion-formating-paragraph-map
238 "C-c" 'hm--html-add-comment-to-region)
239 ; (define-key hm--html-noregion-formating-paragraph-map
240 ; "l" 'hm--html-add-listing)
241 ; (define-key hm--html-noregion-formating-paragraph-map
242 ; "a" 'hm--html-add-abstract)
232 ) 243 )
233 244
234 (defvar hm--html-region-formating-paragraph-map nil 245 (defvar hm--html-region-formating-paragraph-map nil
235 "Region sub keymap for inserting paragraph formating elements.") 246 "Region sub keymap for inserting paragraph formating elements.")
236 247
237 (if hm--html-region-formating-paragraph-map 248 (if hm--html-region-formating-paragraph-map
238 () 249 ()
239 (setq hm--html-region-formating-paragraph-map (make-sparse-keymap)) 250 (setq hm--html-region-formating-paragraph-map (make-sparse-keymap))
251 ; (define-key hm--html-region-formating-paragraph-map
252 ; "o" 'hm--html-add-plaintext-to-region)
240 (define-key hm--html-region-formating-paragraph-map 253 (define-key hm--html-region-formating-paragraph-map
241 "o" 'hm--html-add-plaintext-to-region) 254 "p" 'hm--html-add-preformated-to-region)
242 (define-key hm--html-region-formating-paragraph-map
243 "w" 'hm--html-add-preformated-to-region)
244 (define-key hm--html-region-formating-paragraph-map 255 (define-key hm--html-region-formating-paragraph-map
245 "b" 'hm--html-add-blockquote-to-region) 256 "b" 'hm--html-add-blockquote-to-region)
246 (define-key hm--html-region-formating-paragraph-map 257 (define-key hm--html-region-formating-paragraph-map
247 "l" 'hm--html-add-listing-to-region) 258 "C-b" 'hm--html-add-basefont-to-region)
248 (define-key hm--html-region-formating-paragraph-map 259 (define-key hm--html-region-formating-paragraph-map
249 "a" 'hm--html-add-abstract-to-region) 260 "f" 'hm--html-add-font-to-region)
261 (define-key hm--html-region-formating-paragraph-map
262 "c" 'hm--html-add-center-to-region)
263 (define-key hm--html-region-formating-paragraph-map
264 "C-c" 'hm--html-add-comment-to-region)
265 ; (define-key hm--html-region-formating-paragraph-map
266 ; "l" 'hm--html-add-listing-to-region)
267 ; (define-key hm--html-region-formating-paragraph-map
268 ; "a" 'hm--html-add-abstract-to-region)
250 ) 269 )
251 270
252 (defvar hm--html-noregion-formating-word-map nil 271 (defvar hm--html-noregion-formating-word-map nil
253 "Norgion sub keymap for inserting physical text formating elements.") 272 "Norgion sub keymap for inserting physical text formating elements.")
254 273
313 "Noregion sub keymap for include images and other stuff.") 332 "Noregion sub keymap for include images and other stuff.")
314 333
315 (if hm--html-noregion-include-map 334 (if hm--html-noregion-include-map
316 () 335 ()
317 (setq hm--html-noregion-include-map (make-sparse-keymap)) 336 (setq hm--html-noregion-include-map (make-sparse-keymap))
318 (define-key hm--html-noregion-include-map "t" 'hm--html-add-image-top) 337 (define-key hm--html-noregion-include-map
319 (define-key hm--html-noregion-include-map "m" 'hm--html-add-image-middle) 338 [(control i) (t)] 'hm--html-add-image-top)
320 (define-key hm--html-noregion-include-map "b" 'hm--html-add-image-bottom) 339 (define-key hm--html-noregion-include-map
340 [(control i) (m)] 'hm--html-add-image-middle)
341 (define-key hm--html-noregion-include-map
342 [(control i) (b)] 'hm--html-add-image-bottom)
343 (define-key hm--html-noregion-include-map "i" 'hm--html-add-image)
344 (define-key hm--html-noregion-include-map [(meta i)] 'hm--html-add-image-map)
345 (define-key hm--html-noregion-include-map "m" 'hm--html-add-map)
346 (define-key hm--html-noregion-include-map [(control a)] 'hm--html-add-area)
321 (define-key hm--html-noregion-include-map "a" 'hm--html-add-applet) 347 (define-key hm--html-noregion-include-map "a" 'hm--html-add-applet)
322 (define-key hm--html-noregion-include-map "p" 'hm--html-add-applet) 348 (define-key hm--html-noregion-include-map "p" 'hm--html-add-applet-parameter)
323 ) 349 )
324 350
325 (defvar hm--html-region-include-map nil 351 (defvar hm--html-region-include-map nil
326 "Region sub keymap for include images and other stuff.") 352 "Region sub keymap for include images and other stuff.")
327 353
328 (if hm--html-region-include-map 354 (if hm--html-region-include-map
329 () 355 ()
330 (setq hm--html-region-include-map (make-sparse-keymap)) 356 (setq hm--html-region-include-map (make-sparse-keymap))
357 (define-key hm--html-region-include-map "m" 'hm--html-add-map-to-region)
358 (define-key hm--html-region-include-map "a" 'hm--html-add-applet-to-region)
331 ) 359 )
332 360
333 ;(defvar hm--html-noregion-text-elements-map nil 361 ;(defvar hm--html-noregion-text-elements-map nil
334 ; "Noregion sub keymap for inserting text elements.") 362 ; "Noregion sub keymap for inserting text elements.")
335 363