Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-keys.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 9f59509498e1
children 25f70ba0133c
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
1 ;;; $Id: hm--html-keys.el,v 1.5 1997/03/28 02:28:41 steve Exp $ 1 ;;; $Id: hm--html-keys.el,v 1.6 1997/05/09 03:28:00 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
214 "p" 'hm--html-add-paragraph-to-region) 214 "p" 'hm--html-add-paragraph-to-region)
215 (define-key hm--html-region-structure-map 215 (define-key hm--html-region-structure-map
216 [(meta d)] 'hm--html-add-document-division-to-region) 216 [(meta d)] 'hm--html-add-document-division-to-region)
217 ) 217 )
218 218
219 (defvar hm--html-noregion-formating-paragraph-map nil 219 (defvar hm--html-noregion-formatting-paragraph-map nil
220 "Noregion sub keymap for inserting paragraph formating elements.") 220 "Noregion sub keymap for inserting paragraph formatting elements.")
221 221 (define-obsolete-variable-alias
222 (if hm--html-noregion-formating-paragraph-map 222 'hm--html-noregion-formating-paragraph-map
223 () 223 'hm--html-noregion-formatting-paragraph-map)
224 (setq hm--html-noregion-formating-paragraph-map (make-sparse-keymap)) 224
225 ; (define-key hm--html-noregion-formating-paragraph-map 225 (if hm--html-noregion-formatting-paragraph-map
226 ()
227 (setq hm--html-noregion-formatting-paragraph-map (make-sparse-keymap))
228 ; (define-key hm--html-noregion-formatting-paragraph-map
226 ; "o" 'hm--html-add-plaintext) 229 ; "o" 'hm--html-add-plaintext)
227 (define-key hm--html-noregion-formating-paragraph-map 230 (define-key hm--html-noregion-formatting-paragraph-map
228 "p" 'hm--html-add-preformated) 231 "p" 'hm--html-add-preformatted)
229 (define-key hm--html-noregion-formating-paragraph-map 232 (define-key hm--html-noregion-formatting-paragraph-map
230 "b" 'hm--html-add-blockquote) 233 "b" 'hm--html-add-blockquote)
231 (define-key hm--html-noregion-formating-paragraph-map 234 (define-key hm--html-noregion-formatting-paragraph-map
232 "\C-b" 'hm--html-add-basefont) 235 "\C-b" 'hm--html-add-basefont)
233 (define-key hm--html-noregion-formating-paragraph-map 236 (define-key hm--html-noregion-formatting-paragraph-map
234 "f" 'hm--html-add-font) 237 "f" 'hm--html-add-font)
235 (define-key hm--html-noregion-formating-paragraph-map 238 (define-key hm--html-noregion-formatting-paragraph-map
236 "c" 'hm--html-add-center) 239 "c" 'hm--html-add-center)
237 (define-key hm--html-noregion-formating-paragraph-map 240 (define-key hm--html-noregion-formatting-paragraph-map
238 "\C-c" 'hm--html-add-comment) 241 "\C-c" 'hm--html-add-comment)
239 ; (define-key hm--html-noregion-formating-paragraph-map 242 ; (define-key hm--html-noregion-formatting-paragraph-map
240 ; "l" 'hm--html-add-listing) 243 ; "l" 'hm--html-add-listing)
241 ; (define-key hm--html-noregion-formating-paragraph-map 244 ; (define-key hm--html-noregion-formatting-paragraph-map
242 ; "a" 'hm--html-add-abstract) 245 ; "a" 'hm--html-add-abstract)
243 ) 246 )
244 247
245 (defvar hm--html-region-formating-paragraph-map nil 248 (defvar hm--html-region-formatting-paragraph-map nil
246 "Region sub keymap for inserting paragraph formating elements.") 249 "Region sub keymap for inserting paragraph formatting elements.")
247 250 (define-obsolete-variable-alias
248 (if hm--html-region-formating-paragraph-map 251 'hm--html-region-formating-paragraph-map
249 () 252 'hm--html-region-formatting-paragraph-map)
250 (setq hm--html-region-formating-paragraph-map (make-sparse-keymap)) 253
251 ; (define-key hm--html-region-formating-paragraph-map 254 (if hm--html-region-formatting-paragraph-map
255 ()
256 (setq hm--html-region-formatting-paragraph-map (make-sparse-keymap))
257 ; (define-key hm--html-region-formatting-paragraph-map
252 ; "o" 'hm--html-add-plaintext-to-region) 258 ; "o" 'hm--html-add-plaintext-to-region)
253 (define-key hm--html-region-formating-paragraph-map 259 (define-key hm--html-region-formatting-paragraph-map
254 "p" 'hm--html-add-preformated-to-region) 260 "p" 'hm--html-add-preformatted-to-region)
255 (define-key hm--html-region-formating-paragraph-map 261 (define-key hm--html-region-formatting-paragraph-map
256 "b" 'hm--html-add-blockquote-to-region) 262 "b" 'hm--html-add-blockquote-to-region)
257 (define-key hm--html-region-formating-paragraph-map 263 (define-key hm--html-region-formatting-paragraph-map
258 "\C-b" 'hm--html-add-basefont-to-region) 264 "\C-b" 'hm--html-add-basefont-to-region)
259 (define-key hm--html-region-formating-paragraph-map 265 (define-key hm--html-region-formatting-paragraph-map
260 "f" 'hm--html-add-font-to-region) 266 "f" 'hm--html-add-font-to-region)
261 (define-key hm--html-region-formating-paragraph-map 267 (define-key hm--html-region-formatting-paragraph-map
262 "c" 'hm--html-add-center-to-region) 268 "c" 'hm--html-add-center-to-region)
263 (define-key hm--html-region-formating-paragraph-map 269 (define-key hm--html-region-formatting-paragraph-map
264 "\C-c" 'hm--html-add-comment-to-region) 270 "\C-c" 'hm--html-add-comment-to-region)
265 ; (define-key hm--html-region-formating-paragraph-map 271 ; (define-key hm--html-region-formatting-paragraph-map
266 ; "l" 'hm--html-add-listing-to-region) 272 ; "l" 'hm--html-add-listing-to-region)
267 ; (define-key hm--html-region-formating-paragraph-map 273 ; (define-key hm--html-region-formatting-paragraph-map
268 ; "a" 'hm--html-add-abstract-to-region) 274 ; "a" 'hm--html-add-abstract-to-region)
269 ) 275 )
270 276
271 (defvar hm--html-noregion-formating-word-map nil 277 (defvar hm--html-noregion-formatting-word-map nil
272 "Norgion sub keymap for inserting physical text formating elements.") 278 "Norgion sub keymap for inserting physical text formatting elements.")
273 279 (define-obsolete-variable-alias
274 (if hm--html-noregion-formating-word-map 280 'hm--html-noregion-formating-word-map
275 () 281 'hm--html-noregion-formatting-word-map)
276 (setq hm--html-noregion-formating-word-map (make-sparse-keymap)) 282
277 (define-key hm--html-noregion-formating-word-map 283 (if hm--html-noregion-formatting-word-map
284 ()
285 (setq hm--html-noregion-formatting-word-map (make-sparse-keymap))
286 (define-key hm--html-noregion-formatting-word-map
278 "b" 'hm--html-add-bold) 287 "b" 'hm--html-add-bold)
279 (define-key hm--html-noregion-formating-word-map 288 (define-key hm--html-noregion-formatting-word-map
280 "i" 'hm--html-add-italic) 289 "i" 'hm--html-add-italic)
281 (define-key hm--html-noregion-formating-word-map 290 (define-key hm--html-noregion-formatting-word-map
282 "u" 'hm--html-add-underline) 291 "u" 'hm--html-add-underline)
283 (define-key hm--html-noregion-formating-word-map 292 (define-key hm--html-noregion-formatting-word-map
284 "t" 'hm--html-add-fixed) 293 "t" 'hm--html-add-fixed)
285 (define-key hm--html-noregion-formating-word-map 294 (define-key hm--html-noregion-formatting-word-map
286 "s" 'hm--html-add-strikethru) 295 "s" 'hm--html-add-strikethru)
287 (define-key hm--html-noregion-formating-word-map 296 (define-key hm--html-noregion-formatting-word-map
288 "\C-p" 'hm--html-add-superscript) 297 "\C-p" 'hm--html-add-superscript)
289 (define-key hm--html-noregion-formating-word-map 298 (define-key hm--html-noregion-formatting-word-map
290 "\C-b" 'hm--html-add-subscript) 299 "\C-b" 'hm--html-add-subscript)
291 (define-key hm--html-noregion-formating-word-map 300 (define-key hm--html-noregion-formatting-word-map
292 "e" 'hm--html-add-emphasized) 301 "e" 'hm--html-add-emphasized)
293 (define-key hm--html-noregion-formating-word-map 302 (define-key hm--html-noregion-formatting-word-map
294 "\C-s" 'hm--html-add-strong) 303 "\C-s" 'hm--html-add-strong)
295 (define-key hm--html-noregion-formating-word-map 304 (define-key hm--html-noregion-formatting-word-map
296 "\M-s" 'hm--html-add-small) 305 "\M-s" 'hm--html-add-small)
297 (define-key hm--html-noregion-formating-word-map 306 (define-key hm--html-noregion-formatting-word-map
298 "\M-b" 'hm--html-add-big) 307 "\M-b" 'hm--html-add-big)
299 ) 308 )
300 309
301 (defvar hm--html-region-formating-word-map nil 310 (defvar hm--html-region-formatting-word-map nil
302 "Region sub keymap for inserting word text formating elements.") 311 "Region sub keymap for inserting word text formatting elements.")
303 312 (define-obsolete-variable-alias
304 (if hm--html-region-formating-word-map 313 'hm--html-region-formating-word-map
305 () 314 'hm--html-region-formatting-word-map)
306 (setq hm--html-region-formating-word-map (make-sparse-keymap)) 315
307 (define-key hm--html-region-formating-word-map 316 (if hm--html-region-formatting-word-map
317 ()
318 (setq hm--html-region-formatting-word-map (make-sparse-keymap))
319 (define-key hm--html-region-formatting-word-map
308 "b" 'hm--html-add-bold-to-region) 320 "b" 'hm--html-add-bold-to-region)
309 (define-key hm--html-region-formating-word-map 321 (define-key hm--html-region-formatting-word-map
310 "i" 'hm--html-add-italic-to-region) 322 "i" 'hm--html-add-italic-to-region)
311 (define-key hm--html-region-formating-word-map 323 (define-key hm--html-region-formatting-word-map
312 "u" 'hm--html-add-underline-to-region) 324 "u" 'hm--html-add-underline-to-region)
313 (define-key hm--html-region-formating-word-map 325 (define-key hm--html-region-formatting-word-map
314 "t" 'hm--html-add-fixed-to-region) 326 "t" 'hm--html-add-fixed-to-region)
315 (define-key hm--html-region-formating-word-map 327 (define-key hm--html-region-formatting-word-map
316 "s" 'hm--html-add-strikethru-to-region) 328 "s" 'hm--html-add-strikethru-to-region)
317 (define-key hm--html-region-formating-word-map 329 (define-key hm--html-region-formatting-word-map
318 "\C-p" 'hm--html-add-superscript-to-region) 330 "\C-p" 'hm--html-add-superscript-to-region)
319 (define-key hm--html-region-formating-word-map 331 (define-key hm--html-region-formatting-word-map
320 "\C-b" 'hm--html-add-subscript-to-region) 332 "\C-b" 'hm--html-add-subscript-to-region)
321 (define-key hm--html-region-formating-word-map 333 (define-key hm--html-region-formatting-word-map
322 "e" 'hm--html-add-emphasized-to-region) 334 "e" 'hm--html-add-emphasized-to-region)
323 (define-key hm--html-region-formating-word-map 335 (define-key hm--html-region-formatting-word-map
324 "\C-s" 'hm--html-add-strong-to-region) 336 "\C-s" 'hm--html-add-strong-to-region)
325 (define-key hm--html-region-formating-word-map 337 (define-key hm--html-region-formatting-word-map
326 "\M-s" 'hm--html-add-small-to-region) 338 "\M-s" 'hm--html-add-small-to-region)
327 (define-key hm--html-region-formating-word-map 339 (define-key hm--html-region-formatting-word-map
328 "\M-b" 'hm--html-add-big-to-region) 340 "\M-b" 'hm--html-add-big-to-region)
329 ) 341 )
330 342
331 (defvar hm--html-noregion-include-map nil 343 (defvar hm--html-noregion-include-map nil
332 "Noregion sub keymap for include images and other stuff.") 344 "Noregion sub keymap for include images and other stuff.")
434 ; (define-key hm--html-region-sub-map-1 446 ; (define-key hm--html-region-sub-map-1
435 ; "\C-t" hm--html-region-text-elements-map) 447 ; "\C-t" hm--html-region-text-elements-map)
436 (define-key hm--html-region-sub-map-1 "\C-f" hm--html-region-frame-map) 448 (define-key hm--html-region-sub-map-1 "\C-f" hm--html-region-frame-map)
437 (define-key hm--html-region-sub-map-1 "\C-s" hm--html-region-structure-map) 449 (define-key hm--html-region-sub-map-1 "\C-s" hm--html-region-structure-map)
438 (define-key hm--html-region-sub-map-1 450 (define-key hm--html-region-sub-map-1
439 "\C-p" hm--html-region-formating-paragraph-map) 451 "\C-p" hm--html-region-formatting-paragraph-map)
440 (define-key hm--html-region-sub-map-1 452 (define-key hm--html-region-sub-map-1
441 "\C-w" hm--html-region-formating-word-map) 453 "\C-w" hm--html-region-formatting-word-map)
442 ) 454 )
443 455
444 (defvar hm--html-noregion-sub-map-1 nil 456 (defvar hm--html-noregion-sub-map-1 nil
445 "Noregion sub keymap for the `hm--html-mode'.") 457 "Noregion sub keymap for the `hm--html-mode'.")
446 458
456 ; "\C-t" hm--html-noregion-text-elements-map) 468 ; "\C-t" hm--html-noregion-text-elements-map)
457 (define-key hm--html-noregion-sub-map-1 "\C-f" hm--html-noregion-frame-map) 469 (define-key hm--html-noregion-sub-map-1 "\C-f" hm--html-noregion-frame-map)
458 (define-key hm--html-noregion-sub-map-1 470 (define-key hm--html-noregion-sub-map-1
459 "\C-s" hm--html-noregion-structure-map) 471 "\C-s" hm--html-noregion-structure-map)
460 (define-key hm--html-noregion-sub-map-1 472 (define-key hm--html-noregion-sub-map-1
461 "\C-p" hm--html-noregion-formating-paragraph-map) 473 "\C-p" hm--html-noregion-formatting-paragraph-map)
462 (define-key hm--html-noregion-sub-map-1 474 (define-key hm--html-noregion-sub-map-1
463 "\C-w" hm--html-noregion-formating-word-map) 475 "\C-w" hm--html-noregion-formatting-word-map)
464 ) 476 )
465 477
466 (defvar hm--html-region-sub-map nil 478 (defvar hm--html-region-sub-map nil
467 "Region sub keymap for the `hm--html-mode'.") 479 "Region sub keymap for the `hm--html-mode'.")
468 480