PageRenderTime 47ms CodeModel.GetById 14ms RepoModel.GetById 0ms app.codeStats 1ms

/xemacs-packages-extra-20110502/xemacs-packages/hm--html-menus/hm--html-keys.el

#
Lisp | 769 lines | 567 code | 62 blank | 140 comment | 22 complexity | 457e56360b56fc038ad84497670c81c3 MD5 | raw file
Possible License(s): MPL-2.0, LGPL-2.1, GPL-2.0, MPL-2.0-no-copyleft-exception 
    

  1. ;;; $Id: hm--html-keys.el,v 6.21 2000-10-06 08:45:59 youngs Exp $
    2. 

  2. ;;; 
    3. 

  3. ;;; Copyright (C) 1995, 1996, 1997 Heiko Muenkel
    4. 

  4. ;;; email: muenkel@tnt.uni-hannover.de
    5. 

  5. ;;;
    6. 

  6. ;;;  This program is free software; you can redistribute it and/or modify
    7. 

  7. ;;;  it under the terms of the GNU General Public License as published by
    8. 

  8. ;;;  the Free Software Foundation; either version 2, or (at your option)
    9. 

  9. ;;;  any later version.
    10. 

  10. ;;;
    11. 

  11. ;;;  This program is distributed in the hope that it will be useful,
    12. 

  12. ;;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
    13. 

  13. ;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    14. 

  14. ;;;  GNU General Public License for more details.
    15. 

  15. ;;;
    16. 

  16. ;;;  You should have received a copy of the GNU General Public License
    17. 

  17. ;;;  along with this program; if not, write to the Free Software
    18. 

  18. ;;;  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
    19. 

  19. ;;;
    20. 

  20. ;;; 
    21. 

  21. ;;; Description:
    22. 

  22. ;;;
    23. 

  23. ;;;	Defines the new keybindigs for the hm--html-menus package.
    24. 

  24. ;;; 
    25. 

  25. ;;; Installation: 
    26. 

  26. ;;;   
    27. 

  27. ;;;	Put this file in one of your load path directories.
    28. 

  28. ;;;
    29. 

  29. 

  30. (if (adapt-emacsp)
    31. 

  31.     (progn
    32. 

  32. 

  33.       (defvar hm--html-emacs19-popup-noregion-menu-button [C-down-mouse-3]
    34. 

  34. 	"This is the mouse button , which pops up the noregion menus.
    35. 

  35. It could have the same value as 
    36. 

  36. `hm--html-emacs19-popup-region-menu-button'.")
    37. 

  37.       
    38. 

  38.       (defvar hm--html-emacs19-popup-region-menu-button [C-down-mouse-3]
    39. 

  39. 	"This is the mouse button , which pops up the region menus.
    40. 

  40. It could have the same value as 
    41. 

  41. `hm--html-emacs19-popup-noregion-menu-button'.")
    42. 

    43. 

  43.       ))
    44. 

  44. 

  45. 

  46. (defvar hm--html-noregion-anchor-map nil
    47. 

  47.   "Noregion sub keymap for inserting anchors.")
    48. 

  48. 

  49. (if hm--html-noregion-anchor-map
    50. 

  50.     ()
    51. 

  51.   (setq hm--html-noregion-anchor-map (make-sparse-keymap))
    52. 

  52.   (define-key hm--html-noregion-anchor-map "r" 'hm--html-add-relative-link)
    53. 

  53.   (define-key hm--html-noregion-anchor-map "h" 'hm--html-add-html-link)
    54. 

  54.   (define-key hm--html-noregion-anchor-map "i" 'hm--html-add-info-link)
    55. 

  55.   (define-key hm--html-noregion-anchor-map "g" 'hm--html-add-gopher-link)
    56. 

  56.   (define-key hm--html-noregion-anchor-map "f" 'hm--html-add-file-link)
    57. 

  57.   (define-key hm--html-noregion-anchor-map "\C-f" 'hm--html-add-ftp-link)
    58. 

  58.   (define-key hm--html-noregion-anchor-map "n" 'hm--html-add-news-link)
    59. 

  59.   (define-key hm--html-noregion-anchor-map "m" 'hm--html-add-mail-box-link)
    60. 

  60.   (define-key hm--html-noregion-anchor-map 
    61. 

  61.     [(control m)] 'hm--html-add-mailto-link)
    62. 

  62.   (define-key hm--html-noregion-anchor-map "w" 'hm--html-add-direct-wais-link)
    63. 

  63.   (define-key hm--html-noregion-anchor-map "\C-w" 'hm--html-add-wais-link)
    64. 

  64.   (define-key hm--html-noregion-anchor-map "c" 'hm--html-add-cgi-link)
    65. 

  65.   (define-key hm--html-noregion-anchor-map "p" 'hm--html-add-proggate-link)
    66. 

  66.   (define-key hm--html-noregion-anchor-map 
    67. 

  67.     "\C-p" 'hm--html-add-local-proggate-link)
    68. 

  68.   (define-key hm--html-noregion-anchor-map "l" 'hm--html-add-normal-link)
    69. 

  69.   (define-key hm--html-noregion-anchor-map "t" 'hm--html-add-link-target)
    70. 

  70.   )
    71. 

  71. 

  72. (defvar hm--html-region-anchor-map nil
    73. 

  73.   "Region sub keymap for inserting anchors.")
    74. 

  74. 

  75. (if hm--html-region-anchor-map
    76. 

  76.     ()
    77. 

  77.   (setq hm--html-region-anchor-map (make-sparse-keymap))
    78. 

  78.   (define-key hm--html-region-anchor-map
    79. 

  79.     "r" 'hm--html-add-relative-link-to-region)
    80. 

  80.   (define-key hm--html-region-anchor-map "h" 'hm--html-add-html-link-to-region)
    81. 

  81.   (define-key hm--html-region-anchor-map "i" 'hm--html-add-info-link-to-region)
    82. 

  82.   (define-key hm--html-region-anchor-map 
    83. 

  83.     "g" 'hm--html-add-gopher-link-to-region)
    84. 

  84.   (define-key hm--html-region-anchor-map "f" 'hm--html-add-file-link-to-region)
    85. 

  85.   (define-key hm--html-region-anchor-map 
    86. 

  86.     "\C-f" 'hm--html-add-ftp-link-to-region)
    87. 

  87.   (define-key hm--html-region-anchor-map "n" 'hm--html-add-news-link-to-region)
    88. 

  88.   (define-key hm--html-region-anchor-map "m" 'hm--html-add-mail-box-link-to-region)
    89. 

  89.   (define-key hm--html-region-anchor-map
    90. 

  90.     [(control m)] 'hm--html-add-mailto-link-to-region)
    91. 

  91.   (define-key hm--html-region-anchor-map 
    92. 

  92.     "w" 'hm--html-add-direct-wais-link-to-region)
    93. 

  93.   (define-key hm--html-region-anchor-map 
    94. 

  94.     "\C-w" 'hm--html-add-wais-link-to-region)
    95. 

  95.   (define-key hm--html-region-anchor-map 
    96. 

  96.     "c" 'hm--html-add-cgi-link-to-region)
    97. 

  97.   (define-key hm--html-region-anchor-map 
    98. 

  98.     "p" 'hm--html-add-proggate-link-to-region)
    99. 

  99.   (define-key hm--html-region-anchor-map 
    100. 

  100.     "\C-p" 'hm--html-add-local-proggate-link-to-region)
    101. 

  101.   (define-key hm--html-region-anchor-map 
    102. 

  102.     "l" 'hm--html-add-normal-link-to-region)
    103. 

  103.   (define-key hm--html-region-anchor-map 
    104. 

  104.     "t" 'hm--html-add-link-target-to-region)
    105. 

  105.   )
    106. 

  106. 

  107. (defvar hm--html-noregion-frame-map nil
    108. 

  108.   "Noregion sub keymap for inserting frame elements.")
    109. 

  109. 

  110. (if hm--html-noregion-frame-map
    111. 

  111.     ()
    112. 

  112.   (setq	hm--html-noregion-frame-map (make-sparse-keymap))
    113. 

  113.   (define-key hm--html-noregion-frame-map "f" 'hm--html-add-full-html-frame)
    114. 

  114.   (define-key hm--html-noregion-frame-map [(control d)] 'hm--html-add-doctype)
    115. 

  115.   (define-key hm--html-noregion-frame-map [(control h)] 'hm--html-add-html) 
    116. 

  116.   (define-key hm--html-noregion-frame-map [(meta h)] 'hm--html-add-head)
    117. 

  117.   (define-key hm--html-noregion-frame-map "b" 'hm--html-add-body)
    118. 

  118.   (define-key hm--html-noregion-frame-map 
    119. 

  119.     [(control t)] 'hm--html-add-title-and-header)
    120. 

  120.   (define-key hm--html-noregion-frame-map "t" 'hm--html-add-title)
    121. 

  121.   (define-key hm--html-noregion-frame-map "h" 'hm--html-add-header)
    122. 

  122.   (define-key hm--html-noregion-frame-map "m" 'hm--html-add-meta)
    123. 

  123.   (define-key hm--html-noregion-frame-map "n" 'hm--html-add-normal-node-link)
    124. 

  124.   (define-key hm--html-noregion-frame-map "i" 'hm--html-add-isindex)
    125. 

  125.   (define-key hm--html-noregion-frame-map [(meta d)] 'hm--html-add-base)
    126. 

  126.   (define-key hm--html-noregion-frame-map "a" 'hm--html-add-address)
    127. 

  127.   (define-key hm--html-noregion-frame-map "s" 'hm--html-add-signature)
    128. 

  128.   (define-key hm--html-noregion-frame-map 
    129. 

  129.     [(control c)] 'hm--html-insert-created-comment)
    130. 

  130.   (define-key hm--html-noregion-frame-map "c" 'hm--html-insert-changed-comment)
    131. 

  131.   (define-key hm--html-noregion-frame-map 
    132. 

  132.     [(control m)] 'hm--html-insert-modified-line)
    133. 

  133.   (define-key hm--html-noregion-frame-map "d" 'hm--html-new-date)
    134. 

  134.   )
    135. 

  135. 

  136. (defvar hm--html-region-frame-map nil
    137. 

  137.   "Region sub keymap for inserting frame elements.")
    138. 

  138. 

  139. (if hm--html-region-frame-map
    140. 

  140.     ()
    141. 

  141.   (setq hm--html-region-frame-map (make-sparse-keymap))
    142. 

  142.   (define-key hm--html-region-frame-map 
    143. 

  143.     "f" 'hm--html-add-full-html-frame-with-region)
    144. 

  144.   (define-key hm--html-region-frame-map 
    145. 

  145.     [(meta h)] 'hm--html-add-head-to-region)
    146. 

  146.   (define-key hm--html-region-frame-map "b" 'hm--html-add-body-to-region)
    147. 

  147.   (define-key hm--html-region-frame-map 
    148. 

  148.     [(control t)] 'hm--html-add-title-and-header-to-region)
    149. 

  149.   (define-key hm--html-region-frame-map "t" 'hm--html-add-title-to-region)
    150. 

  150.   (define-key hm--html-region-frame-map "h" 'hm--html-add-header-to-region)
    151. 

  151.   (define-key hm--html-region-frame-map "a" 'hm--html-add-address-to-region)
    152. 

  152.   )
    153. 

  153. 

  154. (defvar hm--html-noregion-structure-map nil
    155. 

  155.   "Noregion sub keymap for inserting entities.")
    156. 

  156. 

  157. (if hm--html-noregion-structure-map
    158. 

  158.     ()
    159. 

  159.   (setq hm--html-noregion-structure-map (make-sparse-keymap))
    160. 

  160.   (define-key hm--html-noregion-structure-map
    161. 

  161.     "i" 'hm--html-add-list-or-menu-item)
    162. 

  162.   (define-key hm--html-noregion-structure-map "m" 'hm--html-add-menu)
    163. 

  163.   (define-key hm--html-noregion-structure-map "u" 'hm--html-add-list)
    164. 

  164.   (define-key hm--html-noregion-structure-map "o" 'hm--html-add-numberlist)
    165. 

  165.   (define-key hm--html-noregion-structure-map "d" 'hm--html-add-directory-list)
    166. 

  166.   (define-key hm--html-noregion-structure-map 
    167. 

  167.     "\C-dl" 'hm--html-add-description-list)
    168. 

  168.   (define-key hm--html-noregion-structure-map 
    169. 

  169.     "\C-dt" 'hm--html-add-description-title)
    170. 

  170.   (define-key hm--html-noregion-structure-map 
    171. 

  171.     "\C-de" 'hm--html-add-description-entry)
    172. 

  172.   (define-key hm--html-noregion-structure-map 
    173. 

  173.     "\C-d\C-t" 'hm--html-add-description-title-and-entry)
    174. 

  174.   (define-key hm--html-noregion-structure-map
    175. 

  175.     "\C-tt" 'hm--html-add-table)
    176. 

  176.   (define-key hm--html-noregion-structure-map 
    177. 

  177.     "\C-t\C-t" 'hm--html-add-table-title)
    178. 

  178.   (define-key hm--html-noregion-structure-map 
    179. 

  179.     "\C-th" 'hm--html-add-table-header)
    180. 

  180.   (define-key hm--html-noregion-structure-map 
    181. 

  181.     "\C-tr" 'hm--html-add-first-table-row)
    182. 

  182.   (define-key hm--html-noregion-structure-map 
    183. 

  183.     "\C-t\C-r" 'hm--html-add-additional-table-row)
    184. 

  184.   (define-key hm--html-noregion-structure-map "p" 'hm--html-add-paragraph)
    185. 

  185.   (define-key hm--html-noregion-structure-map 
    186. 

  186.     "\C-p" 'hm--html-add-paragraph-separator)
    187. 

  187.   (define-key hm--html-noregion-structure-map
    188. 

  188.     [(meta d)] 'hm--html-add-document-division)
    189. 

  189.   (define-key hm--html-noregion-structure-map "\C-m" 'hm--html-add-line-break)
    190. 

  190.   (define-key hm--html-noregion-structure-map 
    191. 

  191.     "h" 'hm--html-add-horizontal-rule)
    192. 

  192.   )
    193. 

  193. 

  194. (defvar hm--html-region-structure-map nil
    195. 

  195.   "Region sub keymap for inserting entities.")
    196. 

  196. 

  197. (if hm--html-region-structure-map
    198. 

  198.     ()
    199. 

  199.   (setq hm--html-region-structure-map (make-sparse-keymap))
    200. 

  200.   (define-key hm--html-region-structure-map
    201. 

  201.     "i" 'hm--html-add-list-or-menu-item-to-region)
    202. 

  202.   (define-key hm--html-region-structure-map "m" 'hm--html-add-menu-to-region)
    203. 

  203.   (define-key hm--html-region-structure-map "u" 'hm--html-add-list-to-region)
    204. 

  204.   (define-key hm--html-region-structure-map 
    205. 

  205.     "o" 'hm--html-add-numberlist-to-region)
    206. 

  206.   (define-key hm--html-region-structure-map 
    207. 

  207.     "d" 'hm--html-add-directorylist-to-region)
    208. 

  208.   (define-key hm--html-region-structure-map 
    209. 

  209.     "\C-dl" 'hm--html-add-description-list-to-region)
    210. 

  210.   (define-key hm--html-region-structure-map 
    211. 

  211.     "\C-dt" 'hm--html-add-description-title-to-region)
    212. 

  212.   (define-key hm--html-region-structure-map 
    213. 

  213.     "\C-de" 'hm--html-add-description-entry-to-region)
    214. 

  214.   (define-key hm--html-region-structure-map
    215. 

  215.     "\C-tt" 'hm--html-add-table-to-region)
    216. 

  216.   (define-key hm--html-region-structure-map 
    217. 

  217.     "\C-t\C-t" 'hm--html-add-table-title-to-region)
    218. 

  218.   (define-key hm--html-region-structure-map 
    219. 

  219.     "p" 'hm--html-add-paragraph-to-region)
    220. 

  220.   (define-key hm--html-region-structure-map
    221. 

  221.     [(meta d)] 'hm--html-add-document-division-to-region)
    222. 

  222.   )
    223. 

  223. 

  224. (defvar hm--html-noregion-formatting-paragraph-map nil
    225. 

  225.   "Noregion sub keymap for inserting paragraph formatting elements.")
    226. 

  226. 

  227. (if hm--html-noregion-formatting-paragraph-map
    228. 

  228.     ()
    229. 

  229.   (setq hm--html-noregion-formatting-paragraph-map (make-sparse-keymap))
    230. 

  230. ;  (define-key hm--html-noregion-formatting-paragraph-map
    231. 

  231. ;    "o" 'hm--html-add-plaintext)
    232. 

  232.   (define-key hm--html-noregion-formatting-paragraph-map
    233. 

  233.     "p" 'hm--html-add-preformatted)
    234. 

  234.   (define-key hm--html-noregion-formatting-paragraph-map
    235. 

  235.     "b" 'hm--html-add-blockquote)
    236. 

  236.   (define-key hm--html-noregion-formatting-paragraph-map
    237. 

  237.     "\C-b" 'hm--html-add-basefont)
    238. 

  238.   (define-key hm--html-noregion-formatting-paragraph-map
    239. 

  239.     "f" 'hm--html-add-font)
    240. 

  240.   (define-key hm--html-noregion-formatting-paragraph-map
    241. 

  241.     "c" 'hm--html-add-center)
    242. 

  242.   (define-key hm--html-noregion-formatting-paragraph-map
    243. 

  243.     "\C-c" 'hm--html-add-comment)
    244. 

  244. ;  (define-key hm--html-noregion-formatting-paragraph-map
    245. 

  245. ;    "l" 'hm--html-add-listing)
    246. 

  246. ;  (define-key hm--html-noregion-formatting-paragraph-map
    247. 

  247. ;    "a" 'hm--html-add-abstract)
    248. 

  248.   )
    249. 

  249. 

  250. (defvar hm--html-region-formatting-paragraph-map nil
    251. 

  251.   "Region sub keymap for inserting paragraph formatting elements.")
    252. 

  252. 

  253. (if hm--html-region-formatting-paragraph-map
    254. 

  254.     ()
    255. 

  255.   (setq hm--html-region-formatting-paragraph-map (make-sparse-keymap))
    256. 

  256. ;  (define-key hm--html-region-formatting-paragraph-map
    257. 

  257. ;    "o" 'hm--html-add-plaintext-to-region)
    258. 

  258.   (define-key hm--html-region-formatting-paragraph-map
    259. 

  259.     "p" 'hm--html-add-preformatted-to-region)
    260. 

  260.   (define-key hm--html-region-formatting-paragraph-map
    261. 

  261.     "b" 'hm--html-add-blockquote-to-region)
    262. 

  262.   (define-key hm--html-region-formatting-paragraph-map
    263. 

  263.     "\C-b" 'hm--html-add-basefont-to-region)
    264. 

  264.   (define-key hm--html-region-formatting-paragraph-map
    265. 

  265.     "f" 'hm--html-add-font-to-region)
    266. 

  266.   (define-key hm--html-region-formatting-paragraph-map
    267. 

  267.     "c" 'hm--html-add-center-to-region)
    268. 

  268.   (define-key hm--html-region-formatting-paragraph-map
    269. 

  269.     "\C-c" 'hm--html-add-comment-to-region)
    270. 

  270. ;  (define-key hm--html-region-formatting-paragraph-map
    271. 

  271. ;    "l" 'hm--html-add-listing-to-region)
    272. 

  272. ;  (define-key hm--html-region-formatting-paragraph-map
    273. 

  273. ;    "a" 'hm--html-add-abstract-to-region)
    274. 

  274.   )
    275. 

  275. 

  276. (defvar hm--html-noregion-formatting-word-map nil
    277. 

  277.   "Noregion sub keymap for inserting physical text formatting elements.")
    278. 

  278. 

  279. (if hm--html-noregion-formatting-word-map
    280. 

  280.     ()
    281. 

  281.   (setq hm--html-noregion-formatting-word-map (make-sparse-keymap))
    282. 

  282.   (define-key hm--html-noregion-formatting-word-map
    283. 

  283.     "b" 'hm--html-add-bold)
    284. 

  284.   (define-key hm--html-noregion-formatting-word-map
    285. 

  285.     "i" 'hm--html-add-italic)
    286. 

  286.   (define-key hm--html-noregion-formatting-word-map
    287. 

  287.     "u" 'hm--html-add-underline)
    288. 

  288.   (define-key hm--html-noregion-formatting-word-map
    289. 

  289.     "t" 'hm--html-add-fixed)
    290. 

  290.   (define-key hm--html-noregion-formatting-word-map
    291. 

  291.     "s" 'hm--html-add-strikethru)
    292. 

  292.   (define-key hm--html-noregion-formatting-word-map
    293. 

  293.     "\C-p" 'hm--html-add-superscript)
    294. 

  294.   (define-key hm--html-noregion-formatting-word-map
    295. 

  295.     "\C-b" 'hm--html-add-subscript)
    296. 

  296.   (define-key hm--html-noregion-formatting-word-map
    297. 

  297.     "e" 'hm--html-add-emphasized)
    298. 

  298.   (define-key hm--html-noregion-formatting-word-map
    299. 

  299.     "\C-s" 'hm--html-add-strong)
    300. 

  300.   (define-key hm--html-noregion-formatting-word-map
    301. 

  301.     "\M-s" 'hm--html-add-small)
    302. 

  302.   (define-key hm--html-noregion-formatting-word-map
    303. 

  303.     "\M-b" 'hm--html-add-big)
    304. 

  304.   )
    305. 

  305. 

  306. (defvar hm--html-region-formatting-word-map nil
    307. 

  307.   "Region sub keymap for inserting word text formatting elements.")
    308. 

  308. 

  309. (if hm--html-region-formatting-word-map
    310. 

  310.     ()
    311. 

  311.   (setq hm--html-region-formatting-word-map (make-sparse-keymap))
    312. 

  312.   (define-key hm--html-region-formatting-word-map
    313. 

  313.     "b" 'hm--html-add-bold-to-region)
    314. 

  314.   (define-key hm--html-region-formatting-word-map
    315. 

  315.     "i" 'hm--html-add-italic-to-region)
    316. 

  316.   (define-key hm--html-region-formatting-word-map
    317. 

  317.     "u" 'hm--html-add-underline-to-region)
    318. 

  318.   (define-key hm--html-region-formatting-word-map
    319. 

  319.     "t" 'hm--html-add-fixed-to-region)
    320. 

  320.   (define-key hm--html-region-formatting-word-map
    321. 

  321.     "s" 'hm--html-add-strikethru-to-region)
    322. 

  322.   (define-key hm--html-region-formatting-word-map
    323. 

  323.     "\C-p" 'hm--html-add-superscript-to-region)
    324. 

  324.   (define-key hm--html-region-formatting-word-map
    325. 

  325.     "\C-b" 'hm--html-add-subscript-to-region)
    326. 

  326.   (define-key hm--html-region-formatting-word-map
    327. 

  327.     "e" 'hm--html-add-emphasized-to-region)
    328. 

  328.   (define-key hm--html-region-formatting-word-map
    329. 

  329.     "\C-s" 'hm--html-add-strong-to-region)
    330. 

  330.   (define-key hm--html-region-formatting-word-map
    331. 

  331.     "\M-s" 'hm--html-add-small-to-region)
    332. 

  332.   (define-key hm--html-region-formatting-word-map
    333. 

  333.     "\M-b" 'hm--html-add-big-to-region)
    334. 

  334.   )
    335. 

  335. 

  336. (defvar hm--html-noregion-include-map nil
    337. 

  337.   "Noregion sub keymap for include images and other stuff.")
    338. 

  338. 

  339. (if hm--html-noregion-include-map
    340. 

  340.     ()
    341. 

  341.   (setq hm--html-noregion-include-map (make-sparse-keymap))
    342. 

  342.   (define-key hm--html-noregion-include-map
    343. 

  343.     [(control i) (t)] 'hm--html-add-image-top)
    344. 

  344.   (define-key hm--html-noregion-include-map
    345. 

  345.     [(control i) (m)] 'hm--html-add-image-middle)
    346. 

  346.   (define-key hm--html-noregion-include-map
    347. 

  347.     [(control i) (b)] 'hm--html-add-image-bottom)
    348. 

  348.   (define-key hm--html-noregion-include-map "i" 'hm--html-add-image)
    349. 

  349.   (define-key hm--html-noregion-include-map [(meta i)] 'hm--html-add-image-map)
    350. 

  350.   (define-key hm--html-noregion-include-map "m" 'hm--html-add-map)
    351. 

  351.   (define-key hm--html-noregion-include-map [(control a)] 'hm--html-add-area)
    352. 

  352.   (define-key hm--html-noregion-include-map "a" 'hm--html-add-applet)
    353. 

  353.   (define-key hm--html-noregion-include-map "p" 'hm--html-add-applet-parameter)
    354. 

  354.   )
    355. 

  355. 

  356. (defvar hm--html-region-include-map nil
    357. 

  357.   "Region sub keymap for include images and other stuff.")
    358. 

  358. 

  359. (if hm--html-region-include-map
    360. 

  360.     ()
    361. 

  361.   (setq hm--html-region-include-map (make-sparse-keymap))
    362. 

  362.   (define-key hm--html-region-include-map "m" 'hm--html-add-map-to-region)
    363. 

  363.   (define-key hm--html-region-include-map "a" 'hm--html-add-applet-to-region)
    364. 

  364.   )
    365. 

  365. 

  366. ;(defvar hm--html-noregion-text-elements-map nil
    367. 

  367. ;  "Noregion sub keymap for inserting text elements.")
    368. 

  368. 

  369. ;(if hm--html-noregion-text-elements-map
    370. 

  370. ;    ()
    371. 

  371. ;  (setq hm--html-noregion-text-elements-map (make-sparse-keymap))
    372. 

  372. ;  )
    373. 

  373. 

  374. ;(defvar hm--html-region-text-elements-map nil
    375. 

  375. ;  "Region sub keymap for inserting text elements.")
    376. 

  376. 

  377. ;(if hm--html-region-text-elements-map
    378. 

  378. ;    ()
    379. 

  379. ;  (setq hm--html-region-text-elements-map (make-sparse-keymap))
    380. 

  380. ;  )
    381. 

  381. 

  382. (defvar hm--html-noregion-forms-map nil
    383. 

  383.   "Noregion sub keymap for inserting forms.")
    384. 

  384. 

  385. (if hm--html-noregion-forms-map
    386. 

  386.     ()
    387. 

  387.   (setq hm--html-noregion-forms-map (make-sparse-keymap))
    388. 

  388. 

  389.   (define-key hm--html-noregion-forms-map "f" 'hm--html-add-form)
    390. 

  390.   (define-key hm--html-noregion-forms-map "a" 'hm--html-form-add-input-audio)
    391. 

  391.   (define-key hm--html-noregion-forms-map
    392. 

  392.     "c" 'hm--html-form-add-input-checkbox)
    393. 

  393.   (define-key hm--html-noregion-forms-map
    394. 

  394.     "d" 'hm--html-form-add-input-date)
    395. 

  395.   (define-key hm--html-noregion-forms-map
    396. 

  396.     "\C-f" 'hm--html-form-add-input-float)
    397. 

  397.   (define-key hm--html-noregion-forms-map "i" 'hm--html-form-add-input-image)
    398. 

  398.   (define-key hm--html-noregion-forms-map
    399. 

  399.     "\C-i" 'hm--html-form-add-input-integer)
    400. 

  400.   (define-key hm--html-noregion-forms-map
    401. 

  401.     "\M-i" 'hm--html-form-add-input-isindex)
    402. 

  402.   (define-key hm--html-noregion-forms-map
    403. 

  403.     "p" 'hm--html-form-add-input-password)
    404. 

  404.   (define-key hm--html-noregion-forms-map "r" 'hm--html-form-add-input-radio)
    405. 

  405.   (define-key hm--html-noregion-forms-map
    406. 

  406.     "\C-r" 'hm--html-form-add-input-reset)
    407. 

  407.   (define-key hm--html-noregion-forms-map
    408. 

  408.     "\C-s" 'hm--html-form-add-input-scribble)
    409. 

  409.   (define-key hm--html-noregion-forms-map "s" 'hm--html-form-add-input-submit)
    410. 

  410.   (define-key hm--html-noregion-forms-map "t" 'hm--html-form-add-input-text)
    411. 

  411.   (define-key hm--html-noregion-forms-map "u" 'hm--html-form-add-input-url)
    412. 

  412.   (define-key hm--html-noregion-forms-map "o" 'hm--html-form-add-select-option)
    413. 

  413.   (define-key hm--html-noregion-forms-map
    414. 

  414.     "m" 'hm--html-form-add-select-option-menu)
    415. 

  415.   (define-key hm--html-noregion-forms-map
    416. 

  416.     "l" 'hm--html-form-add-select-scrolled-list)
    417. 

  417.   (define-key hm--html-noregion-forms-map "\C-t" 'hm--html-form-add-textarea)
    418. 

  418.   )
    419. 

  419. 

  420. (defvar hm--html-region-forms-map nil
    421. 

  421.   "Region sub keymap for inserting forms.")
    422. 

  422. 

  423. (if hm--html-region-forms-map
    424. 

  424.     ()
    425. 

  425.   (setq hm--html-region-forms-map (make-sparse-keymap))
    426. 

  426. 

  427.   (define-key hm--html-region-forms-map "f" 'hm--html-add-form-to-region)
    428. 

  428.   )
    429. 

  429. 

  430. (defvar hm--html-region-sub-map-1 nil
    431. 

  431.   "Region sub keymap for the `hm--html-mode'.")
    432. 

  432. 

  433. (if hm--html-region-sub-map-1
    434. 

  434.     ()
    435. 

  435.   (setq hm--html-region-sub-map-1 (make-sparse-keymap))
    436. 

  436.   (define-key hm--html-region-sub-map-1 "\C-o" hm--html-region-forms-map)
    437. 

  437.   (define-key hm--html-region-sub-map-1 "\C-a" hm--html-region-anchor-map)
    438. 

  438.   (define-key hm--html-region-sub-map-1 "\C-i" hm--html-region-include-map)
    439. 

  439. ;  (define-key hm--html-region-sub-map-1 
    440. 

  440. ;    "\C-t" hm--html-region-text-elements-map)
    441. 

  441.   (define-key hm--html-region-sub-map-1 "\C-f" hm--html-region-frame-map)
    442. 

  442.   (define-key hm--html-region-sub-map-1 "\C-s" hm--html-region-structure-map)
    443. 

  443.   (define-key hm--html-region-sub-map-1 
    444. 

  444.     "\C-p" hm--html-region-formatting-paragraph-map)
    445. 

  445.   (define-key hm--html-region-sub-map-1
    446. 

  446.     "\C-w" hm--html-region-formatting-word-map)
    447. 

  447.   )
    448. 

  448. 

  449. (defvar hm--html-noregion-sub-map-1 nil
    450. 

  450.   "Noregion sub keymap for the `hm--html-mode'.")
    451. 

  451. 

  452. (if hm--html-noregion-sub-map-1
    453. 

  453.     ()
    454. 

  454.   (setq hm--html-noregion-sub-map-1 (make-sparse-keymap))
    455. 

  455.   
    456. 

  456.   (define-key hm--html-noregion-sub-map-1 "\C-o" hm--html-noregion-forms-map)
    457. 

  457.   (define-key hm--html-noregion-sub-map-1 "\C-a" hm--html-noregion-anchor-map)
    458. 

  458.   (define-key hm--html-noregion-sub-map-1 
    459. 

  459.     [(control i)] hm--html-noregion-include-map)
    460. 

  460. ;  (define-key hm--html-noregion-sub-map-1 
    461. 

  461. ;    "\C-t" hm--html-noregion-text-elements-map)
    462. 

  462.   (define-key hm--html-noregion-sub-map-1 "\C-f" hm--html-noregion-frame-map)
    463. 

  463.   (define-key hm--html-noregion-sub-map-1 
    464. 

  464.     "\C-s" hm--html-noregion-structure-map)
    465. 

  465.   (define-key hm--html-noregion-sub-map-1
    466. 

  466.     "\C-p" hm--html-noregion-formatting-paragraph-map)
    467. 

  467.   (define-key hm--html-noregion-sub-map-1
    468. 

  468.     "\C-w" hm--html-noregion-formatting-word-map)
    469. 

  469.   )
    470. 

  470. 

  471. (defvar hm--html-region-sub-map nil
    472. 

  472.   "Region sub keymap for the `hm--html-mode'.")
    473. 

  473. 

  474. (if hm--html-region-sub-map
    475. 

  475.     ()
    476. 

  476.   (setq hm--html-region-sub-map (make-sparse-keymap))
    477. 

  477. ;  (define-key hm--html-region-sub-map "\C-n" hm--html-noregion-sub-map-1)
    478. 

  478. ;  (define-key hm--html-region-sub-map "\C-r" hm--html-region-sub-map-1)
    479. 

  479.   (define-key hm--html-region-sub-map "\M-n" hm--html-noregion-sub-map-1)
    480. 

  480.   (define-key hm--html-region-sub-map "\M-r" hm--html-region-sub-map-1)
    481. 

  481. 

  482.   (if (adapt-emacsp)
    483. 

  483.       (map-keymap '(lambda (key-description-list binding)
    484. 

  484. 		     (define-key hm--html-region-sub-map
    485. 

  485. 		       (vector key-description-list) binding))
    486. 

  486. ;		       (single-key-description key-description-list) binding))
    487. 

  487. 		  hm--html-region-sub-map-1)
    488. 

  488.     (map-keymap '(lambda (key-description-list binding)
    489. 

  489. 		   (define-key hm--html-region-sub-map
    490. 

  490. 		     key-description-list binding))
    491. 

  491. 		hm--html-region-sub-map-1)
    492. 

  492.     )
    493. 

  493.   )
    494. 

  494. 

  495. (defvar hm--html-noregion-sub-map nil
    496. 

  496.   "Noregion keymap for the `hm--html-mode'.")
    497. 

  497. 

  498. (if hm--html-noregion-sub-map
    499. 

  499.     ()
    500. 

  500.   (setq hm--html-noregion-sub-map (make-sparse-keymap))
    501. 

  501. ;  (define-key hm--html-noregion-sub-map "\C-n" hm--html-noregion-sub-map-1)
    502. 

  502. ;  (define-key hm--html-noregion-sub-map "\C-r" hm--html-region-sub-map-1)
    503. 

  503.   (define-key hm--html-noregion-sub-map "\M-n" hm--html-noregion-sub-map-1)
    504. 

  504.   (define-key hm--html-noregion-sub-map "\M-r" hm--html-region-sub-map-1)
    505. 

  505. 

  506.   (if (adapt-emacsp)
    507. 

  507.       (map-keymap '(lambda (key-description-list binding)
    508. 

  508. 		     (define-key hm--html-noregion-sub-map
    509. 

  509. 		       (vector key-description-list) binding))
    510. 

  510. ;		       (single-key-description key-description-list) binding))
    511. 

  511. 		  hm--html-noregion-sub-map-1)
    512. 

  512.     (map-keymap '(lambda (key-description-list binding)
    513. 

  513. 		   (define-key hm--html-noregion-sub-map
    514. 

  514. 		     key-description-list binding))
    515. 

  515. 		hm--html-noregion-sub-map-1)
    516. 

  516.     )
    517. 

  517.   )
    518. 

  518. 

  519. (defvar hm--html-mode-map nil
    520. 

  520.   "Normal and noregion keymap for the `hm--html-mode'.")
    521. 

  521. 

  522. (if hm--html-mode-map
    523. 

  523.     ()
    524. 

  524.   (setq hm--html-mode-map (make-sparse-keymap))
    525. 

  525.   (define-key hm--html-mode-map 
    526. 

  526.     hm--html-mode-prefix-key hm--html-noregion-sub-map)
    527. 

  527.   (if (adapt-xemacsp)
    528. 

  528.       (progn
    529. 

  529. 	(define-key hm--html-mode-map '(button3) 'hm--html-popup-menu)
    530. 

  530. 	(define-key hm--html-mode-map 
    531. 

  531. 	  [(meta control button1)] 'idd-mouse-drag-and-drop))
    532. 

  532. ;    (define-key hm--html-mode-map [down-mouse-3] 'hm--html-popup-menu)
    533. 

  533.     (if hm--html-expert
    534. 

  534. 	(define-key hm--html-mode-map
    535. 

  535. 	  hm--html-emacs19-popup-noregion-menu-button
    536. 

  536. 	  hm--html-menu-noregion-expert-map)
    537. 

  537.       (define-key hm--html-mode-map
    538. 

  538. 	  hm--html-emacs19-popup-noregion-menu-button
    539. 

  539. 	  hm--html-menu-noregion-novice-map))
    540. 

  540.     (define-key hm--html-mode-map
    541. 

  541.       [(meta control mouse-1)] 'idd-mouse-drag-and-drop))
    542. 

  542.   (if hm--html-bind-latin-1-char-entities
    543. 

  543.       (progn
    544. 

  544. 	(define-key hm--html-mode-map [adiaeresis] 'hm--html_ae)
    545. 

  545. 	(define-key hm--html-mode-map [odiaeresis] 'hm--html_oe) 
    546. 

  546. 	(define-key hm--html-mode-map [udiaeresis] 'hm--html_ue)
    547. 

  547.   	(define-key hm--html-mode-map [aring]      'hm--html_aa)
    548. 

  548. 	(define-key hm--html-mode-map [Adiaeresis] 'hm--html_Ae) 
    549. 

  549. 	(define-key hm--html-mode-map [Odiaeresis] 'hm--html_Oe) 
    550. 

  550. 	(define-key hm--html-mode-map [Udiaeresis] 'hm--html_Ue)
    551. 

  551.   	(define-key hm--html-mode-map [Aring]      'hm--html_Aa)
    552. 

  552. 	(define-key hm--html-mode-map [ediaeresis] 'hm--html_ediaeresis) 
    553. 

  553. 	(define-key hm--html-mode-map [Ediaeresis] 'hm--html_Ediaeresis) 
    554. 

  554. 	(define-key hm--html-mode-map [idiaeresis] 'hm--html_idiaeresis) 
    555. 

  555. 	(define-key hm--html-mode-map [Idiaeresis] 'hm--html_Idiaeresis) 
    556. 

  556. 	(define-key hm--html-mode-map [ssharp] 'hm--html_sz) 
    557. 

  557. 	(define-key hm--html-mode-map [aacute] 'hm--html_aacute) 
    558. 

  558. 	(define-key hm--html-mode-map [eacute] 'hm--html_eacute) 
    559. 

  559. 	(define-key hm--html-mode-map [iacute] 'hm--html_iacute) 
    560. 

  560. 	(define-key hm--html-mode-map [oacute] 'hm--html_oacute) 
    561. 

  561. 	(define-key hm--html-mode-map [uacute] 'hm--html_uacute) 
    562. 

  562. 	(define-key hm--html-mode-map [Aacute] 'hm--html_Aacute) 
    563. 

  563. 	(define-key hm--html-mode-map [Eacute] 'hm--html_Eacute) 
    564. 

  564. 	(define-key hm--html-mode-map [Iacute] 'hm--html_Iacute) 
    565. 

  565. 	(define-key hm--html-mode-map [Oacute] 'hm--html_Oacute) 
    566. 

  566. 	(define-key hm--html-mode-map [Uacute] 'hm--html_Uacute) 
    567. 

  567. 	(define-key hm--html-mode-map [agrave] 'hm--html_agrave) 
    568. 

  568. 	(define-key hm--html-mode-map [egrave] 'hm--html_egrave) 
    569. 

  569. 	(define-key hm--html-mode-map [igrave] 'hm--html_igrave) 
    570. 

  570. 	(define-key hm--html-mode-map [ograve] 'hm--html_ograve) 
    571. 

  571. 	(define-key hm--html-mode-map [ugrave] 'hm--html_ugrave) 
    572. 

  572. 	(define-key hm--html-mode-map [Agrave] 'hm--html_Agrave) 
    573. 

  573. 	(define-key hm--html-mode-map [Egrave] 'hm--html_Egrave) 
    574. 

  574. 	(define-key hm--html-mode-map [Igrave] 'hm--html_Igrave) 
    575. 

  575. 	(define-key hm--html-mode-map [Ograve] 'hm--html_Ograve) 
    576. 

  576. 	(define-key hm--html-mode-map [Ugrave] 'hm--html_Ugrave) 
    577. 

  577. 	(define-key hm--html-mode-map [ccedilla] 'hm--html_ccedilla) 
    578. 

  578. 	(define-key hm--html-mode-map [Ccedilla] 'hm--html_Ccedilla) 
    579. 

  579. 	(define-key hm--html-mode-map [acircumflex] 'hm--html_acircumflex) 
    580. 

  580. 	(define-key hm--html-mode-map [ecircumflex] 'hm--html_ecircumflex) 
    581. 

  581. 	(define-key hm--html-mode-map [icircumflex] 'hm--html_icircumflex) 
    582. 

  582. 	(define-key hm--html-mode-map [ocircumflex] 'hm--html_ocircumflex) 
    583. 

  583. 	(define-key hm--html-mode-map [ucircumflex] 'hm--html_ucircumflex) 
    584. 

  584. 	(define-key hm--html-mode-map [Acircumflex] 'hm--html_Acircumflex) 
    585. 

  585. 	(define-key hm--html-mode-map [Ecircumflex] 'hm--html_Ecircumflex) 
    586. 

  586. 	(define-key hm--html-mode-map [Icircumflex] 'hm--html_Icircumflex) 
    587. 

  587. 	(define-key hm--html-mode-map [Ocircumflex] 'hm--html_Ocircumflex) 
    588. 

  588. 	(define-key hm--html-mode-map [Ucircumflex] 'hm--html_Ucircumflex)
    589. 

  589. 	(define-key hm--html-mode-map [atilde] 'hm--html_atilde) 
    590. 

  590. 	(define-key hm--html-mode-map [otilde] 'hm--html_otilde) 
    591. 

  591. 	(define-key hm--html-mode-map [ntilde] 'hm--html_ntilde) 
    592. 

  592. 	(define-key hm--html-mode-map [Atilde] 'hm--html_Atilde) 
    593. 

  593. 	(define-key hm--html-mode-map [Otilde] 'hm--html_Otilde) 
    594. 

  594. 	(define-key hm--html-mode-map [Ntilde] 'hm--html_Ntilde) 
    595. 

  595. 	(define-key hm--html-mode-map [eth] 'hm--html_eth) 
    596. 

  596. 	(define-key hm--html-mode-map [ETH] 'hm--html_Eth) 
    597. 

  597. 	(define-key hm--html-mode-map [thorn] 'hm--html_thorn) 
    598. 

  598. 	(define-key hm--html-mode-map [THORN] 'hm--html_Thorn) 
    599. 

  599. 	))
    600. 

  600.   (define-key hm--html-mode-map "<" 'hm--html-smart-less-than)
    601. 

  601.   (define-key hm--html-mode-map ">" 'hm--html-smart-greater-than)
    602. 

  602.   (define-key hm--html-mode-map "&" 'hm--html-smart-ampersand)
    603. 

  603.   )
    604. 

  604. 

  605. (defvar hm--html-region-mode-map nil
    606. 

  606.   "Region keymap for the `hm--html-mode'.")
    607. 

  607. 

  608. (if hm--html-region-mode-map
    609. 

  609.     ()
    610. 

  610.   (setq hm--html-region-mode-map (make-sparse-keymap))
    611. 

  611.   (define-key hm--html-region-mode-map 
    612. 

  612.     hm--html-mode-prefix-key hm--html-region-sub-map)
    613. 

  613.   (if (adapt-xemacsp)
    614. 

  614.       (progn
    615. 

  615. 	(define-key hm--html-region-mode-map 
    616. 

  616. 	  '(button3) 'hm--html-popup-menu-region)
    617. 

  617. 	(define-key hm--html-region-mode-map 
    618. 

  618. 	  [(meta control button1)] 'idd-mouse-drag-and-drop))
    619. 

  619. ;    (define-key hm--html-region-mode-map
    620. 

  620. ;      [down-mouse-3] 'hm--html-popup-menu-region)
    621. 

  621.     (if hm--html-expert
    622. 

  622. 	(define-key hm--html-region-mode-map
    623. 

  623. 	  hm--html-emacs19-popup-region-menu-button
    624. 

  624. 	  hm--html-menu-region-expert-map)
    625. 

  625.       (define-key hm--html-region-mode-map
    626. 

  626. 	hm--html-emacs19-popup-region-menu-button
    627. 

  627. 	hm--html-menu-region-novice-map))
    628. 

  628.     (define-key hm--html-region-mode-map
    629. 

  629.       [(meta control mouse-1)] 'idd-mouse-drag-and-drop))
    630. 

  630.   ;; It maybe a better idea to set the following to undefine in this list...
    631. 

  631. ;  (if hm--html-bind-latin-1-char-entities
    632. 

  632. ;      (progn
    633. 

  633. ;	(define-key hm--html-region-mode-map [adiaeresis] 'hm--html_ae)
    634. 

  634. ;	(define-key hm--html-region-mode-map [odiaeresis] 'hm--html_oe) 
    635. 

  635. ;	(define-key hm--html-region-mode-map [udiaeresis] 'hm--html_ue)
    636. 

  636. ;	(define-key hm--html-region-mode-map [aring]      'hm--html_aa)
    637. 

  637. ;	(define-key hm--html-region-mode-map [Adiaeresis] 'hm--html_Ae) 
    638. 

  638. ;	(define-key hm--html-region-mode-map [Odiaeresis] 'hm--html_Oe) 
    639. 

  639. ;	(define-key hm--html-region-mode-map [Udiaeresis] 'hm--html_Ue)
    640. 

  640. ; 	(define-key hm--html-region-mode-map [Aring]      'hm--html_Aa)
    641. 

  641. ;	(define-key hm--html-region-mode-map 
    642. 

  642. ;	  [ediaeresis] 'hm--html_ediaeresis) 
    643. 

  643. ;	(define-key hm--html-region-mode-map 
    644. 

  644. ;	  [Ediaeresis] 'hm--html_Ediaeresis) 
    645. 

  645. ;	(define-key hm--html-region-mode-map 
    646. 

  646. ;	  [idiaeresis] 'hm--html_idiaeresis) 
    647. 

  647. ;	(define-key hm--html-region-mode-map 
    648. 

  648. ;	  [Idiaeresis] 'hm--html_Idiaeresis) 
    649. 

  649. ;	(define-key hm--html-region-mode-map [ssharp] 'hm--html_sz) 
    650. 

  650. ;	(define-key hm--html-region-mode-map [aacute] 'hm--html_aacute) 
    651. 

  651. ;	(define-key hm--html-region-mode-map [eacute] 'hm--html_eacute) 
    652. 

  652. ;	(define-key hm--html-region-mode-map [iacute] 'hm--html_iacute) 
    653. 

  653. ;	(define-key hm--html-region-mode-map [oacute] 'hm--html_oacute) 
    654. 

  654. ;	(define-key hm--html-region-mode-map [uacute] 'hm--html_uacute) 
    655. 

  655. ;	(define-key hm--html-region-mode-map [Aacute] 'hm--html_Aacute) 
    656. 

  656. ;	(define-key hm--html-region-mode-map [Eacute] 'hm--html_Eacute) 
    657. 

  657. ;	(define-key hm--html-region-mode-map [Iacute] 'hm--html_Iacute) 
    658. 

  658. ;	(define-key hm--html-region-mode-map [Oacute] 'hm--html_Oacute) 
    659. 

  659. ;	(define-key hm--html-region-mode-map [Uacute] 'hm--html_Uacute) 
    660. 

  660. ;	(define-key hm--html-region-mode-map [agrave] 'hm--html_agrave) 
    661. 

  661. ;	(define-key hm--html-region-mode-map [egrave] 'hm--html_egrave) 
    662. 

  662. ;	(define-key hm--html-region-mode-map [igrave] 'hm--html_igrave) 
    663. 

  663. ;	(define-key hm--html-region-mode-map [ograve] 'hm--html_ograve) 
    664. 

  664. ;	(define-key hm--html-region-mode-map [ugrave] 'hm--html_ugrave) 
    665. 

  665. ;	(define-key hm--html-region-mode-map [Agrave] 'hm--html_Agrave) 
    666. 

  666. ;	(define-key hm--html-region-mode-map [Egrave] 'hm--html_Egrave) 
    667. 

  667. ;	(define-key hm--html-region-mode-map [Igrave] 'hm--html_Igrave) 
    668. 

  668. ;	(define-key hm--html-region-mode-map [Ograve] 'hm--html_Ograve) 
    669. 

  669. ;	(define-key hm--html-region-mode-map [Ugrave] 'hm--html_Ugrave) 
    670. 

  670. ;	(define-key hm--html-region-mode-map [ccedilla] 'hm--html_ccedilla) 
    671. 

  671. ;	(define-key hm--html-region-mode-map [Ccedilla] 'hm--html_Ccedilla) 
    672. 

  672. ;	(define-key hm--html-region-mode-map 
    673. 

  673. ;	  [acircumflex] 'hm--html_acircumflex) 
    674. 

  674. ;	(define-key hm--html-region-mode-map 
    675. 

  675. ;	  [ecircumflex] 'hm--html_ecircumflex) 
    676. 

  676. ;	(define-key hm--html-region-mode-map 
    677. 

  677. ;	  [icircumflex] 'hm--html_icircumflex) 
    678. 

  678. ;	(define-key hm--html-region-mode-map 
    679. 

  679. ;	  [ocircumflex] 'hm--html_ocircumflex) 
    680. 

  680. ;	(define-key hm--html-region-mode-map 
    681. 

  681. ;	  [ucircumflex] 'hm--html_ucircumflex) 
    682. 

  682. ;	(define-key hm--html-region-mode-map 
    683. 

  683. ;	  [Acircumflex] 'hm--html_Acircumflex) 
    684. 

  684. ;	(define-key hm--html-region-mode-map 
    685. 

  685. ;	  [Ecircumflex] 'hm--html_Ecircumflex) 
    686. 

  686. ;	(define-key hm--html-region-mode-map 
    687. 

  687. ;	  [Icircumflex] 'hm--html_Icircumflex) 
    688. 

  688. ;	(define-key hm--html-region-mode-map 
    689. 

  689. ;	  [Ocircumflex] 'hm--html_Ocircumflex) 
    690. 

  690. ;	(define-key hm--html-region-mode-map 
    691. 

  691. ;	  [Ucircumflex] 'hm--html_Ucircumflex)
    692. 

  692. ;	(define-key hm--html-region-mode-map [atilde] 'hm--html_atilde) 
    693. 

  693. ;	(define-key hm--html-region-mode-map [otilde] 'hm--html_otilde) 
    694. 

  694. ;	(define-key hm--html-region-mode-map [ntilde] 'hm--html_ntilde) 
    695. 

  695. ;	(define-key hm--html-region-mode-map [Atilde] 'hm--html_Atilde) 
    696. 

  696. ;	(define-key hm--html-region-mode-map [Otilde] 'hm--html_Otilde) 
    697. 

  697. ;	(define-key hm--html-region-mode-map [Ntilde] 'hm--html_Ntilde) 
    698. 

  698. ;	(define-key hm--html-region-mode-map [eth] 'hm--html_eth) 
    699. 

  699. ;	(define-key hm--html-region-mode-map [ETH] 'hm--html_Eth) 
    700. 

  700. ;	(define-key hm--html-region-mode-map [thorn] 'hm--html_thorn) 
    701. 

  701. ;	(define-key hm--html-region-mode-map [THORN] 'hm--html_Thorn) 
    702. 

  702. ;	))
    703. 

  703.   (define-key hm--html-region-mode-map "<" 'hm--html-smart-less-than)
    704. 

  704.   (define-key hm--html-region-mode-map ">" 'hm--html-smart-greater-than)
    705. 

  705.   (define-key hm--html-region-mode-map "&" 'hm--html-smart-ampersand)
    706. 

  706.   )
    707. 

  707. 

  708. 

  709. ;;; For the hm--html minor modes
    710. 

  710. (defvar hm--html-minor-mode-map nil
    711. 

  711.   "Normal and noregion keymap for the `hm--html-minor-mode'.")
    712. 

  712. 

  713. (if hm--html-minor-mode-map
    714. 

  714.     ()
    715. 

  715.   (setq hm--html-minor-mode-map (make-sparse-keymap))
    716. 

  716.   (define-key hm--html-minor-mode-map 
    717. 

  717.     hm--html-minor-mode-prefix-key hm--html-noregion-sub-map)
    718. 

  718.   (if (adapt-xemacsp)
    719. 

  719.       (progn
    720. 

  720. 	(define-key hm--html-minor-mode-map 
    721. 

  721. 	  '(button3) 'hm--html-popup-minor-html-menu)
    722. 

  722. 	(define-key hm--html-minor-mode-map 
    723. 

  723. 	  [(meta control button1)] 'idd-mouse-drag-and-drop))
    724. 

  724.     (if hm--html-expert
    725. 

  725. 	(define-key hm--html-minor-mode-map 
    726. 

  726. 	  hm--html-emacs19-popup-noregion-menu-button
    727. 

  727. 	  hm--html-menu-noregion-expert-map)
    728. 

  728.       (define-key hm--html-minor-mode-map 
    729. 

  729. 	  hm--html-emacs19-popup-noregion-menu-button
    730. 

  730. 	  hm--html-menu-noregion-novice-map))
    731. 

  731.     (define-key hm--html-minor-mode-map
    732. 

  732.       [(meta control mouse-1)] 'idd-mouse-drag-and-drop))
    733. 

  733.   (define-key hm--html-minor-mode-map "<" 'hm--html-smart-less-than)
    734. 

  734.   (define-key hm--html-minor-mode-map ">" 'hm--html-smart-greater-than)
    735. 

  735.   (define-key hm--html-minor-mode-map "&" 'hm--html-smart-ampersand)
    736. 

  736.   )
    737. 

  737. 

  738. 

  739. (defvar hm--html-minor-region-mode-map nil
    740. 

  740.   "Region keymap for the `hm--html-minor-mode'.")
    741. 

  741. 

  742. (if hm--html-minor-region-mode-map
    743. 

  743.     ()
    744. 

  744.   (setq hm--html-minor-region-mode-map (make-sparse-keymap))
    745. 

  745.   (define-key hm--html-minor-region-mode-map 
    746. 

  746.     hm--html-minor-mode-prefix-key hm--html-region-sub-map)
    747. 

  747.   (if (adapt-xemacsp)
    748. 

  748.       (progn
    749. 

  749. 	(define-key hm--html-minor-region-mode-map 
    750. 

  750. 	  '(button3) 'hm--html-popup-minor-html-menu-region)
    751. 

  751. 	(define-key hm--html-minor-region-mode-map 
    752. 

  752. 	  [(meta control button1)] 'idd-mouse-drag-and-drop))
    753. 

  753.     (if hm--html-expert
    754. 

  754. 	(define-key hm--html-minor-region-mode-map
    755. 

  755. 	  hm--html-emacs19-popup-region-menu-button 
    756. 

  756. 	  hm--html-menu-region-expert-map)
    757. 

  757.       (define-key hm--html-minor-region-mode-map
    758. 

  758. 	  hm--html-emacs19-popup-region-menu-button
    759. 

  759. 	  hm--html-menu-region-novice-map))
    760. 

  760.     (define-key hm--html-minor-region-mode-map
    761. 

  761.       [(meta control mouse-1)] 'idd-mouse-drag-and-drop))
    762. 

  762.   (define-key hm--html-minor-region-mode-map "<" 'hm--html-smart-less-than)
    763. 

  763.   (define-key hm--html-minor-region-mode-map ">" 'hm--html-smart-greater-than)
    764. 

  764.   (define-key hm--html-minor-region-mode-map "&" 'hm--html-smart-ampersand)
    765. 

  765.   )
    766. 

  766. 

  767. 

  768. ;;; Announce the feature hm--html-keys
    769. 

  769. (provide 'hm--html-keys)
    770. 

    771.