;;; $Id: hm--html-keys.el,v 6.21 2000-10-06 08:45:59 youngs Exp $
;;;
;;; Copyright (C) 1995, 1996, 1997 Heiko Muenkel
;;; email: muenkel@tnt.uni-hannover.de
;;;
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;;
;;;
;;; Description:
;;;
;;; Defines the new keybindigs for the hm--html-menus package.
;;;
;;; Installation:
;;;
;;; Put this file in one of your load path directories.
;;;
(if (adapt-emacsp)
(progn
(defvar hm--html-emacs19-popup-noregion-menu-button [C-down-mouse-3]
"This is the mouse button , which pops up the noregion menus.
It could have the same value as
`hm--html-emacs19-popup-region-menu-button'.")
(defvar hm--html-emacs19-popup-region-menu-button [C-down-mouse-3]
"This is the mouse button , which pops up the region menus.
It could have the same value as
`hm--html-emacs19-popup-noregion-menu-button'.")
))
(defvar hm--html-noregion-anchor-map nil
"Noregion sub keymap for inserting anchors.")
(if hm--html-noregion-anchor-map
()
(setq hm--html-noregion-anchor-map (make-sparse-keymap))
(define-key hm--html-noregion-anchor-map "r" 'hm--html-add-relative-link)
(define-key hm--html-noregion-anchor-map "h" 'hm--html-add-html-link)
(define-key hm--html-noregion-anchor-map "i" 'hm--html-add-info-link)
(define-key hm--html-noregion-anchor-map "g" 'hm--html-add-gopher-link)
(define-key hm--html-noregion-anchor-map "f" 'hm--html-add-file-link)
(define-key hm--html-noregion-anchor-map "\C-f" 'hm--html-add-ftp-link)
(define-key hm--html-noregion-anchor-map "n" 'hm--html-add-news-link)
(define-key hm--html-noregion-anchor-map "m" 'hm--html-add-mail-box-link)
(define-key hm--html-noregion-anchor-map
[(control m)] 'hm--html-add-mailto-link)
(define-key hm--html-noregion-anchor-map "w" 'hm--html-add-direct-wais-link)
(define-key hm--html-noregion-anchor-map "\C-w" 'hm--html-add-wais-link)
(define-key hm--html-noregion-anchor-map "c" 'hm--html-add-cgi-link)
(define-key hm--html-noregion-anchor-map "p" 'hm--html-add-proggate-link)
(define-key hm--html-noregion-anchor-map
"\C-p" 'hm--html-add-local-proggate-link)
(define-key hm--html-noregion-anchor-map "l" 'hm--html-add-normal-link)
(define-key hm--html-noregion-anchor-map "t" 'hm--html-add-link-target)
)
(defvar hm--html-region-anchor-map nil
"Region sub keymap for inserting anchors.")
(if hm--html-region-anchor-map
()
(setq hm--html-region-anchor-map (make-sparse-keymap))
(define-key hm--html-region-anchor-map
"r" 'hm--html-add-relative-link-to-region)
(define-key hm--html-region-anchor-map "h" 'hm--html-add-html-link-to-region)
(define-key hm--html-region-anchor-map "i" 'hm--html-add-info-link-to-region)
(define-key hm--html-region-anchor-map
"g" 'hm--html-add-gopher-link-to-region)
(define-key hm--html-region-anchor-map "f" 'hm--html-add-file-link-to-region)
(define-key hm--html-region-anchor-map
"\C-f" 'hm--html-add-ftp-link-to-region)
(define-key hm--html-region-anchor-map "n" 'hm--html-add-news-link-to-region)
(define-key hm--html-region-anchor-map "m" 'hm--html-add-mail-box-link-to-region)
(define-key hm--html-region-anchor-map
[(control m)] 'hm--html-add-mailto-link-to-region)
(define-key hm--html-region-anchor-map
"w" 'hm--html-add-direct-wais-link-to-region)
(define-key hm--html-region-anchor-map
"\C-w" 'hm--html-add-wais-link-to-region)
(define-key hm--html-region-anchor-map
"c" 'hm--html-add-cgi-link-to-region)
(define-key hm--html-region-anchor-map
"p" 'hm--html-add-proggate-link-to-region)
(define-key hm--html-region-anchor-map
"\C-p" 'hm--html-add-local-proggate-link-to-region)
(define-key hm--html-region-anchor-map
"l" 'hm--html-add-normal-link-to-region)
(define-key hm--html-region-anchor-map
"t" 'hm--html-add-link-target-to-region)
)
(defvar hm--html-noregion-frame-map nil
"Noregion sub keymap for inserting frame elements.")
(if hm--html-noregion-frame-map
()
(setq hm--html-noregion-frame-map (make-sparse-keymap))
(define-key hm--html-noregion-frame-map "f" 'hm--html-add-full-html-frame)
(define-key hm--html-noregion-frame-map [(control d)] 'hm--html-add-doctype)
(define-key hm--html-noregion-frame-map [(control h)] 'hm--html-add-html)
(define-key hm--html-noregion-frame-map [(meta h)] 'hm--html-add-head)
(define-key hm--html-noregion-frame-map "b" 'hm--html-add-body)
(define-key hm--html-noregion-frame-map
[(control t)] 'hm--html-add-title-and-header)
(define-key hm--html-noregion-frame-map "t" 'hm--html-add-title)
(define-key hm--html-noregion-frame-map "h" 'hm--html-add-header)
(define-key hm--html-noregion-frame-map "m" 'hm--html-add-meta)
(define-key hm--html-noregion-frame-map "n" 'hm--html-add-normal-node-link)
(define-key hm--html-noregion-frame-map "i" 'hm--html-add-isindex)
(define-key hm--html-noregion-frame-map [(meta d)] 'hm--html-add-base)
(define-key hm--html-noregion-frame-map "a" 'hm--html-add-address)
(define-key hm--html-noregion-frame-map "s" 'hm--html-add-signature)
(define-key hm--html-noregion-frame-map
[(control c)] 'hm--html-insert-created-comment)
(define-key hm--html-noregion-frame-map "c" 'hm--html-insert-changed-comment)
(define-key hm--html-noregion-frame-map
[(control m)] 'hm--html-insert-modified-line)
(define-key hm--html-noregion-frame-map "d" 'hm--html-new-date)
)
(defvar hm--html-region-frame-map nil
"Region sub keymap for inserting frame elements.")
(if hm--html-region-frame-map
()
(setq hm--html-region-frame-map (make-sparse-keymap))
(define-key hm--html-region-frame-map
"f" 'hm--html-add-full-html-frame-with-region)
(define-key hm--html-region-frame-map
[(meta h)] 'hm--html-add-head-to-region)
(define-key hm--html-region-frame-map "b" 'hm--html-add-body-to-region)
(define-key hm--html-region-frame-map
[(control t)] 'hm--html-add-title-and-header-to-region)
(define-key hm--html-region-frame-map "t" 'hm--html-add-title-to-region)
(define-key hm--html-region-frame-map "h" 'hm--html-add-header-to-region)
(define-key hm--html-region-frame-map "a" 'hm--html-add-address-to-region)
)
(defvar hm--html-noregion-structure-map nil
"Noregion sub keymap for inserting entities.")
(if hm--html-noregion-structure-map
()
(setq hm--html-noregion-structure-map (make-sparse-keymap))
(define-key hm--html-noregion-structure-map
"i" 'hm--html-add-list-or-menu-item)
(define-key hm--html-noregion-structure-map "m" 'hm--html-add-menu)
(define-key hm--html-noregion-structure-map "u" 'hm--html-add-list)
(define-key hm--html-noregion-structure-map "o" 'hm--html-add-numberlist)
(define-key hm--html-noregion-structure-map "d" 'hm--html-add-directory-list)
(define-key hm--html-noregion-structure-map
"\C-dl" 'hm--html-add-description-list)
(define-key hm--html-noregion-structure-map
"\C-dt" 'hm--html-add-description-title)
(define-key hm--html-noregion-structure-map
"\C-de" 'hm--html-add-description-entry)
(define-key hm--html-noregion-structure-map
"\C-d\C-t" 'hm--html-add-description-title-and-entry)
(define-key hm--html-noregion-structure-map
"\C-tt" 'hm--html-add-table)
(define-key hm--html-noregion-structure-map
"\C-t\C-t" 'hm--html-add-table-title)
(define-key hm--html-noregion-structure-map
"\C-th" 'hm--html-add-table-header)
(define-key hm--html-noregion-structure-map
"\C-tr" 'hm--html-add-first-table-row)
(define-key hm--html-noregion-structure-map
"\C-t\C-r" 'hm--html-add-additional-table-row)
(define-key hm--html-noregion-structure-map "p" 'hm--html-add-paragraph)
(define-key hm--html-noregion-structure-map
"\C-p" 'hm--html-add-paragraph-separator)
(define-key hm--html-noregion-structure-map
[(meta d)] 'hm--html-add-document-division)
(define-key hm--html-noregion-structure-map "\C-m" 'hm--html-add-line-break)
(define-key hm--html-noregion-structure-map
"h" 'hm--html-add-horizontal-rule)
)
(defvar hm--html-region-structure-map nil
"Region sub keymap for inserting entities.")
(if hm--html-region-structure-map
()
(setq hm--html-region-structure-map (make-sparse-keymap))
(define-key hm--html-region-structure-map
"i" 'hm--html-add-list-or-menu-item-to-region)
(define-key hm--html-region-structure-map "m" 'hm--html-add-menu-to-region)
(define-key hm--html-region-structure-map "u" 'hm--html-add-list-to-region)
(define-key hm--html-region-structure-map
"o" 'hm--html-add-numberlist-to-region)
(define-key hm--html-region-structure-map
"d" 'hm--html-add-directorylist-to-region)
(define-key hm--html-region-structure-map
"\C-dl" 'hm--html-add-description-list-to-region)
(define-key hm--html-region-structure-map
"\C-dt" 'hm--html-add-description-title-to-region)
(define-key hm--html-region-structure-map
"\C-de" 'hm--html-add-description-entry-to-region)
(define-key hm--html-region-structure-map
"\C-tt" 'hm--html-add-table-to-region)
(define-key hm--html-region-structure-map
"\C-t\C-t" 'hm--html-add-table-title-to-region)
(define-key hm--html-region-structure-map
"p" 'hm--html-add-paragraph-to-region)
(define-key hm--html-region-structure-map
[(meta d)] 'hm--html-add-document-division-to-region)
)
(defvar hm--html-noregion-formatting-paragraph-map nil
"Noregion sub keymap for inserting paragraph formatting elements.")
(if hm--html-noregion-formatting-paragraph-map
()
(setq hm--html-noregion-formatting-paragraph-map (make-sparse-keymap))
; (define-key hm--html-noregion-formatting-paragraph-map
; "o" 'hm--html-add-plaintext)
(define-key hm--html-noregion-formatting-paragraph-map
"p" 'hm--html-add-preformatted)
(define-key hm--html-noregion-formatting-paragraph-map
"b" 'hm--html-add-blockquote)
(define-key hm--html-noregion-formatting-paragraph-map
"\C-b" 'hm--html-add-basefont)
(define-key hm--html-noregion-formatting-paragraph-map
"f" 'hm--html-add-font)
(define-key hm--html-noregion-formatting-paragraph-map
"c" 'hm--html-add-center)
(define-key hm--html-noregion-formatting-paragraph-map
"\C-c" 'hm--html-add-comment)
; (define-key hm--html-noregion-formatting-paragraph-map
; "l" 'hm--html-add-listing)
; (define-key hm--html-noregion-formatting-paragraph-map
; "a" 'hm--html-add-abstract)
)
(defvar hm--html-region-formatting-paragraph-map nil
"Region sub keymap for inserting paragraph formatting elements.")
(if hm--html-region-formatting-paragraph-map
()
(setq hm--html-region-formatting-paragraph-map (make-sparse-keymap))
; (define-key hm--html-region-formatting-paragraph-map
; "o" 'hm--html-add-plaintext-to-region)
(define-key hm--html-region-formatting-paragraph-map
"p" 'hm--html-add-preformatted-to-region)
(define-key hm--html-region-formatting-paragraph-map
"b" 'hm--html-add-blockquote-to-region)
(define-key hm--html-region-formatting-paragraph-map
"\C-b" 'hm--html-add-basefont-to-region)
(define-key hm--html-region-formatting-paragraph-map
"f" 'hm--html-add-font-to-region)
(define-key hm--html-region-formatting-paragraph-map
"c" 'hm--html-add-center-to-region)
(define-key hm--html-region-formatting-paragraph-map
"\C-c" 'hm--html-add-comment-to-region)
; (define-key hm--html-region-formatting-paragraph-map
; "l" 'hm--html-add-listing-to-region)
; (define-key hm--html-region-formatting-paragraph-map
; "a" 'hm--html-add-abstract-to-region)
)
(defvar hm--html-noregion-formatting-word-map nil
"Noregion sub keymap for inserting physical text formatting elements.")
(if hm--html-noregion-formatting-word-map
()
(setq hm--html-noregion-formatting-word-map (make-sparse-keymap))
(define-key hm--html-noregion-formatting-word-map
"b" 'hm--html-add-bold)
(define-key hm--html-noregion-formatting-word-map
"i" 'hm--html-add-italic)
(define-key hm--html-noregion-formatting-word-map
"u" 'hm--html-add-underline)
(define-key hm--html-noregion-formatting-word-map
"t" 'hm--html-add-fixed)
(define-key hm--html-noregion-formatting-word-map
"s" 'hm--html-add-strikethru)
(define-key hm--html-noregion-formatting-word-map
"\C-p" 'hm--html-add-superscript)
(define-key hm--html-noregion-formatting-word-map
"\C-b" 'hm--html-add-subscript)
(define-key hm--html-noregion-formatting-word-map
"e" 'hm--html-add-emphasized)
(define-key hm--html-noregion-formatting-word-map
"\C-s" 'hm--html-add-strong)
(define-key hm--html-noregion-formatting-word-map
"\M-s" 'hm--html-add-small)
(define-key hm--html-noregion-formatting-word-map
"\M-b" 'hm--html-add-big)
)
(defvar hm--html-region-formatting-word-map nil
"Region sub keymap for inserting word text formatting elements.")
(if hm--html-region-formatting-word-map
()
(setq hm--html-region-formatting-word-map (make-sparse-keymap))
(define-key hm--html-region-formatting-word-map
"b" 'hm--html-add-bold-to-region)
(define-key hm--html-region-formatting-word-map
"i" 'hm--html-add-italic-to-region)
(define-key hm--html-region-formatting-word-map
"u" 'hm--html-add-underline-to-region)
(define-key hm--html-region-formatting-word-map
"t" 'hm--html-add-fixed-to-region)
(define-key hm--html-region-formatting-word-map
"s" 'hm--html-add-strikethru-to-region)
(define-key hm--html-region-formatting-word-map
"\C-p" 'hm--html-add-superscript-to-region)
(define-key hm--html-region-formatting-word-map
"\C-b" 'hm--html-add-subscript-to-region)
(define-key hm--html-region-formatting-word-map
"e" 'hm--html-add-emphasized-to-region)
(define-key hm--html-region-formatting-word-map
"\C-s" 'hm--html-add-strong-to-region)
(define-key hm--html-region-formatting-word-map
"\M-s" 'hm--html-add-small-to-region)
(define-key hm--html-region-formatting-word-map
"\M-b" 'hm--html-add-big-to-region)
)
(defvar hm--html-noregion-include-map nil
"Noregion sub keymap for include images and other stuff.")
(if hm--html-noregion-include-map
()
(setq hm--html-noregion-include-map (make-sparse-keymap))
(define-key hm--html-noregion-include-map
[(control i) (t)] 'hm--html-add-image-top)
(define-key hm--html-noregion-include-map
[(control i) (m)] 'hm--html-add-image-middle)
(define-key hm--html-noregion-include-map
[(control i) (b)] 'hm--html-add-image-bottom)
(define-key hm--html-noregion-include-map "i" 'hm--html-add-image)
(define-key hm--html-noregion-include-map [(meta i)] 'hm--html-add-image-map)
(define-key hm--html-noregion-include-map "m" 'hm--html-add-map)
(define-key hm--html-noregion-include-map [(control a)] 'hm--html-add-area)
(define-key hm--html-noregion-include-map "a" 'hm--html-add-applet)
(define-key hm--html-noregion-include-map "p" 'hm--html-add-applet-parameter)
)
(defvar hm--html-region-include-map nil
"Region sub keymap for include images and other stuff.")
(if hm--html-region-include-map
()
(setq hm--html-region-include-map (make-sparse-keymap))
(define-key hm--html-region-include-map "m" 'hm--html-add-map-to-region)
(define-key hm--html-region-include-map "a" 'hm--html-add-applet-to-region)
)
;(defvar hm--html-noregion-text-elements-map nil
; "Noregion sub keymap for inserting text elements.")
;(if hm--html-noregion-text-elements-map
; ()
; (setq hm--html-noregion-text-elements-map (make-sparse-keymap))
; )
;(defvar hm--html-region-text-elements-map nil
; "Region sub keymap for inserting text elements.")
;(if hm--html-region-text-elements-map
; ()
; (setq hm--html-region-text-elements-map (make-sparse-keymap))
; )
(defvar hm--html-noregion-forms-map nil
"Noregion sub keymap for inserting forms.")
(if hm--html-noregion-forms-map
()
(setq hm--html-noregion-forms-map (make-sparse-keymap))
(define-key hm--html-noregion-forms-map "f" 'hm--html-add-form)
(define-key hm--html-noregion-forms-map "a" 'hm--html-form-add-input-audio)
(define-key hm--html-noregion-forms-map
"c" 'hm--html-form-add-input-checkbox)
(define-key hm--html-noregion-forms-map
"d" 'hm--html-form-add-input-date)
(define-key hm--html-noregion-forms-map
"\C-f" 'hm--html-form-add-input-float)
(define-key hm--html-noregion-forms-map "i" 'hm--html-form-add-input-image)
(define-key hm--html-noregion-forms-map
"\C-i" 'hm--html-form-add-input-integer)
(define-key hm--html-noregion-forms-map
"\M-i" 'hm--html-form-add-input-isindex)
(define-key hm--html-noregion-forms-map
"p" 'hm--html-form-add-input-password)
(define-key hm--html-noregion-forms-map "r" 'hm--html-form-add-input-radio)
(define-key hm--html-noregion-forms-map
"\C-r" 'hm--html-form-add-input-reset)
(define-key hm--html-noregion-forms-map
"\C-s" 'hm--html-form-add-input-scribble)
(define-key hm--html-noregion-forms-map "s" 'hm--html-form-add-input-submit)
(define-key hm--html-noregion-forms-map "t" 'hm--html-form-add-input-text)
(define-key hm--html-noregion-forms-map "u" 'hm--html-form-add-input-url)
(define-key hm--html-noregion-forms-map "o" 'hm--html-form-add-select-option)
(define-key hm--html-noregion-forms-map
"m" 'hm--html-form-add-select-option-menu)
(define-key hm--html-noregion-forms-map
"l" 'hm--html-form-add-select-scrolled-list)
(define-key hm--html-noregion-forms-map "\C-t" 'hm--html-form-add-textarea)
)
(defvar hm--html-region-forms-map nil
"Region sub keymap for inserting forms.")
(if hm--html-region-forms-map
()
(setq hm--html-region-forms-map (make-sparse-keymap))
(define-key hm--html-region-forms-map "f" 'hm--html-add-form-to-region)
)
(defvar hm--html-region-sub-map-1 nil
"Region sub keymap for the `hm--html-mode'.")
(if hm--html-region-sub-map-1
()
(setq hm--html-region-sub-map-1 (make-sparse-keymap))
(define-key hm--html-region-sub-map-1 "\C-o" hm--html-region-forms-map)
(define-key hm--html-region-sub-map-1 "\C-a" hm--html-region-anchor-map)
(define-key hm--html-region-sub-map-1 "\C-i" hm--html-region-include-map)
; (define-key hm--html-region-sub-map-1
; "\C-t" hm--html-region-text-elements-map)
(define-key hm--html-region-sub-map-1 "\C-f" hm--html-region-frame-map)
(define-key hm--html-region-sub-map-1 "\C-s" hm--html-region-structure-map)
(define-key hm--html-region-sub-map-1
"\C-p" hm--html-region-formatting-paragraph-map)
(define-key hm--html-region-sub-map-1
"\C-w" hm--html-region-formatting-word-map)
)
(defvar hm--html-noregion-sub-map-1 nil
"Noregion sub keymap for the `hm--html-mode'.")
(if hm--html-noregion-sub-map-1
()
(setq hm--html-noregion-sub-map-1 (make-sparse-keymap))
(define-key hm--html-noregion-sub-map-1 "\C-o" hm--html-noregion-forms-map)
(define-key hm--html-noregion-sub-map-1 "\C-a" hm--html-noregion-anchor-map)
(define-key hm--html-noregion-sub-map-1
[(control i)] hm--html-noregion-include-map)
; (define-key hm--html-noregion-sub-map-1
; "\C-t" hm--html-noregion-text-elements-map)
(define-key hm--html-noregion-sub-map-1 "\C-f" hm--html-noregion-frame-map)
(define-key hm--html-noregion-sub-map-1
"\C-s" hm--html-noregion-structure-map)
(define-key hm--html-noregion-sub-map-1
"\C-p" hm--html-noregion-formatting-paragraph-map)
(define-key hm--html-noregion-sub-map-1
"\C-w" hm--html-noregion-formatting-word-map)
)
(defvar hm--html-region-sub-map nil
"Region sub keymap for the `hm--html-mode'.")
(if hm--html-region-sub-map
()
(setq hm--html-region-sub-map (make-sparse-keymap))
; (define-key hm--html-region-sub-map "\C-n" hm--html-noregion-sub-map-1)
; (define-key hm--html-region-sub-map "\C-r" hm--html-region-sub-map-1)
(define-key hm--html-region-sub-map "\M-n" hm--html-noregion-sub-map-1)
(define-key hm--html-region-sub-map "\M-r" hm--html-region-sub-map-1)
(if (adapt-emacsp)
(map-keymap '(lambda (key-description-list binding)
(define-key hm--html-region-sub-map
(vector key-description-list) binding))
; (single-key-description key-description-list) binding))
hm--html-region-sub-map-1)
(map-keymap '(lambda (key-description-list binding)
(define-key hm--html-region-sub-map
key-description-list binding))
hm--html-region-sub-map-1)
)
)
(defvar hm--html-noregion-sub-map nil
"Noregion keymap for the `hm--html-mode'.")
(if hm--html-noregion-sub-map
()
(setq hm--html-noregion-sub-map (make-sparse-keymap))
; (define-key hm--html-noregion-sub-map "\C-n" hm--html-noregion-sub-map-1)
; (define-key hm--html-noregion-sub-map "\C-r" hm--html-region-sub-map-1)
(define-key hm--html-noregion-sub-map "\M-n" hm--html-noregion-sub-map-1)
(define-key hm--html-noregion-sub-map "\M-r" hm--html-region-sub-map-1)
(if (adapt-emacsp)
(map-keymap '(lambda (key-description-list binding)
(define-key hm--html-noregion-sub-map
(vector key-description-list) binding))
; (single-key-description key-description-list) binding))
hm--html-noregion-sub-map-1)
(map-keymap '(lambda (key-description-list binding)
(define-key hm--html-noregion-sub-map
key-description-list binding))
hm--html-noregion-sub-map-1)
)
)
(defvar hm--html-mode-map nil
"Normal and noregion keymap for the `hm--html-mode'.")
(if hm--html-mode-map
()
(setq hm--html-mode-map (make-sparse-keymap))
(define-key hm--html-mode-map
hm--html-mode-prefix-key hm--html-noregion-sub-map)
(if (adapt-xemacsp)
(progn
(define-key hm--html-mode-map '(button3) 'hm--html-popup-menu)
(define-key hm--html-mode-map
[(meta control button1)] 'idd-mouse-drag-and-drop))
; (define-key hm--html-mode-map [down-mouse-3] 'hm--html-popup-menu)
(if hm--html-expert
(define-key hm--html-mode-map
hm--html-emacs19-popup-noregion-menu-button
hm--html-menu-noregion-expert-map)
(define-key hm--html-mode-map
hm--html-emacs19-popup-noregion-menu-button
hm--html-menu-noregion-novice-map))
(define-key hm--html-mode-map
[(meta control mouse-1)] 'idd-mouse-drag-and-drop))
(if hm--html-bind-latin-1-char-entities
(progn
(define-key hm--html-mode-map [adiaeresis] 'hm--html_ae)
(define-key hm--html-mode-map [odiaeresis] 'hm--html_oe)
(define-key hm--html-mode-map [udiaeresis] 'hm--html_ue)
(define-key hm--html-mode-map [aring] 'hm--html_aa)
(define-key hm--html-mode-map [Adiaeresis] 'hm--html_Ae)
(define-key hm--html-mode-map [Odiaeresis] 'hm--html_Oe)
(define-key hm--html-mode-map [Udiaeresis] 'hm--html_Ue)
(define-key hm--html-mode-map [Aring] 'hm--html_Aa)
(define-key hm--html-mode-map [ediaeresis] 'hm--html_ediaeresis)
(define-key hm--html-mode-map [Ediaeresis] 'hm--html_Ediaeresis)
(define-key hm--html-mode-map [idiaeresis] 'hm--html_idiaeresis)
(define-key hm--html-mode-map [Idiaeresis] 'hm--html_Idiaeresis)
(define-key hm--html-mode-map [ssharp] 'hm--html_sz)
(define-key hm--html-mode-map [aacute] 'hm--html_aacute)
(define-key hm--html-mode-map [eacute] 'hm--html_eacute)
(define-key hm--html-mode-map [iacute] 'hm--html_iacute)
(define-key hm--html-mode-map [oacute] 'hm--html_oacute)
(define-key hm--html-mode-map [uacute] 'hm--html_uacute)
(define-key hm--html-mode-map [Aacute] 'hm--html_Aacute)
(define-key hm--html-mode-map [Eacute] 'hm--html_Eacute)
(define-key hm--html-mode-map [Iacute] 'hm--html_Iacute)
(define-key hm--html-mode-map [Oacute] 'hm--html_Oacute)
(define-key hm--html-mode-map [Uacute] 'hm--html_Uacute)
(define-key hm--html-mode-map [agrave] 'hm--html_agrave)
(define-key hm--html-mode-map [egrave] 'hm--html_egrave)
(define-key hm--html-mode-map [igrave] 'hm--html_igrave)
(define-key hm--html-mode-map [ograve] 'hm--html_ograve)
(define-key hm--html-mode-map [ugrave] 'hm--html_ugrave)
(define-key hm--html-mode-map [Agrave] 'hm--html_Agrave)
(define-key hm--html-mode-map [Egrave] 'hm--html_Egrave)
(define-key hm--html-mode-map [Igrave] 'hm--html_Igrave)
(define-key hm--html-mode-map [Ograve] 'hm--html_Ograve)
(define-key hm--html-mode-map [Ugrave] 'hm--html_Ugrave)
(define-key hm--html-mode-map [ccedilla] 'hm--html_ccedilla)
(define-key hm--html-mode-map [Ccedilla] 'hm--html_Ccedilla)
(define-key hm--html-mode-map [acircumflex] 'hm--html_acircumflex)
(define-key hm--html-mode-map [ecircumflex] 'hm--html_ecircumflex)
(define-key hm--html-mode-map [icircumflex] 'hm--html_icircumflex)
(define-key hm--html-mode-map [ocircumflex] 'hm--html_ocircumflex)
(define-key hm--html-mode-map [ucircumflex] 'hm--html_ucircumflex)
(define-key hm--html-mode-map [Acircumflex] 'hm--html_Acircumflex)
(define-key hm--html-mode-map [Ecircumflex] 'hm--html_Ecircumflex)
(define-key hm--html-mode-map [Icircumflex] 'hm--html_Icircumflex)
(define-key hm--html-mode-map [Ocircumflex] 'hm--html_Ocircumflex)
(define-key hm--html-mode-map [Ucircumflex] 'hm--html_Ucircumflex)
(define-key hm--html-mode-map [atilde] 'hm--html_atilde)
(define-key hm--html-mode-map [otilde] 'hm--html_otilde)
(define-key hm--html-mode-map [ntilde] 'hm--html_ntilde)
(define-key hm--html-mode-map [Atilde] 'hm--html_Atilde)
(define-key hm--html-mode-map [Otilde] 'hm--html_Otilde)
(define-key hm--html-mode-map [Ntilde] 'hm--html_Ntilde)
(define-key hm--html-mode-map [eth] 'hm--html_eth)
(define-key hm--html-mode-map [ETH] 'hm--html_Eth)
(define-key hm--html-mode-map [thorn] 'hm--html_thorn)
(define-key hm--html-mode-map [THORN] 'hm--html_Thorn)
))
(define-key hm--html-mode-map "<" 'hm--html-smart-less-than)
(define-key hm--html-mode-map ">" 'hm--html-smart-greater-than)
(define-key hm--html-mode-map "&" 'hm--html-smart-ampersand)
)
(defvar hm--html-region-mode-map nil
"Region keymap for the `hm--html-mode'.")
(if hm--html-region-mode-map
()
(setq hm--html-region-mode-map (make-sparse-keymap))
(define-key hm--html-region-mode-map
hm--html-mode-prefix-key hm--html-region-sub-map)
(if (adapt-xemacsp)
(progn
(define-key hm--html-region-mode-map
'(button3) 'hm--html-popup-menu-region)
(define-key hm--html-region-mode-map
[(meta control button1)] 'idd-mouse-drag-and-drop))
; (define-key hm--html-region-mode-map
; [down-mouse-3] 'hm--html-popup-menu-region)
(if hm--html-expert
(define-key hm--html-region-mode-map
hm--html-emacs19-popup-region-menu-button
hm--html-menu-region-expert-map)
(define-key hm--html-region-mode-map
hm--html-emacs19-popup-region-menu-button
hm--html-menu-region-novice-map))
(define-key hm--html-region-mode-map
[(meta control mouse-1)] 'idd-mouse-drag-and-drop))
;; It maybe a better idea to set the following to undefine in this list...
; (if hm--html-bind-latin-1-char-entities
; (progn
; (define-key hm--html-region-mode-map [adiaeresis] 'hm--html_ae)
; (define-key hm--html-region-mode-map [odiaeresis] 'hm--html_oe)
; (define-key hm--html-region-mode-map [udiaeresis] 'hm--html_ue)
; (define-key hm--html-region-mode-map [aring] 'hm--html_aa)
; (define-key hm--html-region-mode-map [Adiaeresis] 'hm--html_Ae)
; (define-key hm--html-region-mode-map [Odiaeresis] 'hm--html_Oe)
; (define-key hm--html-region-mode-map [Udiaeresis] 'hm--html_Ue)
; (define-key hm--html-region-mode-map [Aring] 'hm--html_Aa)
; (define-key hm--html-region-mode-map
; [ediaeresis] 'hm--html_ediaeresis)
; (define-key hm--html-region-mode-map
; [Ediaeresis] 'hm--html_Ediaeresis)
; (define-key hm--html-region-mode-map
; [idiaeresis] 'hm--html_idiaeresis)
; (define-key hm--html-region-mode-map
; [Idiaeresis] 'hm--html_Idiaeresis)
; (define-key hm--html-region-mode-map [ssharp] 'hm--html_sz)
; (define-key hm--html-region-mode-map [aacute] 'hm--html_aacute)
; (define-key hm--html-region-mode-map [eacute] 'hm--html_eacute)
; (define-key hm--html-region-mode-map [iacute] 'hm--html_iacute)
; (define-key hm--html-region-mode-map [oacute] 'hm--html_oacute)
; (define-key hm--html-region-mode-map [uacute] 'hm--html_uacute)
; (define-key hm--html-region-mode-map [Aacute] 'hm--html_Aacute)
; (define-key hm--html-region-mode-map [Eacute] 'hm--html_Eacute)
; (define-key hm--html-region-mode-map [Iacute] 'hm--html_Iacute)
; (define-key hm--html-region-mode-map [Oacute] 'hm--html_Oacute)
; (define-key hm--html-region-mode-map [Uacute] 'hm--html_Uacute)
; (define-key hm--html-region-mode-map [agrave] 'hm--html_agrave)
; (define-key hm--html-region-mode-map [egrave] 'hm--html_egrave)
; (define-key hm--html-region-mode-map [igrave] 'hm--html_igrave)
; (define-key hm--html-region-mode-map [ograve] 'hm--html_ograve)
; (define-key hm--html-region-mode-map [ugrave] 'hm--html_ugrave)
; (define-key hm--html-region-mode-map [Agrave] 'hm--html_Agrave)
; (define-key hm--html-region-mode-map [Egrave] 'hm--html_Egrave)
; (define-key hm--html-region-mode-map [Igrave] 'hm--html_Igrave)
; (define-key hm--html-region-mode-map [Ograve] 'hm--html_Ograve)
; (define-key hm--html-region-mode-map [Ugrave] 'hm--html_Ugrave)
; (define-key hm--html-region-mode-map [ccedilla] 'hm--html_ccedilla)
; (define-key hm--html-region-mode-map [Ccedilla] 'hm--html_Ccedilla)
; (define-key hm--html-region-mode-map
; [acircumflex] 'hm--html_acircumflex)
; (define-key hm--html-region-mode-map
; [ecircumflex] 'hm--html_ecircumflex)
; (define-key hm--html-region-mode-map
; [icircumflex] 'hm--html_icircumflex)
; (define-key hm--html-region-mode-map
; [ocircumflex] 'hm--html_ocircumflex)
; (define-key hm--html-region-mode-map
; [ucircumflex] 'hm--html_ucircumflex)
; (define-key hm--html-region-mode-map
; [Acircumflex] 'hm--html_Acircumflex)
; (define-key hm--html-region-mode-map
; [Ecircumflex] 'hm--html_Ecircumflex)
; (define-key hm--html-region-mode-map
; [Icircumflex] 'hm--html_Icircumflex)
; (define-key hm--html-region-mode-map
; [Ocircumflex] 'hm--html_Ocircumflex)
; (define-key hm--html-region-mode-map
; [Ucircumflex] 'hm--html_Ucircumflex)
; (define-key hm--html-region-mode-map [atilde] 'hm--html_atilde)
; (define-key hm--html-region-mode-map [otilde] 'hm--html_otilde)
; (define-key hm--html-region-mode-map [ntilde] 'hm--html_ntilde)
; (define-key hm--html-region-mode-map [Atilde] 'hm--html_Atilde)
; (define-key hm--html-region-mode-map [Otilde] 'hm--html_Otilde)
; (define-key hm--html-region-mode-map [Ntilde] 'hm--html_Ntilde)
; (define-key hm--html-region-mode-map [eth] 'hm--html_eth)
; (define-key hm--html-region-mode-map [ETH] 'hm--html_Eth)
; (define-key hm--html-region-mode-map [thorn] 'hm--html_thorn)
; (define-key hm--html-region-mode-map [THORN] 'hm--html_Thorn)
; ))
(define-key hm--html-region-mode-map "<" 'hm--html-smart-less-than)
(define-key hm--html-region-mode-map ">" 'hm--html-smart-greater-than)
(define-key hm--html-region-mode-map "&" 'hm--html-smart-ampersand)
)
;;; For the hm--html minor modes
(defvar hm--html-minor-mode-map nil
"Normal and noregion keymap for the `hm--html-minor-mode'.")
(if hm--html-minor-mode-map
()
(setq hm--html-minor-mode-map (make-sparse-keymap))
(define-key hm--html-minor-mode-map
hm--html-minor-mode-prefix-key hm--html-noregion-sub-map)
(if (adapt-xemacsp)
(progn
(define-key hm--html-minor-mode-map
'(button3) 'hm--html-popup-minor-html-menu)
(define-key hm--html-minor-mode-map
[(meta control button1)] 'idd-mouse-drag-and-drop))
(if hm--html-expert
(define-key hm--html-minor-mode-map
hm--html-emacs19-popup-noregion-menu-button
hm--html-menu-noregion-expert-map)
(define-key hm--html-minor-mode-map
hm--html-emacs19-popup-noregion-menu-button
hm--html-menu-noregion-novice-map))
(define-key hm--html-minor-mode-map
[(meta control mouse-1)] 'idd-mouse-drag-and-drop))
(define-key hm--html-minor-mode-map "<" 'hm--html-smart-less-than)
(define-key hm--html-minor-mode-map ">" 'hm--html-smart-greater-than)
(define-key hm--html-minor-mode-map "&" 'hm--html-smart-ampersand)
)
(defvar hm--html-minor-region-mode-map nil
"Region keymap for the `hm--html-minor-mode'.")
(if hm--html-minor-region-mode-map
()
(setq hm--html-minor-region-mode-map (make-sparse-keymap))
(define-key hm--html-minor-region-mode-map
hm--html-minor-mode-prefix-key hm--html-region-sub-map)
(if (adapt-xemacsp)
(progn
(define-key hm--html-minor-region-mode-map
'(button3) 'hm--html-popup-minor-html-menu-region)
(define-key hm--html-minor-region-mode-map
[(meta control button1)] 'idd-mouse-drag-and-drop))
(if hm--html-expert
(define-key hm--html-minor-region-mode-map
hm--html-emacs19-popup-region-menu-button
hm--html-menu-region-expert-map)
(define-key hm--html-minor-region-mode-map
hm--html-emacs19-popup-region-menu-button
hm--html-menu-region-novice-map))
(define-key hm--html-minor-region-mode-map
[(meta control mouse-1)] 'idd-mouse-drag-and-drop))
(define-key hm--html-minor-region-mode-map "<" 'hm--html-smart-less-than)
(define-key hm--html-minor-region-mode-map ">" 'hm--html-smart-greater-than)
(define-key hm--html-minor-region-mode-map "&" 'hm--html-smart-ampersand)
)
;;; Announce the feature hm--html-keys
(provide 'hm--html-keys)