|
142
|
1 ;;; $Id: hm--html-keys.el,v 1.6 1997/05/09 03:28:00 steve Exp $
|
|
2
|
2 ;;;
|
|
98
|
3 ;;; Copyright (C) 1995, 1996, 1997 Heiko Muenkel
|
|
0
|
4 ;;; email: muenkel@tnt.uni-hannover.de
|
|
|
5 ;;;
|
|
|
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
|
|
98
|
8 ;;; the Free Software Foundation; either version 2, or (at your option)
|
|
0
|
9 ;;; any later version.
|
|
|
10 ;;;
|
|
|
11 ;;; This program is distributed in the hope that it will be useful,
|
|
|
12 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
14 ;;; GNU General Public License for more details.
|
|
|
15 ;;;
|
|
|
16 ;;; You should have received a copy of the GNU General Public License
|
|
|
17 ;;; along with this program; if not, write to the Free Software
|
|
|
18 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
19 ;;;
|
|
|
20 ;;;
|
|
|
21 ;;; Description:
|
|
|
22 ;;;
|
|
|
23 ;;; Defines the new keybindigs for the hm--html-menus package.
|
|
|
24 ;;;
|
|
|
25 ;;; Installation:
|
|
|
26 ;;;
|
|
|
27 ;;; Put this file in one of your load path directories.
|
|
|
28 ;;;
|
|
|
29
|
|
2
|
30 (if (adapt-emacs19p)
|
|
|
31 (progn
|
|
|
32
|
|
|
33 (defvar hm--html-emacs19-popup-noregion-menu-button [C-down-mouse-3]
|
|
|
34 "This is the mouse button , which pops up the noregion menus.
|
|
|
35 It could have the same value as
|
|
|
36 `hm--html-emacs19-popup-region-menu-button'.")
|
|
|
37
|
|
|
38 (defvar hm--html-emacs19-popup-region-menu-button [C-down-mouse-3]
|
|
|
39 "This is the mouse button , which pops up the region menus.
|
|
|
40 It could have the same value as
|
|
|
41 `hm--html-emacs19-popup-noregion-menu-button'.")
|
|
|
42
|
|
|
43 ))
|
|
0
|
44
|
|
|
45
|
|
|
46 (defvar hm--html-noregion-anchor-map nil
|
|
|
47 "Noregion sub keymap for inserting anchors.")
|
|
|
48
|
|
|
49 (if hm--html-noregion-anchor-map
|
|
|
50 ()
|
|
|
51 (setq hm--html-noregion-anchor-map (make-sparse-keymap))
|
|
2
|
52 (define-key hm--html-noregion-anchor-map "r" 'hm--html-add-relative-link)
|
|
0
|
53 (define-key hm--html-noregion-anchor-map "h" 'hm--html-add-html-link)
|
|
|
54 (define-key hm--html-noregion-anchor-map "i" 'hm--html-add-info-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)
|
|
|
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)
|
|
116
|
59 (define-key hm--html-noregion-anchor-map "m" 'hm--html-add-mail-box-link)
|
|
0
|
60 (define-key hm--html-noregion-anchor-map
|
|
|
61 [(control m)] 'hm--html-add-mailto-link)
|
|
|
62 (define-key hm--html-noregion-anchor-map "w" 'hm--html-add-direct-wais-link)
|
|
|
63 (define-key hm--html-noregion-anchor-map "\C-w" 'hm--html-add-wais-link)
|
|
|
64 (define-key hm--html-noregion-anchor-map "p" 'hm--html-add-proggate-link)
|
|
|
65 (define-key hm--html-noregion-anchor-map
|
|
|
66 "\C-p" 'hm--html-add-local-proggate-link)
|
|
2
|
67 (define-key hm--html-noregion-anchor-map "l" 'hm--html-add-normal-link)
|
|
0
|
68 (define-key hm--html-noregion-anchor-map "t" 'hm--html-add-link-target)
|
|
|
69 )
|
|
|
70
|
|
|
71 (defvar hm--html-region-anchor-map nil
|
|
|
72 "Region sub keymap for inserting anchors.")
|
|
|
73
|
|
|
74 (if hm--html-region-anchor-map
|
|
|
75 ()
|
|
|
76 (setq hm--html-region-anchor-map (make-sparse-keymap))
|
|
2
|
77 (define-key hm--html-region-anchor-map
|
|
|
78 "r" 'hm--html-add-relative-link-to-region)
|
|
0
|
79 (define-key hm--html-region-anchor-map "h" 'hm--html-add-html-link-to-region)
|
|
|
80 (define-key hm--html-region-anchor-map "i" 'hm--html-add-info-link-to-region)
|
|
|
81 (define-key hm--html-region-anchor-map
|
|
|
82 "g" 'hm--html-add-gopher-link-to-region)
|
|
|
83 (define-key hm--html-region-anchor-map "f" 'hm--html-add-file-link-to-region)
|
|
|
84 (define-key hm--html-region-anchor-map
|
|
|
85 "\C-f" 'hm--html-add-ftp-link-to-region)
|
|
|
86 (define-key hm--html-region-anchor-map "n" 'hm--html-add-news-link-to-region)
|
|
116
|
87 (define-key hm--html-region-anchor-map "m" 'hm--html-add-mail-box-link-to-region)
|
|
0
|
88 (define-key hm--html-region-anchor-map
|
|
|
89 [(control m)] 'hm--html-add-mailto-link-to-region)
|
|
|
90 (define-key hm--html-region-anchor-map
|
|
|
91 "w" 'hm--html-add-direct-wais-link-to-region)
|
|
|
92 (define-key hm--html-region-anchor-map
|
|
|
93 "\C-w" 'hm--html-add-wais-link-to-region)
|
|
|
94 (define-key hm--html-region-anchor-map
|
|
|
95 "p" 'hm--html-add-proggate-link-to-region)
|
|
|
96 (define-key hm--html-region-anchor-map
|
|
|
97 "\C-p" 'hm--html-add-local-proggate-link-to-region)
|
|
|
98 (define-key hm--html-region-anchor-map
|
|
|
99 "l" 'hm--html-add-normal-link-to-region)
|
|
|
100 (define-key hm--html-region-anchor-map
|
|
2
|
101 "t" 'hm--html-add-link-target-to-region)
|
|
0
|
102 )
|
|
|
103
|
|
|
104 (defvar hm--html-noregion-frame-map nil
|
|
|
105 "Noregion sub keymap for inserting frame elements.")
|
|
|
106
|
|
|
107 (if hm--html-noregion-frame-map
|
|
|
108 ()
|
|
|
109 (setq hm--html-noregion-frame-map (make-sparse-keymap))
|
|
|
110 (define-key hm--html-noregion-frame-map "f" 'hm--html-add-full-html-frame)
|
|
102
|
111 (define-key hm--html-noregion-frame-map [(control d)] 'hm--html-add-doctype)
|
|
0
|
112 (define-key hm--html-noregion-frame-map [(control h)] 'hm--html-add-html)
|
|
|
113 (define-key hm--html-noregion-frame-map [(meta h)] 'hm--html-add-head)
|
|
|
114 (define-key hm--html-noregion-frame-map "b" 'hm--html-add-body)
|
|
|
115 (define-key hm--html-noregion-frame-map
|
|
|
116 [(control t)] 'hm--html-add-title-and-header)
|
|
|
117 (define-key hm--html-noregion-frame-map "t" 'hm--html-add-title)
|
|
|
118 (define-key hm--html-noregion-frame-map "h" 'hm--html-add-header)
|
|
102
|
119 (define-key hm--html-noregion-frame-map "m" 'hm--html-add-meta)
|
|
0
|
120 (define-key hm--html-noregion-frame-map "n" 'hm--html-add-normal-node-link)
|
|
102
|
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)
|
|
2
|
123 (define-key hm--html-noregion-frame-map "a" 'hm--html-add-address)
|
|
0
|
124 (define-key hm--html-noregion-frame-map "s" 'hm--html-add-signature)
|
|
|
125 (define-key hm--html-noregion-frame-map
|
|
|
126 [(control c)] 'hm--html-insert-created-comment)
|
|
|
127 (define-key hm--html-noregion-frame-map "c" 'hm--html-insert-changed-comment)
|
|
|
128 (define-key hm--html-noregion-frame-map "d" 'hm--html-new-date)
|
|
|
129 )
|
|
|
130
|
|
|
131 (defvar hm--html-region-frame-map nil
|
|
|
132 "Region sub keymap for inserting frame elements.")
|
|
|
133
|
|
|
134 (if hm--html-region-frame-map
|
|
|
135 ()
|
|
|
136 (setq hm--html-region-frame-map (make-sparse-keymap))
|
|
|
137 (define-key hm--html-region-frame-map
|
|
|
138 "f" 'hm--html-add-full-html-frame-with-region)
|
|
|
139 (define-key hm--html-region-frame-map
|
|
|
140 [(meta h)] 'hm--html-add-head-to-region)
|
|
|
141 (define-key hm--html-region-frame-map "b" 'hm--html-add-body-to-region)
|
|
|
142 (define-key hm--html-region-frame-map
|
|
|
143 [(control t)] 'hm--html-add-title-and-header-to-region)
|
|
|
144 (define-key hm--html-region-frame-map "t" 'hm--html-add-title-to-region)
|
|
|
145 (define-key hm--html-region-frame-map "h" 'hm--html-add-header-to-region)
|
|
|
146 (define-key hm--html-region-frame-map "a" 'hm--html-add-address-to-region)
|
|
|
147 )
|
|
|
148
|
|
|
149 (defvar hm--html-noregion-structure-map nil
|
|
|
150 "Noregion sub keymap for inserting entities.")
|
|
|
151
|
|
|
152 (if hm--html-noregion-structure-map
|
|
|
153 ()
|
|
|
154 (setq hm--html-noregion-structure-map (make-sparse-keymap))
|
|
2
|
155 (define-key hm--html-noregion-structure-map
|
|
|
156 "i" 'hm--html-add-list-or-menu-item)
|
|
|
157 (define-key hm--html-noregion-structure-map "m" 'hm--html-add-menu)
|
|
|
158 (define-key hm--html-noregion-structure-map "u" 'hm--html-add-list)
|
|
0
|
159 (define-key hm--html-noregion-structure-map "o" 'hm--html-add-numberlist)
|
|
|
160 (define-key hm--html-noregion-structure-map "d" 'hm--html-add-directory-list)
|
|
|
161 (define-key hm--html-noregion-structure-map
|
|
2
|
162 "\C-dl" 'hm--html-add-description-list)
|
|
0
|
163 (define-key hm--html-noregion-structure-map
|
|
|
164 "\C-dt" 'hm--html-add-description-title)
|
|
|
165 (define-key hm--html-noregion-structure-map
|
|
2
|
166 "\C-de" 'hm--html-add-description-entry)
|
|
0
|
167 (define-key hm--html-noregion-structure-map
|
|
2
|
168 "\C-d\C-t" 'hm--html-add-description-title-and-entry)
|
|
0
|
169 (define-key hm--html-noregion-structure-map
|
|
|
170 "\C-tt" 'hm--html-add-table)
|
|
|
171 (define-key hm--html-noregion-structure-map
|
|
|
172 "\C-t\C-t" 'hm--html-add-table-title)
|
|
|
173 (define-key hm--html-noregion-structure-map
|
|
|
174 "\C-th" 'hm--html-add-table-header)
|
|
|
175 (define-key hm--html-noregion-structure-map
|
|
|
176 "\C-tr" 'hm--html-add-first-table-row)
|
|
|
177 (define-key hm--html-noregion-structure-map
|
|
|
178 "\C-t\C-r" 'hm--html-add-additional-table-row)
|
|
|
179 (define-key hm--html-noregion-structure-map "p" 'hm--html-add-paragraph)
|
|
|
180 (define-key hm--html-noregion-structure-map
|
|
|
181 "\C-p" 'hm--html-add-paragraph-separator)
|
|
102
|
182 (define-key hm--html-noregion-structure-map
|
|
|
183 [(meta d)] 'hm--html-add-document-division)
|
|
0
|
184 (define-key hm--html-noregion-structure-map "\C-m" 'hm--html-add-line-break)
|
|
|
185 (define-key hm--html-noregion-structure-map
|
|
|
186 "h" 'hm--html-add-horizontal-rule)
|
|
|
187 )
|
|
|
188
|
|
|
189 (defvar hm--html-region-structure-map nil
|
|
|
190 "Region sub keymap for inserting entities.")
|
|
|
191
|
|
|
192 (if hm--html-region-structure-map
|
|
|
193 ()
|
|
|
194 (setq hm--html-region-structure-map (make-sparse-keymap))
|
|
98
|
195 (define-key hm--html-region-structure-map
|
|
2
|
196 "i" 'hm--html-add-list-or-menu-item-to-region)
|
|
0
|
197 (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)
|
|
|
199 (define-key hm--html-region-structure-map
|
|
|
200 "o" 'hm--html-add-numberlist-to-region)
|
|
|
201 (define-key hm--html-region-structure-map
|
|
102
|
202 "d" 'hm--html-add-directorylist-to-region)
|
|
0
|
203 (define-key hm--html-region-structure-map
|
|
2
|
204 "\C-dl" 'hm--html-add-description-list-to-region)
|
|
|
205 (define-key hm--html-region-structure-map
|
|
|
206 "\C-dt" 'hm--html-add-description-title-to-region)
|
|
|
207 (define-key hm--html-region-structure-map
|
|
|
208 "\C-de" 'hm--html-add-description-entry-to-region)
|
|
0
|
209 (define-key hm--html-region-structure-map
|
|
|
210 "\C-tt" 'hm--html-add-table-to-region)
|
|
|
211 (define-key hm--html-region-structure-map
|
|
|
212 "\C-t\C-t" 'hm--html-add-table-title-to-region)
|
|
|
213 (define-key hm--html-region-structure-map
|
|
|
214 "p" 'hm--html-add-paragraph-to-region)
|
|
102
|
215 (define-key hm--html-region-structure-map
|
|
|
216 [(meta d)] 'hm--html-add-document-division-to-region)
|
|
0
|
217 )
|
|
|
218
|
|
142
|
219 (defvar hm--html-noregion-formatting-paragraph-map nil
|
|
|
220 "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)
|
|
0
|
224
|
|
142
|
225 (if hm--html-noregion-formatting-paragraph-map
|
|
0
|
226 ()
|
|
142
|
227 (setq hm--html-noregion-formatting-paragraph-map (make-sparse-keymap))
|
|
|
228 ; (define-key hm--html-noregion-formatting-paragraph-map
|
|
102
|
229 ; "o" 'hm--html-add-plaintext)
|
|
142
|
230 (define-key hm--html-noregion-formatting-paragraph-map
|
|
|
231 "p" 'hm--html-add-preformatted)
|
|
|
232 (define-key hm--html-noregion-formatting-paragraph-map
|
|
2
|
233 "b" 'hm--html-add-blockquote)
|
|
142
|
234 (define-key hm--html-noregion-formatting-paragraph-map
|
|
116
|
235 "\C-b" 'hm--html-add-basefont)
|
|
142
|
236 (define-key hm--html-noregion-formatting-paragraph-map
|
|
102
|
237 "f" 'hm--html-add-font)
|
|
142
|
238 (define-key hm--html-noregion-formatting-paragraph-map
|
|
102
|
239 "c" 'hm--html-add-center)
|
|
142
|
240 (define-key hm--html-noregion-formatting-paragraph-map
|
|
116
|
241 "\C-c" 'hm--html-add-comment)
|
|
142
|
242 ; (define-key hm--html-noregion-formatting-paragraph-map
|
|
102
|
243 ; "l" 'hm--html-add-listing)
|
|
142
|
244 ; (define-key hm--html-noregion-formatting-paragraph-map
|
|
102
|
245 ; "a" 'hm--html-add-abstract)
|
|
0
|
246 )
|
|
|
247
|
|
142
|
248 (defvar hm--html-region-formatting-paragraph-map nil
|
|
|
249 "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)
|
|
0
|
253
|
|
142
|
254 (if hm--html-region-formatting-paragraph-map
|
|
0
|
255 ()
|
|
142
|
256 (setq hm--html-region-formatting-paragraph-map (make-sparse-keymap))
|
|
|
257 ; (define-key hm--html-region-formatting-paragraph-map
|
|
102
|
258 ; "o" 'hm--html-add-plaintext-to-region)
|
|
142
|
259 (define-key hm--html-region-formatting-paragraph-map
|
|
|
260 "p" 'hm--html-add-preformatted-to-region)
|
|
|
261 (define-key hm--html-region-formatting-paragraph-map
|
|
0
|
262 "b" 'hm--html-add-blockquote-to-region)
|
|
142
|
263 (define-key hm--html-region-formatting-paragraph-map
|
|
116
|
264 "\C-b" 'hm--html-add-basefont-to-region)
|
|
142
|
265 (define-key hm--html-region-formatting-paragraph-map
|
|
102
|
266 "f" 'hm--html-add-font-to-region)
|
|
142
|
267 (define-key hm--html-region-formatting-paragraph-map
|
|
102
|
268 "c" 'hm--html-add-center-to-region)
|
|
142
|
269 (define-key hm--html-region-formatting-paragraph-map
|
|
116
|
270 "\C-c" 'hm--html-add-comment-to-region)
|
|
142
|
271 ; (define-key hm--html-region-formatting-paragraph-map
|
|
102
|
272 ; "l" 'hm--html-add-listing-to-region)
|
|
142
|
273 ; (define-key hm--html-region-formatting-paragraph-map
|
|
102
|
274 ; "a" 'hm--html-add-abstract-to-region)
|
|
0
|
275 )
|
|
|
276
|
|
142
|
277 (defvar hm--html-noregion-formatting-word-map nil
|
|
|
278 "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)
|
|
0
|
282
|
|
142
|
283 (if hm--html-noregion-formatting-word-map
|
|
0
|
284 ()
|
|
142
|
285 (setq hm--html-noregion-formatting-word-map (make-sparse-keymap))
|
|
|
286 (define-key hm--html-noregion-formatting-word-map
|
|
0
|
287 "b" 'hm--html-add-bold)
|
|
142
|
288 (define-key hm--html-noregion-formatting-word-map
|
|
0
|
289 "i" 'hm--html-add-italic)
|
|
142
|
290 (define-key hm--html-noregion-formatting-word-map
|
|
0
|
291 "u" 'hm--html-add-underline)
|
|
142
|
292 (define-key hm--html-noregion-formatting-word-map
|
|
2
|
293 "t" 'hm--html-add-fixed)
|
|
142
|
294 (define-key hm--html-noregion-formatting-word-map
|
|
0
|
295 "s" 'hm--html-add-strikethru)
|
|
142
|
296 (define-key hm--html-noregion-formatting-word-map
|
|
0
|
297 "\C-p" 'hm--html-add-superscript)
|
|
142
|
298 (define-key hm--html-noregion-formatting-word-map
|
|
0
|
299 "\C-b" 'hm--html-add-subscript)
|
|
142
|
300 (define-key hm--html-noregion-formatting-word-map
|
|
2
|
301 "e" 'hm--html-add-emphasized)
|
|
142
|
302 (define-key hm--html-noregion-formatting-word-map
|
|
2
|
303 "\C-s" 'hm--html-add-strong)
|
|
142
|
304 (define-key hm--html-noregion-formatting-word-map
|
|
2
|
305 "\M-s" 'hm--html-add-small)
|
|
142
|
306 (define-key hm--html-noregion-formatting-word-map
|
|
2
|
307 "\M-b" 'hm--html-add-big)
|
|
0
|
308 )
|
|
|
309
|
|
142
|
310 (defvar hm--html-region-formatting-word-map nil
|
|
|
311 "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)
|
|
0
|
315
|
|
142
|
316 (if hm--html-region-formatting-word-map
|
|
0
|
317 ()
|
|
142
|
318 (setq hm--html-region-formatting-word-map (make-sparse-keymap))
|
|
|
319 (define-key hm--html-region-formatting-word-map
|
|
0
|
320 "b" 'hm--html-add-bold-to-region)
|
|
142
|
321 (define-key hm--html-region-formatting-word-map
|
|
0
|
322 "i" 'hm--html-add-italic-to-region)
|
|
142
|
323 (define-key hm--html-region-formatting-word-map
|
|
0
|
324 "u" 'hm--html-add-underline-to-region)
|
|
142
|
325 (define-key hm--html-region-formatting-word-map
|
|
0
|
326 "t" 'hm--html-add-fixed-to-region)
|
|
142
|
327 (define-key hm--html-region-formatting-word-map
|
|
0
|
328 "s" 'hm--html-add-strikethru-to-region)
|
|
142
|
329 (define-key hm--html-region-formatting-word-map
|
|
0
|
330 "\C-p" 'hm--html-add-superscript-to-region)
|
|
142
|
331 (define-key hm--html-region-formatting-word-map
|
|
0
|
332 "\C-b" 'hm--html-add-subscript-to-region)
|
|
142
|
333 (define-key hm--html-region-formatting-word-map
|
|
0
|
334 "e" 'hm--html-add-emphasized-to-region)
|
|
142
|
335 (define-key hm--html-region-formatting-word-map
|
|
0
|
336 "\C-s" 'hm--html-add-strong-to-region)
|
|
142
|
337 (define-key hm--html-region-formatting-word-map
|
|
2
|
338 "\M-s" 'hm--html-add-small-to-region)
|
|
142
|
339 (define-key hm--html-region-formatting-word-map
|
|
2
|
340 "\M-b" 'hm--html-add-big-to-region)
|
|
0
|
341 )
|
|
|
342
|
|
2
|
343 (defvar hm--html-noregion-include-map nil
|
|
|
344 "Noregion sub keymap for include images and other stuff.")
|
|
|
345
|
|
|
346 (if hm--html-noregion-include-map
|
|
|
347 ()
|
|
|
348 (setq hm--html-noregion-include-map (make-sparse-keymap))
|
|
102
|
349 (define-key hm--html-noregion-include-map
|
|
|
350 [(control i) (t)] 'hm--html-add-image-top)
|
|
|
351 (define-key hm--html-noregion-include-map
|
|
|
352 [(control i) (m)] 'hm--html-add-image-middle)
|
|
|
353 (define-key hm--html-noregion-include-map
|
|
|
354 [(control i) (b)] 'hm--html-add-image-bottom)
|
|
|
355 (define-key hm--html-noregion-include-map "i" 'hm--html-add-image)
|
|
|
356 (define-key hm--html-noregion-include-map [(meta i)] 'hm--html-add-image-map)
|
|
|
357 (define-key hm--html-noregion-include-map "m" 'hm--html-add-map)
|
|
|
358 (define-key hm--html-noregion-include-map [(control a)] 'hm--html-add-area)
|
|
2
|
359 (define-key hm--html-noregion-include-map "a" 'hm--html-add-applet)
|
|
102
|
360 (define-key hm--html-noregion-include-map "p" 'hm--html-add-applet-parameter)
|
|
2
|
361 )
|
|
0
|
362
|
|
2
|
363 (defvar hm--html-region-include-map nil
|
|
|
364 "Region sub keymap for include images and other stuff.")
|
|
0
|
365
|
|
2
|
366 (if hm--html-region-include-map
|
|
|
367 ()
|
|
|
368 (setq hm--html-region-include-map (make-sparse-keymap))
|
|
102
|
369 (define-key hm--html-region-include-map "m" 'hm--html-add-map-to-region)
|
|
|
370 (define-key hm--html-region-include-map "a" 'hm--html-add-applet-to-region)
|
|
2
|
371 )
|
|
0
|
372
|
|
2
|
373 ;(defvar hm--html-noregion-text-elements-map nil
|
|
|
374 ; "Noregion sub keymap for inserting text elements.")
|
|
|
375
|
|
|
376 ;(if hm--html-noregion-text-elements-map
|
|
0
|
377 ; ()
|
|
2
|
378 ; (setq hm--html-noregion-text-elements-map (make-sparse-keymap))
|
|
0
|
379 ; )
|
|
|
380
|
|
2
|
381 ;(defvar hm--html-region-text-elements-map nil
|
|
|
382 ; "Region sub keymap for inserting text elements.")
|
|
0
|
383
|
|
2
|
384 ;(if hm--html-region-text-elements-map
|
|
|
385 ; ()
|
|
|
386 ; (setq hm--html-region-text-elements-map (make-sparse-keymap))
|
|
|
387 ; )
|
|
0
|
388
|
|
|
389 (defvar hm--html-noregion-forms-map nil
|
|
|
390 "Noregion sub keymap for inserting forms.")
|
|
|
391
|
|
|
392 (if hm--html-noregion-forms-map
|
|
|
393 ()
|
|
|
394 (setq hm--html-noregion-forms-map (make-sparse-keymap))
|
|
2
|
395
|
|
|
396 (define-key hm--html-noregion-forms-map "f" 'hm--html-add-form)
|
|
|
397 (define-key hm--html-noregion-forms-map "a" 'hm--html-form-add-input-audio)
|
|
|
398 (define-key hm--html-noregion-forms-map
|
|
|
399 "c" 'hm--html-form-add-input-checkbox)
|
|
|
400 (define-key hm--html-noregion-forms-map
|
|
|
401 "d" 'hm--html-form-add-input-date)
|
|
|
402 (define-key hm--html-noregion-forms-map
|
|
|
403 "\C-f" 'hm--html-form-add-input-float)
|
|
|
404 (define-key hm--html-noregion-forms-map "i" 'hm--html-form-add-input-image)
|
|
|
405 (define-key hm--html-noregion-forms-map
|
|
|
406 "\C-i" 'hm--html-form-add-input-integer)
|
|
|
407 (define-key hm--html-noregion-forms-map
|
|
|
408 "\M-i" 'hm--html-form-add-input-isindex)
|
|
|
409 (define-key hm--html-noregion-forms-map
|
|
|
410 "p" 'hm--html-form-add-input-password)
|
|
|
411 (define-key hm--html-noregion-forms-map "r" 'hm--html-form-add-input-radio)
|
|
|
412 (define-key hm--html-noregion-forms-map
|
|
|
413 "\C-r" 'hm--html-form-add-input-reset)
|
|
|
414 (define-key hm--html-noregion-forms-map
|
|
|
415 "\C-s" 'hm--html-form-add-input-scribble)
|
|
|
416 (define-key hm--html-noregion-forms-map "s" 'hm--html-form-add-input-submit)
|
|
|
417 (define-key hm--html-noregion-forms-map "t" 'hm--html-form-add-input-text)
|
|
|
418 (define-key hm--html-noregion-forms-map "u" 'hm--html-form-add-input-url)
|
|
|
419 (define-key hm--html-noregion-forms-map "o" 'hm--html-form-add-select-option)
|
|
|
420 (define-key hm--html-noregion-forms-map
|
|
|
421 "m" 'hm--html-form-add-select-option-menu)
|
|
|
422 (define-key hm--html-noregion-forms-map
|
|
|
423 "l" 'hm--html-form-add-select-scrolled-list)
|
|
|
424 (define-key hm--html-noregion-forms-map "\C-t" 'hm--html-form-add-textarea)
|
|
0
|
425 )
|
|
|
426
|
|
|
427 (defvar hm--html-region-forms-map nil
|
|
|
428 "Region sub keymap for inserting forms.")
|
|
|
429
|
|
|
430 (if hm--html-region-forms-map
|
|
|
431 ()
|
|
|
432 (setq hm--html-region-forms-map (make-sparse-keymap))
|
|
2
|
433
|
|
|
434 (define-key hm--html-region-forms-map "f" 'hm--html-add-form-to-region)
|
|
0
|
435 )
|
|
|
436
|
|
|
437 (defvar hm--html-region-sub-map-1 nil
|
|
2
|
438 "Region sub keymap for the `hm--html-mode'.")
|
|
0
|
439
|
|
|
440 (if hm--html-region-sub-map-1
|
|
|
441 ()
|
|
|
442 (setq hm--html-region-sub-map-1 (make-sparse-keymap))
|
|
|
443 (define-key hm--html-region-sub-map-1 "\C-o" hm--html-region-forms-map)
|
|
|
444 (define-key hm--html-region-sub-map-1 "\C-a" hm--html-region-anchor-map)
|
|
2
|
445 (define-key hm--html-region-sub-map-1 "\C-i" hm--html-region-include-map)
|
|
|
446 ; (define-key hm--html-region-sub-map-1
|
|
|
447 ; "\C-t" hm--html-region-text-elements-map)
|
|
0
|
448 (define-key hm--html-region-sub-map-1 "\C-f" hm--html-region-frame-map)
|
|
|
449 (define-key hm--html-region-sub-map-1 "\C-s" hm--html-region-structure-map)
|
|
|
450 (define-key hm--html-region-sub-map-1
|
|
142
|
451 "\C-p" hm--html-region-formatting-paragraph-map)
|
|
0
|
452 (define-key hm--html-region-sub-map-1
|
|
142
|
453 "\C-w" hm--html-region-formatting-word-map)
|
|
0
|
454 )
|
|
|
455
|
|
|
456 (defvar hm--html-noregion-sub-map-1 nil
|
|
2
|
457 "Noregion sub keymap for the `hm--html-mode'.")
|
|
0
|
458
|
|
|
459 (if hm--html-noregion-sub-map-1
|
|
|
460 ()
|
|
|
461 (setq hm--html-noregion-sub-map-1 (make-sparse-keymap))
|
|
|
462
|
|
|
463 (define-key hm--html-noregion-sub-map-1 "\C-o" hm--html-noregion-forms-map)
|
|
|
464 (define-key hm--html-noregion-sub-map-1 "\C-a" hm--html-noregion-anchor-map)
|
|
|
465 (define-key hm--html-noregion-sub-map-1
|
|
2
|
466 [(control i)] hm--html-noregion-include-map)
|
|
|
467 ; (define-key hm--html-noregion-sub-map-1
|
|
|
468 ; "\C-t" hm--html-noregion-text-elements-map)
|
|
0
|
469 (define-key hm--html-noregion-sub-map-1 "\C-f" hm--html-noregion-frame-map)
|
|
|
470 (define-key hm--html-noregion-sub-map-1
|
|
|
471 "\C-s" hm--html-noregion-structure-map)
|
|
|
472 (define-key hm--html-noregion-sub-map-1
|
|
142
|
473 "\C-p" hm--html-noregion-formatting-paragraph-map)
|
|
0
|
474 (define-key hm--html-noregion-sub-map-1
|
|
142
|
475 "\C-w" hm--html-noregion-formatting-word-map)
|
|
0
|
476 )
|
|
|
477
|
|
|
478 (defvar hm--html-region-sub-map nil
|
|
2
|
479 "Region sub keymap for the `hm--html-mode'.")
|
|
0
|
480
|
|
|
481 (if hm--html-region-sub-map
|
|
|
482 ()
|
|
|
483 (setq hm--html-region-sub-map (make-sparse-keymap))
|
|
|
484 ; (define-key hm--html-region-sub-map "\C-n" hm--html-noregion-sub-map-1)
|
|
|
485 ; (define-key hm--html-region-sub-map "\C-r" hm--html-region-sub-map-1)
|
|
|
486 (define-key hm--html-region-sub-map "\M-n" hm--html-noregion-sub-map-1)
|
|
|
487 (define-key hm--html-region-sub-map "\M-r" hm--html-region-sub-map-1)
|
|
|
488
|
|
|
489 (if (adapt-emacs19p)
|
|
|
490 (map-keymap '(lambda (key-description-list binding)
|
|
|
491 (define-key hm--html-region-sub-map
|
|
2
|
492 (vector key-description-list) binding))
|
|
|
493 ; (single-key-description key-description-list) binding))
|
|
0
|
494 hm--html-region-sub-map-1)
|
|
|
495 (map-keymap '(lambda (key-description-list binding)
|
|
|
496 (define-key hm--html-region-sub-map
|
|
|
497 key-description-list binding))
|
|
|
498 hm--html-region-sub-map-1)
|
|
|
499 )
|
|
|
500 )
|
|
|
501
|
|
|
502 (defvar hm--html-noregion-sub-map nil
|
|
2
|
503 "Noregion keymap for the `hm--html-mode'.")
|
|
0
|
504
|
|
|
505 (if hm--html-noregion-sub-map
|
|
|
506 ()
|
|
|
507 (setq hm--html-noregion-sub-map (make-sparse-keymap))
|
|
|
508 ; (define-key hm--html-noregion-sub-map "\C-n" hm--html-noregion-sub-map-1)
|
|
|
509 ; (define-key hm--html-noregion-sub-map "\C-r" hm--html-region-sub-map-1)
|
|
|
510 (define-key hm--html-noregion-sub-map "\M-n" hm--html-noregion-sub-map-1)
|
|
|
511 (define-key hm--html-noregion-sub-map "\M-r" hm--html-region-sub-map-1)
|
|
|
512
|
|
|
513 (if (adapt-emacs19p)
|
|
|
514 (map-keymap '(lambda (key-description-list binding)
|
|
2
|
515 (define-key hm--html-noregion-sub-map
|
|
|
516 (vector key-description-list) binding))
|
|
|
517 ; (single-key-description key-description-list) binding))
|
|
|
518 hm--html-noregion-sub-map-1)
|
|
0
|
519 (map-keymap '(lambda (key-description-list binding)
|
|
|
520 (define-key hm--html-noregion-sub-map
|
|
|
521 key-description-list binding))
|
|
|
522 hm--html-noregion-sub-map-1)
|
|
|
523 )
|
|
|
524 )
|
|
|
525
|
|
|
526 (defvar hm--html-mode-map nil
|
|
2
|
527 "Normal and noregion keymap for the `hm--html-mode'.")
|
|
0
|
528
|
|
|
529 (if hm--html-mode-map
|
|
|
530 ()
|
|
|
531 (setq hm--html-mode-map (make-sparse-keymap))
|
|
2
|
532 (define-key hm--html-mode-map
|
|
|
533 hm--html-mode-prefix-key hm--html-noregion-sub-map)
|
|
0
|
534 (if (adapt-xemacsp)
|
|
2
|
535 (progn
|
|
|
536 (define-key hm--html-mode-map '(button3) 'hm--html-popup-menu)
|
|
|
537 (define-key hm--html-mode-map
|
|
|
538 [(meta control button1)] 'idd-mouse-drag-and-drop))
|
|
|
539 ; (define-key hm--html-mode-map [down-mouse-3] 'hm--html-popup-menu)
|
|
|
540 (if hm--html-expert
|
|
|
541 (define-key hm--html-mode-map
|
|
|
542 hm--html-emacs19-popup-noregion-menu-button
|
|
|
543 hm--html-menu-noregion-expert-map)
|
|
|
544 (define-key hm--html-mode-map
|
|
|
545 hm--html-emacs19-popup-noregion-menu-button
|
|
|
546 hm--html-menu-noregion-novice-map))
|
|
|
547 (define-key hm--html-mode-map
|
|
|
548 [(meta control mouse-1)] 'idd-mouse-drag-and-drop))
|
|
0
|
549 (if hm--html-bind-latin-1-char-entities
|
|
|
550 (progn
|
|
|
551 (define-key hm--html-mode-map [adiaeresis] 'hm--html_ae)
|
|
|
552 (define-key hm--html-mode-map [odiaeresis] 'hm--html_oe)
|
|
|
553 (define-key hm--html-mode-map [udiaeresis] 'hm--html_ue)
|
|
|
554 (define-key hm--html-mode-map [aring] 'hm--html_aa)
|
|
|
555 (define-key hm--html-mode-map [Adiaeresis] 'hm--html_Ae)
|
|
|
556 (define-key hm--html-mode-map [Odiaeresis] 'hm--html_Oe)
|
|
|
557 (define-key hm--html-mode-map [Udiaeresis] 'hm--html_Ue)
|
|
|
558 (define-key hm--html-mode-map [Aring] 'hm--html_Aa)
|
|
|
559 (define-key hm--html-mode-map [ediaeresis] 'hm--html_ediaeresis)
|
|
|
560 (define-key hm--html-mode-map [Ediaeresis] 'hm--html_Ediaeresis)
|
|
|
561 (define-key hm--html-mode-map [idiaeresis] 'hm--html_idiaeresis)
|
|
|
562 (define-key hm--html-mode-map [Idiaeresis] 'hm--html_Idiaeresis)
|
|
|
563 (define-key hm--html-mode-map [ssharp] 'hm--html_sz)
|
|
|
564 (define-key hm--html-mode-map [aacute] 'hm--html_aacute)
|
|
|
565 (define-key hm--html-mode-map [eacute] 'hm--html_eacute)
|
|
|
566 (define-key hm--html-mode-map [iacute] 'hm--html_iacute)
|
|
|
567 (define-key hm--html-mode-map [oacute] 'hm--html_oacute)
|
|
|
568 (define-key hm--html-mode-map [uacute] 'hm--html_uacute)
|
|
|
569 (define-key hm--html-mode-map [Aacute] 'hm--html_Aacute)
|
|
|
570 (define-key hm--html-mode-map [Eacute] 'hm--html_Eacute)
|
|
|
571 (define-key hm--html-mode-map [Iacute] 'hm--html_Iacute)
|
|
|
572 (define-key hm--html-mode-map [Oacute] 'hm--html_Oacute)
|
|
|
573 (define-key hm--html-mode-map [Uacute] 'hm--html_Uacute)
|
|
|
574 (define-key hm--html-mode-map [agrave] 'hm--html_agrave)
|
|
|
575 (define-key hm--html-mode-map [egrave] 'hm--html_egrave)
|
|
|
576 (define-key hm--html-mode-map [igrave] 'hm--html_igrave)
|
|
|
577 (define-key hm--html-mode-map [ograve] 'hm--html_ograve)
|
|
|
578 (define-key hm--html-mode-map [ugrave] 'hm--html_ugrave)
|
|
|
579 (define-key hm--html-mode-map [Agrave] 'hm--html_Agrave)
|
|
|
580 (define-key hm--html-mode-map [Egrave] 'hm--html_Egrave)
|
|
|
581 (define-key hm--html-mode-map [Igrave] 'hm--html_Igrave)
|
|
|
582 (define-key hm--html-mode-map [Ograve] 'hm--html_Ograve)
|
|
|
583 (define-key hm--html-mode-map [Ugrave] 'hm--html_Ugrave)
|
|
|
584 (define-key hm--html-mode-map [ccedilla] 'hm--html_ccedilla)
|
|
|
585 (define-key hm--html-mode-map [Ccedilla] 'hm--html_Ccedilla)
|
|
|
586 (define-key hm--html-mode-map [acircumflex] 'hm--html_acircumflex)
|
|
|
587 (define-key hm--html-mode-map [ecircumflex] 'hm--html_ecircumflex)
|
|
|
588 (define-key hm--html-mode-map [icircumflex] 'hm--html_icircumflex)
|
|
|
589 (define-key hm--html-mode-map [ocircumflex] 'hm--html_ocircumflex)
|
|
|
590 (define-key hm--html-mode-map [ucircumflex] 'hm--html_ucircumflex)
|
|
|
591 (define-key hm--html-mode-map [Acircumflex] 'hm--html_Acircumflex)
|
|
|
592 (define-key hm--html-mode-map [Ecircumflex] 'hm--html_Ecircumflex)
|
|
|
593 (define-key hm--html-mode-map [Icircumflex] 'hm--html_Icircumflex)
|
|
|
594 (define-key hm--html-mode-map [Ocircumflex] 'hm--html_Ocircumflex)
|
|
|
595 (define-key hm--html-mode-map [Ucircumflex] 'hm--html_Ucircumflex)
|
|
|
596 (define-key hm--html-mode-map [atilde] 'hm--html_atilde)
|
|
|
597 (define-key hm--html-mode-map [otilde] 'hm--html_otilde)
|
|
|
598 (define-key hm--html-mode-map [ntilde] 'hm--html_ntilde)
|
|
|
599 (define-key hm--html-mode-map [Atilde] 'hm--html_Atilde)
|
|
|
600 (define-key hm--html-mode-map [Otilde] 'hm--html_Otilde)
|
|
|
601 (define-key hm--html-mode-map [Ntilde] 'hm--html_Ntilde)
|
|
|
602 (define-key hm--html-mode-map [eth] 'hm--html_eth)
|
|
|
603 (define-key hm--html-mode-map [ETH] 'hm--html_Eth)
|
|
|
604 (define-key hm--html-mode-map [thorn] 'hm--html_thorn)
|
|
|
605 (define-key hm--html-mode-map [THORN] 'hm--html_Thorn)
|
|
|
606 ))
|
|
|
607 (define-key hm--html-mode-map "<" 'hm--html-smart-less-than)
|
|
|
608 (define-key hm--html-mode-map ">" 'hm--html-smart-greater-than)
|
|
2
|
609 (define-key hm--html-mode-map "&" 'hm--html-smart-ampersand)
|
|
0
|
610 )
|
|
|
611
|
|
|
612 (defvar hm--html-region-mode-map nil
|
|
2
|
613 "Region keymap for the `hm--html-mode'.")
|
|
0
|
614
|
|
|
615 (if hm--html-region-mode-map
|
|
|
616 ()
|
|
|
617 (setq hm--html-region-mode-map (make-sparse-keymap))
|
|
2
|
618 (define-key hm--html-region-mode-map
|
|
|
619 hm--html-mode-prefix-key hm--html-region-sub-map)
|
|
0
|
620 (if (adapt-xemacsp)
|
|
|
621 (progn
|
|
|
622 (define-key hm--html-region-mode-map
|
|
2
|
623 '(button3) 'hm--html-popup-menu-region)
|
|
0
|
624 (define-key hm--html-region-mode-map
|
|
2
|
625 [(meta control button1)] 'idd-mouse-drag-and-drop))
|
|
|
626 ; (define-key hm--html-region-mode-map
|
|
|
627 ; [down-mouse-3] 'hm--html-popup-menu-region)
|
|
|
628 (if hm--html-expert
|
|
|
629 (define-key hm--html-region-mode-map
|
|
|
630 hm--html-emacs19-popup-region-menu-button
|
|
|
631 hm--html-menu-region-expert-map)
|
|
|
632 (define-key hm--html-region-mode-map
|
|
|
633 hm--html-emacs19-popup-region-menu-button
|
|
|
634 hm--html-menu-region-novice-map))
|
|
|
635 (define-key hm--html-region-mode-map
|
|
|
636 [(meta control mouse-1)] 'idd-mouse-drag-and-drop))
|
|
|
637 ;; It maybe a better idea to set the following to undefine in this list...
|
|
|
638 ; (if hm--html-bind-latin-1-char-entities
|
|
|
639 ; (progn
|
|
|
640 ; (define-key hm--html-region-mode-map [adiaeresis] 'hm--html_ae)
|
|
|
641 ; (define-key hm--html-region-mode-map [odiaeresis] 'hm--html_oe)
|
|
|
642 ; (define-key hm--html-region-mode-map [udiaeresis] 'hm--html_ue)
|
|
|
643 ; (define-key hm--html-region-mode-map [aring] 'hm--html_aa)
|
|
|
644 ; (define-key hm--html-region-mode-map [Adiaeresis] 'hm--html_Ae)
|
|
|
645 ; (define-key hm--html-region-mode-map [Odiaeresis] 'hm--html_Oe)
|
|
|
646 ; (define-key hm--html-region-mode-map [Udiaeresis] 'hm--html_Ue)
|
|
|
647 ; (define-key hm--html-region-mode-map [Aring] 'hm--html_Aa)
|
|
|
648 ; (define-key hm--html-region-mode-map
|
|
|
649 ; [ediaeresis] 'hm--html_ediaeresis)
|
|
|
650 ; (define-key hm--html-region-mode-map
|
|
|
651 ; [Ediaeresis] 'hm--html_Ediaeresis)
|
|
|
652 ; (define-key hm--html-region-mode-map
|
|
|
653 ; [idiaeresis] 'hm--html_idiaeresis)
|
|
|
654 ; (define-key hm--html-region-mode-map
|
|
|
655 ; [Idiaeresis] 'hm--html_Idiaeresis)
|
|
|
656 ; (define-key hm--html-region-mode-map [ssharp] 'hm--html_sz)
|
|
|
657 ; (define-key hm--html-region-mode-map [aacute] 'hm--html_aacute)
|
|
|
658 ; (define-key hm--html-region-mode-map [eacute] 'hm--html_eacute)
|
|
|
659 ; (define-key hm--html-region-mode-map [iacute] 'hm--html_iacute)
|
|
|
660 ; (define-key hm--html-region-mode-map [oacute] 'hm--html_oacute)
|
|
|
661 ; (define-key hm--html-region-mode-map [uacute] 'hm--html_uacute)
|
|
|
662 ; (define-key hm--html-region-mode-map [Aacute] 'hm--html_Aacute)
|
|
|
663 ; (define-key hm--html-region-mode-map [Eacute] 'hm--html_Eacute)
|
|
|
664 ; (define-key hm--html-region-mode-map [Iacute] 'hm--html_Iacute)
|
|
|
665 ; (define-key hm--html-region-mode-map [Oacute] 'hm--html_Oacute)
|
|
|
666 ; (define-key hm--html-region-mode-map [Uacute] 'hm--html_Uacute)
|
|
|
667 ; (define-key hm--html-region-mode-map [agrave] 'hm--html_agrave)
|
|
|
668 ; (define-key hm--html-region-mode-map [egrave] 'hm--html_egrave)
|
|
|
669 ; (define-key hm--html-region-mode-map [igrave] 'hm--html_igrave)
|
|
|
670 ; (define-key hm--html-region-mode-map [ograve] 'hm--html_ograve)
|
|
|
671 ; (define-key hm--html-region-mode-map [ugrave] 'hm--html_ugrave)
|
|
|
672 ; (define-key hm--html-region-mode-map [Agrave] 'hm--html_Agrave)
|
|
|
673 ; (define-key hm--html-region-mode-map [Egrave] 'hm--html_Egrave)
|
|
|
674 ; (define-key hm--html-region-mode-map [Igrave] 'hm--html_Igrave)
|
|
|
675 ; (define-key hm--html-region-mode-map [Ograve] 'hm--html_Ograve)
|
|
|
676 ; (define-key hm--html-region-mode-map [Ugrave] 'hm--html_Ugrave)
|
|
|
677 ; (define-key hm--html-region-mode-map [ccedilla] 'hm--html_ccedilla)
|
|
|
678 ; (define-key hm--html-region-mode-map [Ccedilla] 'hm--html_Ccedilla)
|
|
|
679 ; (define-key hm--html-region-mode-map
|
|
|
680 ; [acircumflex] 'hm--html_acircumflex)
|
|
|
681 ; (define-key hm--html-region-mode-map
|
|
|
682 ; [ecircumflex] 'hm--html_ecircumflex)
|
|
|
683 ; (define-key hm--html-region-mode-map
|
|
|
684 ; [icircumflex] 'hm--html_icircumflex)
|
|
|
685 ; (define-key hm--html-region-mode-map
|
|
|
686 ; [ocircumflex] 'hm--html_ocircumflex)
|
|
|
687 ; (define-key hm--html-region-mode-map
|
|
|
688 ; [ucircumflex] 'hm--html_ucircumflex)
|
|
|
689 ; (define-key hm--html-region-mode-map
|
|
|
690 ; [Acircumflex] 'hm--html_Acircumflex)
|
|
|
691 ; (define-key hm--html-region-mode-map
|
|
|
692 ; [Ecircumflex] 'hm--html_Ecircumflex)
|
|
|
693 ; (define-key hm--html-region-mode-map
|
|
|
694 ; [Icircumflex] 'hm--html_Icircumflex)
|
|
|
695 ; (define-key hm--html-region-mode-map
|
|
|
696 ; [Ocircumflex] 'hm--html_Ocircumflex)
|
|
|
697 ; (define-key hm--html-region-mode-map
|
|
|
698 ; [Ucircumflex] 'hm--html_Ucircumflex)
|
|
|
699 ; (define-key hm--html-region-mode-map [atilde] 'hm--html_atilde)
|
|
|
700 ; (define-key hm--html-region-mode-map [otilde] 'hm--html_otilde)
|
|
|
701 ; (define-key hm--html-region-mode-map [ntilde] 'hm--html_ntilde)
|
|
|
702 ; (define-key hm--html-region-mode-map [Atilde] 'hm--html_Atilde)
|
|
|
703 ; (define-key hm--html-region-mode-map [Otilde] 'hm--html_Otilde)
|
|
|
704 ; (define-key hm--html-region-mode-map [Ntilde] 'hm--html_Ntilde)
|
|
|
705 ; (define-key hm--html-region-mode-map [eth] 'hm--html_eth)
|
|
|
706 ; (define-key hm--html-region-mode-map [ETH] 'hm--html_Eth)
|
|
|
707 ; (define-key hm--html-region-mode-map [thorn] 'hm--html_thorn)
|
|
|
708 ; (define-key hm--html-region-mode-map [THORN] 'hm--html_Thorn)
|
|
|
709 ; ))
|
|
|
710 (define-key hm--html-region-mode-map "<" 'hm--html-smart-less-than)
|
|
|
711 (define-key hm--html-region-mode-map ">" 'hm--html-smart-greater-than)
|
|
|
712 (define-key hm--html-region-mode-map "&" 'hm--html-smart-ampersand)
|
|
0
|
713 )
|
|
|
714
|
|
|
715
|
|
2
|
716 ;;; For the hm--html minor modes
|
|
|
717 (defvar hm--html-minor-mode-map nil
|
|
|
718 "Normal and noregion keymap for the `hm--html-minor-mode'.")
|
|
0
|
719
|
|
2
|
720 (if hm--html-minor-mode-map
|
|
|
721 ()
|
|
|
722 (setq hm--html-minor-mode-map (make-sparse-keymap))
|
|
|
723 (define-key hm--html-minor-mode-map
|
|
|
724 hm--html-minor-mode-prefix-key hm--html-noregion-sub-map)
|
|
|
725 (if (adapt-xemacsp)
|
|
|
726 (progn
|
|
|
727 (define-key hm--html-minor-mode-map
|
|
|
728 '(button3) 'hm--html-popup-minor-html-menu)
|
|
|
729 (define-key hm--html-minor-mode-map
|
|
|
730 [(meta control button1)] 'idd-mouse-drag-and-drop))
|
|
|
731 (if hm--html-expert
|
|
|
732 (define-key hm--html-minor-mode-map
|
|
|
733 hm--html-emacs19-popup-noregion-menu-button
|
|
|
734 hm--html-menu-noregion-expert-map)
|
|
|
735 (define-key hm--html-minor-mode-map
|
|
|
736 hm--html-emacs19-popup-noregion-menu-button
|
|
|
737 hm--html-menu-noregion-novice-map))
|
|
|
738 (define-key hm--html-minor-mode-map
|
|
|
739 [(meta control mouse-1)] 'idd-mouse-drag-and-drop))
|
|
|
740 (define-key hm--html-minor-mode-map "<" 'hm--html-smart-less-than)
|
|
|
741 (define-key hm--html-minor-mode-map ">" 'hm--html-smart-greater-than)
|
|
|
742 (define-key hm--html-minor-mode-map "&" 'hm--html-smart-ampersand)
|
|
|
743 )
|
|
0
|
744
|
|
|
745
|
|
2
|
746 (defvar hm--html-minor-region-mode-map nil
|
|
|
747 "Region keymap for the `hm--html-minor-mode'.")
|
|
0
|
748
|
|
2
|
749 (if hm--html-minor-region-mode-map
|
|
|
750 ()
|
|
|
751 (setq hm--html-minor-region-mode-map (make-sparse-keymap))
|
|
|
752 (define-key hm--html-minor-region-mode-map
|
|
|
753 hm--html-minor-mode-prefix-key hm--html-region-sub-map)
|
|
|
754 (if (adapt-xemacsp)
|
|
|
755 (progn
|
|
|
756 (define-key hm--html-minor-region-mode-map
|
|
|
757 '(button3) 'hm--html-popup-menu-region)
|
|
|
758 (define-key hm--html-minor-region-mode-map
|
|
|
759 [(meta control button1)] 'idd-mouse-drag-and-drop))
|
|
|
760 (if hm--html-expert
|
|
|
761 (define-key hm--html-minor-region-mode-map
|
|
|
762 hm--html-emacs19-popup-region-menu-button
|
|
|
763 hm--html-menu-region-expert-map)
|
|
|
764 (define-key hm--html-minor-region-mode-map
|
|
|
765 hm--html-emacs19-popup-region-menu-button
|
|
|
766 hm--html-menu-region-novice-map))
|
|
|
767 (define-key hm--html-minor-region-mode-map
|
|
|
768 [(meta control mouse-1)] 'idd-mouse-drag-and-drop))
|
|
|
769 (define-key hm--html-minor-region-mode-map "<" 'hm--html-smart-less-than)
|
|
|
770 (define-key hm--html-minor-region-mode-map ">" 'hm--html-smart-greater-than)
|
|
|
771 (define-key hm--html-minor-region-mode-map "&" 'hm--html-smart-ampersand)
|
|
|
772 )
|
|
|
773
|
|
|
774
|
|
|
775 ;;; Announce the feature hm--html-keys
|
|
|
776 (provide 'hm--html-keys)
|
