Commits

steve  committed 6d9be9e

Created

  • Participants
  • Tags xemacs

Comments (0)

Files changed (25)

File ANNOUNCEMENT

+Hello,
+
+I've written a new version (5.8) of my html package for the XEmacs 
+and the GNU Emacs 19. The name of the package is:
+
+		 hm--html-menus-5.8.tar.gz
+
+With this package it is very easy to write html pages for the World Wide 
+Web (WWW). Eg: In most cases the user gets help to construct a specific 
+link by examples or by a completition list with possible input strings.
+It is also possible to insert links and images by just clicking on its
+source and destination (drag and drop feature).
+
+The biggest new features compared with release 5.7 are:
+- use of the customize package for customization
+- the header of the main files should no be 'package finder' compatible
+- in the XEmacs a drag and drop mouse pointer will be used
+  during drag and drop
+- the minor mode (hm--html-minor-mode) could now be used in many
+  other major modes
+- better popup menu support for the hm--html-minor-mode in the
+  Emacs 19
+- the emacs start up options -u, -q, -no-site-file are now
+  respected
+- some bug fixes
+Read the NEWS file to see news in detail...
+
+You should find hm--html-menus-5.8.tar.gz on the following ftp server:
+	sunsite.unc.edu in /pub/Linux/apps/editors/emacs/
+	ftp.tnt.uni-hannover.de in /pub/editors/xemacs/contrib
+
+It may take some time, before the package is copied by the ftp admins
+from the incoming directories to the above listed directories.
+
+There is a html documentation about the package. You can find it on:
+http://www.tnt.uni-hannover.de/~muenkel/software/own/hm--html-menus/overview.html
+
+This package provides also a minor mode (hm--html-minor-mode), which
+can be used together with other html major modes, like the psgml-html
+mode or other major edit modes, like the perl-mode.
+
+The package provides functions to insert the following stuff in html-pages:
+1. Anchors:
+	relative links, general link;
+	html link, info link, gopher link, file link;
+	ftp link, news link, mailbox link, mailto link, wais (direct) link,
+	wais (gateway) link;
+	proggate link, local proggate link, 
+	link target;
+2. Frame elements:
+	full html frame with doctype, doctype, html, head, body, title,
+	header and signature elements or only the single elements;
+	meta, isindex, link and base element;
+	html 'created'- and 'changed'- comments;  
+	the current date in the title; 
+3. Structure elements:
+	menu or list item, menu, unordered list, ordered list, directory list;
+	description list, description title, description entry;
+	table, table title, table header, table row, table entry;
+	new paragraph, new line, horizontal rule, document division;
+4. for formatting paragraphs:
+	preformated, blockquote;
+	basefont, font, center, style;
+	html comment;
+5. formatting:
+	bold, italic, underline, typewriter, strikethru, super and subscript,
+	emphasized, strong, small, big,
+	definition, keyboard, variable,	code, sample, citation,
+6. include:
+	top aligned image, middle aligned image, bottom aligned image;
+	general image element, map, area and all together;
+	applet, parameter, script;
+7. forms:
+	form;
+	text, password, isindex, integer, float, date, url, scribble fields; 
+	checkbox, radio, reset, image, audio and submit buttons;
+	option menus, scrolled lists and option entries;
+	textarea;
+8. entities:
+	most of the special ISO- characters, less, greater and ampersand;
+
+If it makes sense, the functions worked also on selected regions.
+I've used the same menu items and the same keystrokes. Therefore, you
+don't need to learn different menus or keys for similar functions.
+
+You can choose the popup menus between an expert menu and an novice
+menu interactively.
+
+With the pulldown menu, you can do the following things:
+- select the popup menu
+- start a drag and drop command
+- get help on a drag and drop command
+- remove numeric names
+- quotify hrefs
+- reload the config files
+- load html templates from a template directory (two templates are included
+  in the package); templates written in a special template language are
+  expanded automatically;
+- preview html documents with the netscape
+- preview html documents with the xmosaic
+- preview html documents with the w3 package for the XEmacs and emacs
+
+You can insert links and images by clicking with Meta Control Button1
+on its source and then on its destination. For this drag and drop
+interface the following destinations and links are supported: - the
+inclusion of an GIF- or JPEG- image by clicking on its name
+  in a dired buffer
+- a file or relative link to any other file by clicking on its name
+  in a dired buffer
+- a file or relative link to a directory by clicking on a line without
+  a filename in the dired buffer
+- a file or relative link to a file by clicking in a buffer with this
+  file
+- a http or relative link to a html page by clicking in the w3 buffer, 
+  which displays this page
+- a http or relative link, which is in another html page by clicking 
+  on the link in a w3 buffer
+If there is an activated region in the source buffer, then the link
+is inserted around it, so that the region is used as the name of the
+link.
+
+You can configure the html mode with a special configuration file for
+your site and with another file specific for a user.
+
+The html specification is under development and therefore this
+package is also under development. So, if you have any ideas to
+extend the package, feel free to email them to
+muenkel@tnt.uni-hannover.de.
+
+
+Heiko
+1998-01-03  SL Baur  <steve@altair.xemacs.org>
+
+	* Makefile: Update to newer package interface.
+
+1997-12-25  SL Baur  <steve@altair.xemacs.org>
+
+	* Makefile: Created.
+# Makefile for hm--html-menus lisp code
+
+# This file is part of XEmacs.
+
+# XEmacs 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.
+
+# XEmacs 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 XEmacs; see the file COPYING.  If not, write to
+# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+# Boston, MA 02111-1307, USA.
+
+VERSION = 1.02
+PACKAGE = hm--html-menus
+PKG_TYPE = regular
+REQUIRES =
+CATEGORY = oa
+
+ELCS = adapt.elc hm--date.elc hm--html-configuration.elc \
+	hm--html-drag-and-drop.elc hm--html-indentation.elc \
+	hm--html-keys.elc hm--html-menu.elc hm--html-mode.elc \
+	hm--html-not-standard.elc hm--html.elc html-view.elc \
+	internal-drag-and-drop.elc tmpl-minor-mode.elc
+
+INFO_FILES = hm--html-mode.info*
+
+include ../../XEmacs.rules
+
+all:: $(ELCS) auto-autoloads.elc custom-load.elc hm--html-mode.info
+
+srckit: srckit-std
+
+binkit: binkit-sourceinfo
+20.07.97
+	-- BUILDED the version 5.8 of the package --
+19.07.97
+	The minor mode (hm--html-minor-mode) in the Emacs 19 has now
+	an entry to get the major mode menu - propably not the best
+	solution, but better than nothing.
+	Updated the Texinfo documentation.
+17.07.97
+	Added dummy definitions for defgroup and defcustom for the
+	Emacs 19.
+	The variable `site-run-file' is now used, if `site-start-file'
+	doesn't exists (for Emacs 19 compatibility).
+	Fixed a bug in the minor mode popup menu, which occured
+	in the XEmacs together with the html-mode of the psgml
+	package.
+15.07.97
+	The minor mode (hm--html-minor-mode) could now be used in many
+	other (non html) major modes in the XEmacs, like the java-mode
+	or the perl-mode. In these modes, in the XEmacs it adds it's
+	own popup menu at the beginning of the major mode menu.
+06.07.97
+	Changed the file header of hm--html-mode.el, 
+	internal-drag-and-drop.el and tmpl-minor-mode.el.
+	They should now be compliant with standards.
+	The mouse pointer in the XEmacs changes now it's shape,
+	during the drag and drop.
+01.07.97
+	The package uses now the customisation stuff.
+	Applied a patch from Dave Love <d.love@dl.ac.uk>, which fixed
+	some font-lock bugs.
+	Fixed a bug in `hm--html-insert-modified-line'. Thanks to 
+	David M. Cook <dmcook@cts.com>, who reported this bug.
+	The package respects now the emacs flags -q, -u and
+	-no-site-file. -u is only respected, if the user config
+	file isn't given neither by the environment variable nor by the
+	lisp variable.
+31.05.97
+	Added the functions `define-obsolete-variable-alias' and
+	`define-obsolete-variable-alias' for the Emacs 19 to the file
+	adapt.el. This fixed a load bug in the Emacs 19.
+24.05.97
+	Added `hm--html-automatic-create-title-date' and changed the
+	variable `hm--html-automatic-new-date' to
+	`hm--html-automatic-update-title-date'. `hm--html-automatic-new-date'
+	is now an obsolete variable and will be deleted in the future.
+	Applied a patch from Luca Pisati <pisati@nichimen.com>, which
+	fixed a bug in `hm--html-indent-region'. 
+	Fixed a bug in the `hm--html-minor-region-mode-map'. Thanks to
+	Luca Pisati, for the bug report.
+	Applied a patch from Gary D. Foster <Gary.Foster@Corp.Sun.COM>
+	to fix the misspelled words *formatted and *formating. Thanks Gary.
+	Changed `hm--html-indent-line' so that the indentation leaves the
+	point now at the old text position, if it was behind the
+	indentation column.
+	-- BUILDED the version 5.7 of the package --
+23.05.97
+	Changed the special character entities &circumflex to &circ,
+	thanks to Guylaine Prat <prat@cisi.cnes.fr>, for the bug report.
+	Added the variables `hm--html-automatic-changed-comment-prefix',
+	`hm--html-automatic-created-comment-prefix' and
+	`hm--html-automatic-comment-infix' to make the automatic insertation
+	of created and changed comments more flexible.
+	Added the command `hm--html-insert-modified-line' and the 
+	variables `hm--html-automatic-create-modified-line',
+	`hm--html-automatic-update-modified-line', `hm--html-modified-prefix',
+	`hm--html-modified-start-tag', `hm--html-modified-end-tag' and
+	`hm--html-modified-insert-before', for inserting and updating
+	a visible "Modified line".
+08.05.97
+	Added the function `idd-get-buffer'.
+29.03.97
+	Fixed the problem with `:keys "\\[idd-help-mouse-drag-and-drop]"'
+	in the Emacs 19.
+	Fixed the template commands for the Emacs 19.
+	Added the commands `tmpl-util-indent-region' and
+	`tmpl-util-indent-buffer', which are useful utilities in
+	template files.
+	Changed frame.html.tmpl and command-description.html.tmpl, so that
+	they now will be indented after their insertation.
+28.03.97
+	Fixed the commands `idd-mouse-drag-and-drop-click' and
+	`idd-mouse-drag-and-drop-press-button-during-move' for the Emacs 19.
+	Fixed also the mouse keybinding for these commands in the Emacs 19.
+	Fixed the command `idd-start-mouse-drag-and-drop' for the Emacs 19.
+	Therefore the internal drag and drop is now working again in the
+	Emacs 19.
+	The idd help functions are fixed for the Emacs 19.
+	Fixed the function `hm--html-is-one-element-tag-p' for the Emacs 19.
+26.03.97
+	Applied a patch from Michael D. Harnois to fix the documentation.
+	Fixed a bug in adapt.el.
+	-- BUILDED the version 5.6 of the package --
+25.03.97
+	Fixed a bug in `hm--html-search-place-for-element-in-head'.
+	Fixed bugs in `hm--html-add-base' and `hm--html-add-isindex'.
+	Renamed all calls to `hm--html-add-mail-link*' to
+	`hm--html-add-mail-box-link*' - this fixed bugs in the menus and
+	keybindings.
+	Fixed `hm--html-frame-template-file'.
+	Fixed some keybinding bugs.
+	-- BUILDED the version 5.5 of the package --
+24.03.97
+	Added the function `mouse-event-p' for the Emacs 19 to adapt.el.
+	The internal-drag-and-drop package uses know the function
+	`file-remote-p' instead of `ange-ftp-ftp-path'. If this
+	function is not available in an emacs, the function will be
+	defined and will use the function `ange-ftp-ftp-path'.
+	Fixed bugs in `idd-mouse-drag-and-drop-click' for the Emacs 19.
+23.03.97
+	Fixed some bugs, so that the package is now again loadable
+	in the Emacs 19 (19.34).
+	Changed popup-menu-up-p to popup-up-p, menu-event-p to
+	misc-user-event-p.
+	Fixed some other XEmacs compilation bugs.
+	Fixed bugs in `hm--html-add-isindex' and `hm--html-add-base'.
+	Moved the commands `hm--html-add-server-side-include-file',
+	`hm--html-add-server-side-include-command' and
+	`hm--html-add-server-side-include-command-with-isindex-parameter'
+	to hm--html-not-standard.el.
+	Fixed a bug in `hm--html-add-document-division-to-region'.
+	Deleted some obsolete stuff in `hm--html-add-link'.
+	Fixed bugs in `hm--html-add-basefont', `hm--html-add-mail-box-link',
+	`hm--html-add-mail-box-link-to-region', `idd-list-1-subset-of-list-2',
+	`idd-same-elements-p', `idd-start-mouse-drag-and-drop',
+	`idd-mouse-drag-and-drop-click', `idd-if-minor-mode-p',
+	`idd-if-modifiers-p' and `tmpl-read-template-filename'.
+22.03.97
+	Fixed some documentation bugs in tmpl-minor-mode.el.
+	Changed the key bindings in the tmpl-minor-mode. They are now
+	using all the prefix C-c C-c.
+	Fixed some documentation bugs in internal-drag-and-drop.el.
+	Added a package documentation as Texinfo file. It documents also
+	the included packages for internal drag and drop and for
+	templates.
+	-- BUILDED the version 5.4 of the package --
+18.03.97
+	Applied a patch from Martin Buchholz <mrb@Eng.Sun.COM>,
+	to fix some spelling errors.
+	Changed the value of the variable `tmpl-sign' to \000.
+25.02.97
+	Fixed two bugs, which occured during loading the mode
+	after the psgml-html-mode.
+	In the minor mode, the HM--HTML menu will now be added before
+	the HTML menu.
+	Due to a patch of psgm-html.el it is now possible to call the minor
+	mode from a hook variable in the html-mode and the html3-mode.
+	-- BUILDED the version 5.3 of the package --
+22.02.97
+	Fixed 'hm--html-add-strikethru-to-region'.
+	Changed `hm--html-view-www-package-docu' for the new location
+	of the package documentation.
+	Moved all functions, which added obsolete or non HTML 3.2 elements,
+	to hm--html-not-standard.el. This file is not used by default.
+	Therefore this mode fulfils now the whole HTML 3.2 standard!
+	Added keybindings for new html functions.
+	Changed some old keybindings.
+	Moved the menu items for inserting HTML comments to the
+	"Formating Paragraphs" menu.
+	Fixed a bug in the function `hm--html-add-meta'.
+	The variable `indent-line-function' is now local in all
+	hm--html-mode buffers. This fixed the bug, that the hm--html-mode
+	had set the indentation function to `hm--html-indent-line' global.
+	Added the html elements STYLE and SCRIPT.
+	-- 23:20: My doughter Sarah Madeleine is born! --
+18.02.97
+	Fixed a compilation bug.
+	-- BUILDED the version 5.2 of the package --
+17.02.97
+	Changed the function `hm--html-read-alignment' according to the
+	HTML version 3.2.
+	Added a more general command for adding images.
+	Added the HTML elements MAP and AREA.
+	Added a command for adding an image and a map.
+15.02.97
+	Fixed some bugs in the insert full frame stuff.
+	Added the DOCTYPE to the full frame stuff.
+	Added the HTML elements DIV, FONT and BASEFONT.
+14.02.97
+	Added the HTML elements DOCTYPE, ISINDEX, BASE, META.
+	Added all one tag elements used in HTML 3.2 to the list
+	`hm--html-tag-name-alist' to make the indentation happy.
+	Fixed a bug in the indentation after one tag elements.
+12.02.97
+	Renamed command-description.tmpl to command-description.html.tmpl.
+	The indentation stuff can now be disabled by setting the
+	variable `hm--html-disable-indentation' to t.
+	Fixed the long annoying bug, that the directory in the pop up
+	frame for selecting the template file was wrong in most cases.
+	-- BUILDED the version 5.1 of the package --
+11.02.97:
+	Changed the whole indentation stuff. It is now all working -
+	with the exceptions, that the list `hm--html-tag-name-alist'
+	contains not all "one element tags", and also text between
+	pre tags will be intended.
+09.02.97:
+	Fixed a bug in the template stuff.
+	Moved the whole indentation stuff to the new file
+	hm--html-indentation.el.
+06.02.97:
+	The indentation of two tag elements are now working.
+03.02.97:
+	It is now possible to use an own site specific configuration file.
+	For that the variable `hm--html-site-config-file' was added.
+	Added some code from Bob Weiner to modify the syntax table,
+	change the comment start and end and the sentence end.
+	Started to add the indentation.
+	The indentation in comments is now working.
+01.02.97:
+	In the source and destination description of a drag and drop
+	are now used marks instead of points. This fixed bugs, which
+	occured, if the source and the destination buffer are the same.
+	A help feature was implemented.
+30.01.97:
+	Added some new features to the drag and drop interface, like
+	the macro `idd-start-mouse-drag-and-drop', which is usefull to
+	define action functions. The event is now also stored in the source
+	and destination description.
+	Changed the order of the arguments destination and source
+	to source and destination.
+	Changed the name of all idd specification type functions
+	to idd-if-*-p.
+27.01.97:
+	Changed the source and destination in the drag and drop functions,
+	so that they are now used in a standard way.
+	Added the command `idd-start-mouse-drag-and-drop', which could
+	be used to start a drag and drop command without a button-press-event.
+	Used the command `idd-start-mouse-drag-and-drop' in the hm--html
+	menus.
+26.01.97:
+	Renamed the function `tmpl-insert-template-file' to
+	`tmpl-insert-template-file-from-fixed-dirs'.
+	Added a function `tmpl-insert-template-file', which doesn't use
+	a file filter and a list of directories.
+	Changed both functions, so that they now use the variables
+	`tmpl-template-dir-list', `tmpl-automatic-expand',
+	`tmpl-filter-regexp' and `tmpl-history-variable-name'
+	instead of optional arguments.
+	Changed the name of the file frame.html to frame.html.tmpl. This is
+	usefull, if you've templates for multiple modes in one directory and
+	you want to use the new filter feature of the command
+	`tmpl-insert-template-file-from-fixed-dirs'.
+	Changed the function `hm--html-insert-template' and added
+	the function `hm--html-insert-template-from-fixed-dirs'. They are
+	using the functions `tmpl-insert-template-file' and
+	`tmpl-insert-template-file-from-fixed-dirs'.
+	The function `hm--html-insert-created-comment' is no longer
+	called in this functions. If needed, then this function must be
+	inserted in the template file. This is done now with the file
+	frame.html.tmpl.
+22.01.97:
+	Changed the function `tmpl-insert-template-file':
+	It is now possible to use a file filter and a list
+	of directories, in which template files could be.
+19.01.97:
+	Applied a patch from Andreas Ernst to fix bugs in the table stuff.
+	Added a '(let ((case-fold-seach t))' in all functions of hm--html.el,
+	which are call a search function with lowercase letters.
+	The functions to insert ordered, normal and dired list are fixed to
+	use <LI> </LI> tags instead of only <LI>.
+	Fixed a keybind bug for C-c C-s i.
+	Fixed a wrong call to `hm--html-add-only-description-entry'.
+	Fixed a bug in the argument list of hm--html-add-tags-to-region.
+	Fixed a bug in `hm--html-add-tags-to-region', which was caused by the
+	indentation.
+	Fixed a bug in `hm--html-add-relative-link-to-region' and
+	`hm--html-add-relative-link'.
+	Replaced `hm--html-file-relative-name' with `file-relative-name'.
+	Changed the font-lock stuff. It uses now the property list of 
+	`font-lock-defaults' and the three keyword lists
+	'html-font-lock-keywords', `html-font-lock-keywords-1' and
+	`html-font-lock-keywords-2'.
+	Fixed a bug in the drag and drop variables.
+	Changed the drag and drop command, so that it could be called 
+	also from a menu.
+	Added the drag and drop command to the pop up menus.
+15.08.96:
+	The items of the menu "Set popup menu" are now radio items.
+	-- BUILDED the version 5.0 of the package --
+03.08.96:
+	Applied a patch from Jerry G. DeLapp <jgd@lanl.gov> to
+	`html-font-lock-keywords'.
+	Added the param tag for the applet element.
+	Added the functions `hm--html-add-relative-link' and
+	`hm--html-add-relative-link-to-region', which have better
+	support for relative links than the functions for inserting
+	general links.
+	Added functions to insert the center element.
+	Added functions to insert the small and big elements.
+31.07.96:
+	Added the applet element.
+	The tags for menu items and description entries and titles
+	are now inserted with a start and a end tag.
+	Fixed some keybinding bugs.
+	Added the function 'hm--html-indent-region'. At the moment
+	the indentation works only in the minor mode and if the major
+	mode provides an indentation function, like it is in the psgml 
+	mode.
+20.07.96:
+	Fixed bugs in the popup and pulldown menu handling in the Emacs 19.
+	Speeded up the first popup of some of the menus in the Emacs 19.
+	The keybinding for the popup menu in the Emacs 19 has changed to
+	C-down-mouse-3. The variables 
+	`hm--html-emacs19-popup-noregion-menu-button' and
+	`hm--html-emacs19-popup-region-menu-button' should be used in the Emacs
+	19 to change the keybindings. They are defined in hm--html-keys.el.
+	Fixed a bug in the font-lock stuff for the Emacs 19.
+	The popup menus of the minor mode worked now also in the Emacs 19.
+	The pulldown menu of the minor mode worked now also in the Emacs 19.
+	The name of the pulldown menu can now be changed with the variable
+	`hm--html-mode-pulldown-menu-name'.
+	All settings in hm--configuration.el are now made with `defvar'.
+	So it's easier now to overwrite this values in other files.
+	All old lisp stuff deleted.
+	Added Keybindings for the commands in the include and the forms 
+	submenu.
+	Fixed a bug in the command `hm--html-smart-less-than'.
+19.07.96:
+	Changed the functions hm--popup-html* to hm--html-popup*.
+	The Emacs 19 popup menus are now realized as direct bindings of
+	the menu maps to the mouse button. This fixed a bug.
+18.07.96:
+	The popup menus in the Emacs 19 are now much faster, because
+	the keymaps are only computed once from the XEmacs menu
+	description instead of each time.
+	Fixed a bug in the keybinding stuff for the Emacs 19.
+16.07.96:
+	Added the function `hm--html-smart-ampersand'.
+	Added the minor modes `hm--html-minor-mode' and
+	`hm--html-minor-region-mode'. They should provide
+	the menus and commands of this package for the
+	psgml-html-mode.
+	The prefix key of the minor and of the major modes
+	could now be changed with `hm--html-minor-mode-prefix-key'
+	and `hm--html-mode-prefix-key'.
+14.07.96:
+	Ported the internal drag and drop interface for the Emacs 19.
+	Changed the Keybinding for the drag and drop function to
+	M-C-button1 (M-C-mouse-1).
+	Changed hm--install-html-menu for the Emacs 19. It uses now the
+	package easy-menu to install the pulldown menu. This fixes the
+	bug, that the HTML pulldown menu is a global menu.
+13.07.96:
+	Updated the file header comments a little bit.
+10.07.96:
+	Added the file hm--html-mode.el instead of html-mode.el.
+	Changed the mode name to hm--html-mode.
+	Fixed a bug in the function `hm--html-generate-help-buffer-faces',
+	which occurs, if a color is set to nil.
+	The font-lock mode is no longer called direct from the 
+	hm--html-mode.
+	The file html-mode.el should no longer be needed for this mode.
+09.07.96:
+	Added the functions `hm--html-add-normal-link', 
+	`hm--html-add-address', `html-add-list-or-menu-item`, 
+	`hm--html-add-list', `hm--html-add-menu',
+	`hm--html-add-description-list', `hm--html-add-description-entry',
+	`hm--html-add-plaintext', `hm--html-add-blockquote',
+	`hm--html-add-listing', `hm--html-add-fixed',
+	`hm--html-add-emphasized', `hm--html-add-strong',
+	`hm--html-add-keyboard', `hm--html-add-variable',
+	`hm--html-add-sample', `hm--html-add-citation',
+	`hm--html-quotify-hrefs' to the file hm--html.el. Similar
+	functions are defined in the past in the file html-mode without
+	the prefix hm--.
+	Removed Marc's menu. Maybe a simple flat menu will be added
+	in the future, similar to Marc's menu.
+	Removed the old keymaps from the configuration file.
+	Moved the provide forms to the end of the files.
+07.07.96:
+	Added the drag and drop interface. With that it is possible
+	to insert links and images by just Meta Button 1 clicking
+	on its source and destination.
+01.03.96:
+	Added the function `tmpl-insert-template-file'.
+18.02.96:
+	-- BUILDED the version 4.16 of the package --
+17.02.96:
+	Added the mailto link.
+03.02.96:
+	Fixed the 'void function font-lock-hack-keywords' bug.
+15.10.95:
+	Added support for the swedish ISO-Characters aring and Aring.
+	It was a patch from Ola Stromfors <Ola.Stromfors@linkoping.trab.se>.
+17.09.95:
+	It is now possible to disable the keybindings for the ISO Latin 1
+ 	character entities.
+	-- BUILDED the version 4.15 of the package --
+05.09.95:
+	Fixed a bug in the changed comment functions.
+	Fixed a description typo.
+	-- BUILDED the version 4.14 of the package --
+24.08.95:
+	Fixed the new keybindings for the Emacs 19.
+22.08.95:
+	Added smart functions for inserting <,> or their html entities.
+	Added the function 'hm--html-send-buffer-to-netscape' to support
+	netscape.
+	Added a menu item to view the WWW page of the package.
+	-- BUILDED the version 4.13 of the package --
+18.08.95:
+	Fixed the Makefile to include also the file hm--html-keys.el.
+	Fixed the 'missing util-return-end-of-line' bug.
+	Fixed the read-file-name bug in the Emacs 19.
+	Fixed a bug in the changed comment functions.
+29.07.95:
+	Fixed some bugs in the table code.
+	New, better and more key bindings.
+	Added functions to insert ISO 8851-1 characters as html entities.
+	Thanks to Berthold Crysmann <crysmann@rrz.uni-hamburg.de> for
+	providing the code for it.
+	-- BUILDED the version 4.12 of the package --
+12.05.95:
+	Changed the color handling functions, so that the font-lock colors
+	are now longer overwritten by this mode.
+	Added functions to insert the paragraph element with start and
+	end tag.
+	Applied a patch from Noriaki Seki <kerolyn@rst.fujixerox.co.jp>,
+	which fixes a bug in searching the string </head>.
+	Fixed a typo in hm--html-load-config-files (Thanks to 
+	"Valeriy E. Ushakov" <uwe@snark.niif.spb.su>).
+	Added a command to insert a <LINK> element as suggested by
+	ssd@tad.eds.com (Sean Dowd).
+	Fixed a typo in hm--html-set-point-for-signature.
+	Added a new template file: frame.tmpl.
+	Changed the name of command-description-template-2.html to
+	command-description.tmpl and deleted the file
+	command-description-template.html.
+	Added the new menu item: "Frame Template" as suggested by
+	ssd@tad.eds.com (Sean Dowd).
+	Fixed a bug hm--html-remove-numeric-names (Thanks to 
+	D-P Deng <deng@owl.rhic.bnl.gov>).
+	Added a command to submit bug reports (suggested by 
+	D-P Deng <deng@owl.rhic.bnl.gov>).
+	Changed `(defconst html-font-lock-keywords' to
+	`(defvar html-font-lock-keywords' (suggested by
+	rickb@isdn-szerelem.mti.sgi.com (Rick Braumoeller).
+	Fixed the table functions.
+	-- BUILDED the version 4.11 of the package --
+02.03.95:
+	-- BUILDED the version 4.8 of the package --
+	Included the changes from the XEmacs 19.12 Beta 26.
+	Added Support for the finder package.
+	-- BUILDED the version 4.9 of the package --
+	Fixed some minor documentation bugs.
+	-- BUILDED the version 4.10 of the package --
+30.03.95:
+	Changed all calls of `concat', so that no longer numbers are
+	given as arguments to concat.
+	Removed the file .hm--html-configuration.el from the distribution.
+	This does not mean, that the file is no longer supported. The
+	file was only an example and the user has to build his own one.
+	The example is now given in the README file.
+	Fixed a bug in the region minor mode.
+	
+14.01.95:
+	-- BUILDED the version 4.7 of the package --
+12.01.95:
+	Changed the behaviour of the function `hm--html-add-table'.
+06.01.95:
+	Added the variable `hm--html-user-config-file', as onother way
+	to specify the user config file.
+	-- BUILDED the version 4.6 of the package --
+04.01.95:
+	Added functions to insert tables.
+	-- BUILDED the version 4.5 of the package --
+03.01.95:
+	Faces are only modified, if they don't exist (I hope :-).
+	html-view.el works now with Mosaic 2.4.
+	`hm--html-add-full-html-frame' now tries only to insert a signature,
+	if `hm--html-signature-file' is non-nil.
+	Added the functions:
+	`hm--html-add-strikethru' and `hm--html-add-strikethru-to-region',
+	`hm--html-add-superscript' and `hm--html-add-superscript-to-region',
+	`hm--html-add-subscript' and `hm--html-add-subscript-to-region',
+	`hm--html-add-command' and `hm--html-add-command-to-region',
+	`hm--html-add-argument' and `hm--html-add-argument-to-region',
+	`hm--html-add-quote' and `hm--html-add-quote-to-region',
+	`hm--html-add-person' and `hm--html-add-person-to-region',
+	`hm--html-add-acronym' and `hm--html-add-acronym-to-region',
+	`hm--html-add-abbrevation' and `hm--html-add-abbrevation-to-region',
+	`hm--html-add-literature' and `hm--html-add-literature-to-region',
+	`hm--html-add-abstract' and `hm--html-add-abstract-to-region',
+	`hm--html-add-footnote' and `hm--html-add-footnote-to-region',
+	`hm--html-add-margin' and `hm--html-add-margin-to-region',
+	`hm--html-add-author' and `hm--html-add-author-to-region',
+	`hm--html-add-publication' and `hm--html-add-publication-to-region',
+	`hm--html-add-editor' and `hm--html-add-editor-to-region',
+	`hm--html-add-credits' and `hm--html-add-credits-to-region',
+	`hm--html-add-copyright' and `hm--html-add-copyright-to-region',
+	`hm--html-add-isbn' and `hm--html-add-isbn-to-region',
+	`hm--html-form-add-input-integer',
+	`hm--html-form-add-input-float',
+	`hm--html-form-add-input-date',
+	`hm--html-form-add-input-url',
+	`hm--html-form-add-input-scribble',
+	`hm--html-form-add-input-audio'.
+15.03.94:
+	-- ANNOUNCEMENT of version 4.0 of the package --
+	Added the missing file hm--date.el to the package.
+	Changed the line ` (let ((config-file (format "/tmp/xmosaic.%d"'
+	to `(let ((config-file (format "/tmp/Mosaic.%d"' in the file
+	html-mode.el for the new Mosaic.
+03.03.94:
+	Deleted the wrong "external viewer stuff" for the include images.
+17.02.94:
+	Fixed a bug in the function `hm--html-insert-changed-comment'.
+	-- ANNOUNCEMENT of version 3.9 of the package --
+14.02.94:
+	Changed the function adapt-emacsp to adapt-emacs19p.
+	-- ANNOUNCEMENT of version 3.8 of the package --
+13.02.94:
+	One can now set the font lock color also in the GNU Emacs 19.
+	Deleted the highlighting stuff.
+01.02.94:
+	Fixed a lot of spelling errors by jml.
+18.01.94:
+	-- ANNOUNCEMENT of version 3.7 of the package --
+11.01.94:
+	Fixed a bug in html-view.el.
+10.01.94:
+	Fixed a bug in the function read-number.
+	The automatic switch between region and noregion commands is now
+	working also in the GNU Emacs 19.
+	Fixed a bug in the region popup menu fo novice users.
+	The font-lock-mode (except of the use of colors) is now working in
+        then GNU Emacs 19.
+	-- ANNOUNCEMENT of version 3.6 of the package --
+09.01.94:
+	Added the highlighting feature of the examples for the GNU Emacs 19.
+07.01.94:
+	The pulldown menu and the popup menus are now working in the 
+	GNU Emacs 19.
+	-- ANNOUNCEMENT of version 3.5 of the package --
+29.12.93:
+	Added a function to insert the image input field.
+	Added a function to insert the form tags to an active region.
+	Changed the function hm--html-select-directory.
+	Added a function to remove numeric names.
+	The variable hm--html-delete-wrong-path-prefix can now be used as 
+	string and as list of strings. Therfore it is now possible to
+	specify more than one path prefixes, which should be removed.
+	Changed the pulldown menu.
+	The package can now be loaded in the GNU Emacs 19. But the menus
+	doesn't work correct and the functions are not tested.
+28.12.93:
+	Added a function to expand templates (Look at templates.el).
+	Whitespaces are now allowed between the closing bracket of the date
+	and the tag </TITLE>, if you want to update the date of the document.
+	Fixed the wrong use of the html command <inc srvurl "|command">.
+	Fixed a little Bug in the function, which includes the tags for a form.
+	The config files are now searched on standard places, if no environment
+	variables are specified.
+	Changed the file html-view.el for the use of the Mosaic-2.1. It uses 
+	now also the variable html-sigusr1-signal-value instead of a hard coded
+	value for the SIGUSR1 value.
+	Added a function to insert the isindex input field in a form tag.
+15.12.93:
+	-- ANNOUNCEMENT of version 3.0 of the package --
+
+11.12.93:
+	New functions, to insert the tags <BR>, <HR> and <P> (<P> without a 
+	leading Blank).
+	Fixed a Bug in the function hm--html-add-description-list-to-region
+	(<DT> instead of </DT>).
+	Added the function hm--html-add-normal-link-to-region to fix the 
+	problem with inactivating the region during the link generation.
+	Added functions to insert direct links to wais server 
+	(HREF="wais://...).
+	Changed the wrong functionnamess html-add-definion-to-region and 
+	html-add-definion in the menus to hm--html-add-definion-to-region 
+	and hm--html-add-definion (the old symbols were void).
+	Added function to insert middle aligned inline images.
+	Added the 'ALT'- attribute to the 'add-image'- functions.
+	Changed the submenu "Inligned images".
+	Added support for the server side include directives.
+	Added functions to insert "created" and "changed" comments.
+	Added function to update the date in the title.
+	Added support for forms.
+27.10.93:
+	Setting of hm--html-font-lock-color in one of the files
+	.hm--html-configuration.el or hm--html-configuration.el to determine
+	the color of the html-tags works now correct.
+24.10.93: 
+	-- ANNOUNCEMENT of version 2.0 of the package --
+	The file hm--date.el is now also in this package.
+	Deleted the numeric anchor name stuff altogether. Therefore the
+        package can now use the version 2.1 of Marc Andreessens html-mode.el
+	instead of the version 2.0.
+	Added some keytable entrys.
+	Added the minor mode html-region-mode, which is active, if a region
+	is active. The minor-mode has its own keytable. That is why it is now
+	possible to use the same key sequences with different two functions,
+	one for adding something to an active region and one for adding some-
+	thing without a region.
+	All keys, without the keys which are defined by Marc Andreessen in
+	his file html-mode.el, are now defined in the general configuration
+	file hm--html-configuration.el.
+25.09.93:
+	Fixed the wrong string "adress".
+	Added functions and menu items to insert html, head, and body elements
+	and to insert a complete html frame with the above elements, the title
+	the header and the signature.
+	The functions, which adds the header and the title at the same time
+	are now only using the header size 1.
+	Added functions for inserting underline and definition styles.
+	Changed the menu "Formated" according to the HTML quick reference
+	from Michael Grobe.
+	Changed the menu item name "Fixed" to "Typewriter".
+	Added functions to insert directory lists.
+	Changed the names of menu items in the submenu "Structure" according
+	to the HTML quick reference from Michael Grobe.
+23.09.93:
+	Changed the functions to add the signature and the title.
+	This functions uses now the new tags <html>, </html>,
+	<head>, </body> and <isindex> to places the signature and
+	the title in a html-file.
+	Fixed also some minor bugs;
+
+
+Local Variables:
+mode: text
+minor-mode: auto-fill-mode
+fill-prefix: "	"
+End:
+This README file describes the emacs lisp package hm--html-menus-5.8.
+
+The package provides functions and various popup and pulldown menus
+for a html mode called hm--html-mode, a mode for writing html pages.
+It provides also a minor mode (hm--html-minor-mode), which can be used
+together with another html major mode, like the psgml-html mode in the
+XEmacs 19.15.
+
+It has an interface to view the html documents in a W3 browser with
+Netscape, the w3-package from William M. Perry and Mosaic with the
+file html-view.el from Ron Tapia.  It provides also a drag and drop
+interface, which makes it very easy to insert links or images, by just
+clicking on them.
+
+Look at the file NEWS, to see what is new in this release. Some 
+of the major changes are also listed in the ANNOUNCEMENT file.
+
+You should (but don't need) also get the w3 package from:
+
+ cs.indiana.edu:/pub/elisp/w3/w3.tar.z
+
+which provides an world wide web browser mode for the xemacs, emacs
+and epoch.
+
+
+This package is tested with the xemacs 19.15 on Suns with SunOS 5.5
+and on PC's with linux. But it should work also on other (possibly
+only UNIX ?) platforms.
+
+Read the file README-EMACS-19, if you want to use this package with
+GNU Emacs 19. 
+
+Thanks to Richard Stallman, who helped me to port this package to the
+Emacs 19, thanks to John Ladwig, who corrected a lot of the text and
+comments in this package and thanks to Michael D. Harnois, who
+corrected the Texinfo documentation and to all the other people like
+Jerry G. DeLapp, Andreas Ernst, Bob Weiner, Luca Pisati, Guylaine
+Prat, Gary D. Foster, Martin Buchholz, Ola Stromfors, Berthold
+Crysmann, Noriaki Seki, Valeriy E. Ushakov, D-P Deng, Rick
+Braumoeller, Sean Dowd and so on, who provided code, ideas, bug fixes
+or bug reports for this package.
+
+
+The package consists of the following files:
+
+README				: this file;
+README-EMACS-19			: only for the GNU Emacs 19 user;
+ANNOUNCEMENT			: Text of the announcement of this package;
+LSM				: Entry for the Linux Software Map;
+NEWS				: Change logfile;
+adapt.el			: provides functions to use this package 
+				  with the GNU Emacs 19
+hm--html.el			: provides functions to write html pages;
+				  in this file are all commands defined,
+				  which inserts html elements and entities;
+hm--html-indentation.el		: provides the indentation stuff;
+hm--html-keys.el		: provides the keybindings;
+hm--html-menu.el		: provides the menus;
+hm--html-mode.el		: provides the functions for the definition
+				  of the hm--html-mode; this is now the
+				  main file of the package;
+hm--html-not-standard.el	: provides functions to insert some
+				  non standard html elements;
+				  this file is not evaluated by default;
+hm--html-configuration.el	: configuration file for the html mode;
+				  choose this as system configuration file;
+hm--html-drag-and-drop.el	: defines the HTML- specific functions
+				  for the drag and drop interface;
+hm--date.el			: defines the function hm--date, which 
+				  returns the date in the format 
+				  "day-month-year" like "30-Jun-1993".
+html-view.el			: Ron Tapia's html-view.el to view html-pages
+				  in the Xmosaic; it is patched for the use
+				  with the xemacs;
+internal-drag-and-drop.el	: provides the general (html-mode 
+				  independend functions) of the drag and
+				  drop interface;
+templates.doc			: describes the syntax of the templates 
+				  provided in the file tmpl-minor-mode.el
+tmpl-minor-mode.el		: provides functions for the tmpl-minor-mode;
+				  with this mode you can expand templates,
+				  which are described in the file
+				  templates-syntax.doc (look at the files
+				  command-description.html.tmpl and
+				  frame.html.tmpl for examples);
+				  templates can be expanded automatically, if
+				  you include a file with templates via the
+				  html pulldown menu item "Templates ..."
+				  or with the item "Templates (fixed dirs)...";
+command-description.html.tmpl	: Templatefile for the use with the
+				  tmpl-minor-mode;
+frame.html.tmpl			: Templatefile, provides a simple frame;
+drop				: xbm file with the drag and drop mouse pointer
+dropmsk				: xbm file with mask for the d&d mouse pointer
+doc/hm--html-mode.texinfo	: Package documentation in the Texinfo format;
+doc/umlaute.texinfo		: Texinfo include file for german vowel 
+				  mutation (deutsche Umlaute);
+
+
+
+
+INSTALLATION:
+=============
+
+Note: In this version the setting of the environment variables 
+HTML_CONFIG_FILE and HTML_USER_CONFIG_FILE are no longer necessary,
+if you put the user configuration file in the home directory and
+the system configuration file in one of the load path directories
+of your XEmacs or Emacs 19.
+
+1. 	Put all the *.el files in one of your xemacs (or emacs) lisp load
+        directories (i.e. lisp/packages).
+
+2.	For XEmacs only: Put the files drop and dropmask in the
+	directory specified by the lisp variable `idd-data-directory'.
+	By default this directory is <prefix>/lib/xemacs-<version>/etc/idd.
+	(eg: if you've installed the Xemacs 19.15 in /usr/local, it is
+	/usr/local/xemacs/lib/xemacs-19.15/etc/idd).
+	If you'd like to put the files in another directory, then you must
+	set the variable `idd-data-directory' to this directory (eg: 
+	(setq idd-data-directory "/usr/local/data")
+
+3.	Put the following in your .emacs (or default.el or site-init.el):
+
+	(autoload 'hm--html-mode "hm--html-mode" "HTML major mode." t)
+	(autoload 'hm--html-minor-mode "hm--html-mode" "HTML minor mode." t)
+	(or (assoc "\\.html$" auto-mode-alist)
+            (setq auto-mode-alist (cons '("\\.html$" . hm--html-mode) 
+				        auto-mode-alist)))
+
+	(autoload 'tmpl-expand-templates-in-buffer "tmpl-minor-mode"
+	  "Expand all templates in the current buffer." t)
+
+        (autoload 'html-view-start-mosaic "html-view" "Start Xmosaic." t)
+        (autoload 'html-view-view-buffer 
+	  "html-view"
+	  "View the current buffer in Xmosaic."
+	  t)
+        (autoload 'html-view-view-file 
+	  "html-view"
+	  "View a file in Xmosaic."
+	  t)
+        (autoload 'html-view-goto-url
+	  "html-view"
+	  "Goto url in Xmosaic."
+	  t)
+        (autoload 'html-view-get-display
+	  "html-view"
+	  "Get the display for Xmosaic (i.e. hostxy:0.0)."
+	  t)
+        (autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
+	(autoload 'w3 "w3" "WWW Browser" t)
+	(autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
+	(autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
+	(autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
+
+	The above lines assume that you have not installed already another
+	html mode. If this isn't true, then you should use the following
+
+	(setq auto-mode-alist (cons '("\\.html$" . hm--html-mode) 
+				        auto-mode-alist))
+
+	instead of
+
+	(or (assoc "\\.html$" auto-mode-alist)
+            (setq auto-mode-alist (cons '("\\.html$" . hm--html-mode) 
+				        auto-mode-alist)))
+
+	It could also be, that you've already the autoload lines for
+        the w3 package in your emacs.
+
+	If you want to use this the hm--html-minor-mode together
+	with the psgml-html modes, then you should add the following
+	line (works only in XEmacs version >= 19.15 and != 20.0)
+	(add-hook 'html-mode-hook 'hm--html-minor-mode)
+
+4.	Set (if you want) the environment variable HTML_CONFIG_FILE 
+	to the html system configuration file i.e.:	
+	setenv HTML_CONFIG_FILE /usr/xemacs/lisp/hm--html-configuration.el
+
+5.	Set (if you want) the environment variable HTML_USER_CONFIG_FILE to 
+	the html user configuration file i.e.:
+	setenv HTML_USER_CONFIG_FILE ~/.hm--html-configuration.el
+	And put the file .hm--html-configuration.el in your Home directory.
+	An example for this user specific file is given below.
+
+6.	Check the files hm--html-configuration.el and 
+	.hm--html-configuration.el whether all variables are set suitable for 
+	you and your site or not. You can make changes in both of these files
+	and you can also create a site specific configuration file, called
+	hm--html-site-config-file.el and specified by the lisp variable
+	hm--html-site-config-file or the environment variable
+        HTML_SITE_CONFIG_FILE, and put your site specific settings in this
+	file. A site specific configuration file is useful, if you're a
+	system administrator and want to make site specific settings
+	without changing a file of this package or use the normal emacs
+        configuration files.
+	Note that .hm--html-configuration.el precedes the settings in
+	hm--html-site-config-file.el, which precedes the settings in
+	hm--html-configuration.el (user specific configuration overwrites
+	site specific configuration and site specific configuration 
+	overwrites the settings made by the package).
+
+	Look at first at the following variables:
+
+		hm--html-signaturefile
+		hm--html-username
+		hm--html-template-dir
+		hm--html-favorite-http-server-host-name
+		html-document-previewer
+		html-view-mosaic-command
+		w3-default-homepage
+
+7.	If you want to use templatefiles, you should put these files
+	in the directory to which `hm--html-template-dir' points.
+	You can use the file command-description.html.tmpl as
+	an example.
+
+8.	If you don't want to use the feature of adding html comments
+	about the creation date and author and with a change log, then
+	you should set the following three variables to nil:
+ 		 hm--html-automatic-changed-comment
+		 hm--html-automatic-created-comment
+
+9.      If you don't want to set a date in the title line, than you should
+        set the following to nil:
+		 hm--html-automatic-new-date
+
+The following is an example for a user specific configuration file
+called .hm--html-configuration.el. You should put such a file in your
+home directory and put all the variable settings in it, which are user
+specific. 
+
+---- BEGIN of .hm--html-configuration.el ----
+;;; Private html configuration file
+
+;; Signature file
+(setq hm--html-signature-file 
+      "http://www.tnt.uni-hannover.de:80/data/info/www/tnt/org/tnt/whois/wissmit/muenkel.html")
+
+;; Username (Only necessary if it differs from the passwd entry)
+(setq hm--html-username "Heiko M�nkel")
+
+
+;; X Window System display for the html-view
+(setq html-view-display "daedalus:0.0")
+
+
+;; Use the expert menus?
+(setq hm--html-expert t)
+
+
+;; Delete the automounter path prefix /tmp_mount
+(setq hm--html-delete-wrong-path-prefix "/tmp_mount")
+
+
+;;;
+;
+; W3 
+
+;; Default Home Page for w3-mode in lemacs or GNU Emacs
+(setq w3-default-homepage "file:/home/muenkel/data/docs/www/home.html")
+---- END of .hm--html-configuration.el ----
+
+
+Every hm--*.el file has a description and installation part. Look at first
+at these parts, if you have any questions.
+
+Look at first at the configuration files, if you have problems with
+this package!
+
+You should also look at the Texinfo documentation of this package.
+
+There is a html documentation about the package. You can find it on:
+http://www.tnt.uni-hannover.de/~muenkel/software/own/hm--html-menus/overview.html
+
+
+Please send any bug reports, fixes or comments to 
+		muenkel@daedalus.tnt.uni-hannover.de
+
+
+I hope these files will be useful,
+
+Heiko
+
+
+;;; $Id$
+;;;
+;;; Copyright (C) 1993 - 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:
+;;;
+;;;	General functions to port XEmacs functions to GNU Emacs 19.
+;;; 
+;;; Installation: 
+;;;   
+;;;	Put this file in one of your lisp load directories.
+;;;
+
+
+(defun adapt-xemacsp ()
+  "Returns non nil if the editor is the XEmacs."
+  (or (string-match "Lucid" emacs-version)
+      (string-match "XEmacs" emacs-version)))
+
+
+(defun adapt-lemacsp ()
+  "Returns non nil if the editor is the XEmacs.
+Old version, use `adapt-xemacsp' instead of this."
+  (or (string-match "Lucid" emacs-version)
+      (string-match "XEmacs" emacs-version)))
+
+
+(defun adapt-emacs19p ()
+  "Returns non nil if the editor is the GNU Emacs 19."
+  (and 
+   (not (adapt-xemacsp))
+   (string= (substring emacs-version 0 2) "19")))
+
+;;; Functions, which don't exist in both emacs versions
+
+(defun adapt-region-active-p ()
+  "Returns t, if a region is active."
+  (if (adapt-xemacsp)
+      (mark)
+    mark-active))
+
+(if (not (fboundp 'file-remote-p))
+    (defun file-remote-p (file)
+      "Test wether file resides on the local system.
+The special value 'unknown is returned if no remote file acess package
+has been loaded."
+      (if (not (featurep 'ange-ftp))
+	  (require 'ange-ftp))
+      (if (not (fboundp 'ange-ftp-ftp-p))
+	  nil ; better than nothing, if no ange-ftp-ftp-p exists
+	(ange-ftp-ftp-path file))))
+
+
+;;; Functions, which don't exist in the Emacs 19
+(if (adapt-emacs19p)
+    (progn
+      (load-library "lucid")
+
+      (load-library "lmenu")
+
+      (if window-system
+	  (require 'font-lock)
+	)
+
+      (make-face 'font-lock-comment-face)
+
+      (defun read-number (prompt &optional integers-only)
+	"Reads a number from the minibuffer."
+	(interactive)
+	(let ((error t)
+	      (number nil))
+	  (if integers-only
+	      (while error
+		(let ((input-string (read-string prompt)))
+		  (setq number (if (string= "" input-string)
+				   nil
+				 (read input-string)))
+		  (if (integerp number)
+		      (setq error nil))))
+	    (while error
+	      (let ((input-string (read-string prompt)))
+		(setq number (if (string= "" input-string)
+				 nil
+			       (read input-string)))		
+		(if (numberp number)
+		    (setq error nil)))))
+	  number))
+
+      (defvar original-read-string-function nil
+	"Points to the original Emacs 19 function read-string.")
+
+      (if (not original-read-string-function)
+	  (fset 'original-read-string-function
+		(symbol-function 'read-string)))
+
+      (defun read-string (prompt &optional initial-contents history)
+	"Return a string from the minibuffer, prompting with string PROMPT.
+If non-nil, optional second arg INITIAL-CONTENTS is a string to insert
+in the minibuffer before reading.
+Third arg HISTORY, if non-nil, specifies a history list."
+	(read-from-minibuffer prompt initial-contents nil nil history))
+
+      (defun make-extent (beg end &optional buffer)
+	(make-overlay beg end buffer))
+
+      (defun set-extent-property (extent prop value)
+	(if (eq prop 'duplicable)
+	    (cond ((and value (not (overlay-get extent prop)))
+		   ;; If becoming duplicable, 
+		   ;; copy all overlay props to text props.
+		   (add-text-properties (overlay-start extent)
+					(overlay-end extent)
+					(overlay-properties extent)
+					(overlay-buffer extent)))
+		  ;; If becoming no longer duplicable, remove these text props.
+		  ((and (not value) (overlay-get extent prop))
+		   (remove-text-properties (overlay-start extent)
+					   (overlay-end extent)
+					   (overlay-properties extent)
+					   (overlay-buffer extent))))
+	  ;; If extent is already duplicable, put this property
+	  ;; on the text as well as on the overlay.
+	  (if (overlay-get extent 'duplicable)
+	      (put-text-property  (overlay-start extent)
+				  (overlay-end extent)
+				  prop value (overlay-buffer extent))))
+	(overlay-put extent prop value))
+      
+      (defun set-extent-face (extent face)
+	(set-extent-property extent 'face face))
+      
+      (defun delete-extent (extent)
+	(set-extent-property extent 'duplicable nil)
+	(delete-overlay extent))
+      
+;      (defun make-extent (from to &optional buffer)
+;	"Make extent for range [FROM, TO) in BUFFER -- BUFFER defaults to 
+;current buffer.  Insertions at point TO will be outside of the extent;
+;insertions at FROM will be inside the extent (and the extent will grow.).
+;This is only a simple emulation of the Lucid Emacs extents !"
+;	(list 'extent from to buffer))
+;
+;      (defun set-extent-face (extent face)
+;	"Make the given EXTENT have the graphic attributes specified by FACE.
+;This is only a simple emulation of the Lucid Emacs extents !"
+;	(put-text-property (car (cdr extent))
+;			   (car (cdr (cdr extent)))
+;			   'face
+;			   face
+;			   (car (cdr (cdr (cdr extent))))))
+;
+;      (defun delete-extent (extent_obj)
+;	"Remove EXTENT from its buffer; this does not modify the buffer's text,
+;only its display properties.
+;This is only a simple emulation of the Lucid Emacs extents !"
+;	(remove-text-properties (car (cdr extent_obj))
+;				(car (cdr (cdr extent_obj)))
+;				(list 'face nil)
+;				(car (cdr (cdr (cdr extent_obj))))))
+;      
+
+      (if (not (fboundp 'emacs-pid))
+	  (defun emacs-pid ()
+	    "Return the process ID of Emacs, as an integer.
+This is a dummy function for old versions of the Emacs 19.
+You should install a new version, which has `emacs-pid' implemented."
+	    0)
+	)
+
+      (if (not (fboundp 'facep))
+	  (defun facep (object)
+	    "Whether OBJECT is a FACE.
+It's only a dummy function in the Emacs 19, which returns always nil."
+	    nil))
+      
+;      (if (not (fboundp 'set-extent-property))
+;	  (defun set-extent-property (extent  property value)
+;	    "Change a property of an extent.
+;Only a dummy version in Emacs 19."))
+
+      (if (not (fboundp 'region-active-p))
+	  (defun region-active-p ()
+	    "Non-nil iff the region is active.
+If `zmacs-regions' is true, this is equivalent to `region-exists-p'.
+Otherwise, this function always returns false."
+	    (adapt-region-active-p)))
+
+      (if (not (fboundp 'next-command-event))
+	  (defun next-command-event (&optional event prompt)
+	    "Unlike the XEmacs version it reads the next event, if
+it is a command event or not.
+
+Return the next available \"user\" event.
+ Pass this object to `dispatch-event' to handle it.
+
+ If EVENT is non-nil, it should be an event object and will be filled in
+ and returned; otherwise a new event object will be created and returned.
+ If PROMPT is non-nil, it should be a string and will be displayed in the
+ echo area while this function is waiting for an event.
+
+ The event returned will be a keyboard, mouse press, or mouse release event.
+ If there are non-command events available (mouse motion, sub-process output,
+ etc) then these will be executed (with `dispatch-event') and discarded.  This
+ function is provided as a convenience; it is equivalent to the lisp code
+
+	 (while (progn
+		  (next-event event prompt)
+		  (not (or (key-press-event-p event)
+			   (button-press-event-p event)
+			   (button-release-event-p event)
+			   (misc-user-event-p event))))
+	    (dispatch-event event))"
+	    (message prompt)
+	    (or event
+		(read-event))))
+
+      (if (not (fboundp 'button-event-p))
+	  (defun button-event-p (obj)
+	    "True if OBJ is a button-press or button-release event object."
+	    (and (eventp obj)
+		 (or (eq 'mouse-1 (event-basic-type obj))
+		     (eq 'mouse-2 (event-basic-type obj))
+		     (eq 'mouse-3 (event-basic-type obj))
+		     (eq 'down-mouse-1 (event-basic-type obj))
+		     (eq 'down-mouse-2 (event-basic-type obj))
+		     (eq 'down-mouse-3 (event-basic-type obj))
+		     (eq 'up-mouse-1 (event-basic-type obj))
+		     (eq 'up-mouse-2 (event-basic-type obj))
+		     (eq 'up-mouse-3 (event-basic-type obj))
+		     (eq 'drag-mouse-1 (event-basic-type obj))
+		     (eq 'drag-mouse-2 (event-basic-type obj))
+		     (eq 'drag-mouse-3 (event-basic-type obj))
+		     ))))
+
+      (if (not (fboundp 'button-drag-event-p))
+	  (defun button-drag-event-p (obj)
+	    "True if OBJ is a mouse-button-drag event object."
+	    (and (button-event-p obj)
+		 (member 'drag (event-modifiers obj)))))
+
+      (if (not (fboundp 'button-press-event-p))
+	  (defun button-press-event-p (obj)
+	    "True if OBJ is a mouse-button-press event object."
+	    (and (button-event-p obj)
+		 (member 'down (event-modifiers obj)))))
+
+      (if (not (fboundp 'button-release-event-p))
+	  (defun button-release-event-p (obj)
+	    "True if OBJ is a mouse-button-release event object."
+	    (and (button-event-p obj)
+		 (not (button-press-event-p obj)))))
+
+      (if (not (fboundp 'button-click-event-p))
+	  (defun button-click-event-p (obj)
+	    "True if OBJ is a click event obkect."
+	    ;; only for the Emacs 19
+	    ;; doesn't exist and can't (?) exist in the XEmacs
+	    (and (button-event-p obj)
+		 (member 'click (event-modifiers obj)))))
+      
+      (if (not (fboundp 'mouse-event-p))
+	  (defun mouse-event-p (obj)
+	    "True if OBJ is a button-press, button-release, or mouse-motion event object."
+	    (or (button-event-p obj)
+		(member 'drag (event-modifiers obj)))))
+
+      (if (not (fboundp 'event-window))
+	  (defun event-window (event)
+	    "Return the window of the given mouse EVENT.
+This may be nil if the event occurred in the border or over a toolbar.
+The modeline is considered to be in the window it represents.
+
+If the EVENT is a mouse drag event, then the end event window is returned."
+	    (if (button-drag-event-p event)
+		(and (listp event)
+		     (third event)
+		     (listp (third event))
+		     (windowp (car (third event)))
+		     (car (third event)))
+	      (and (eventp event)
+		   (listp event)
+		   (second event)
+		   (listp (second event))
+		   (windowp (car (second event)))
+		   (car (second event))))))
+
+;		   (listp (cdr event))
+;		   (listp (car (cdr event)))
+;		   (windowp (car (car (cdr event))))
+;		   (car (car (cdr event))))))
+
+      (if (not (fboundp 'event-buffer))
+	  (defun event-buffer (event)
+	    "Given a mouse-motion, button-press, or button-release event,
+return the buffer on which that event occurred.  This will be nil for 
+non-mouse events.  If event-over-text-area-p is nil, this will also be nil."
+	    (if (button-event-p event)
+		(window-buffer (event-window event)))))
+
+
+      (if (not (fboundp 'event-closest-point))
+	  (defun event-closest-point (event)
+	    "Return the character position of the given mouse EVENT.
+If the EVENT did not occur over a window or over text, return the
+closest point to the location of the EVENT.  If the Y pixel position
+overlaps a window and the X pixel position is to the left of that
+window, the closest point is the beginning of the line containing the
+Y position.  If the Y pixel position overlaps a window and the X pixel
+position is to the right of that window, the closest point is the end
+of the line containing the Y position.  If the Y pixel position is
+above a window, return 0.  If it is below a window, return the value
+of (window-end).
+
+If the EVENT is a drag event, the event-end will be used."
+	    (if (button-drag-event-p event)
+		(posn-point (event-end event))
+	      (posn-point (event-start event)))))
+
+      (if (not (fboundp 'add-minor-mode))
+	  (defun add-minor-mode (toggle 
+				 name 
+				 &optional 
+				 keymap 
+				 after 
+				 toggle-fun)
+	    "Add a minor mode to `minor-mode-alist' and `minor-mode-map-alist'.
+TOGGLE is a symbol whose value as a variable specifies whether the
+minor mode is active.  NAME is the name that should appear in the
+modeline (it should be a string beginning with a space).  KEYMAP is a
+keymap to make active when the minor mode is active.  AFTER is the
+toggling symbol used for another minor mode.  If AFTER is non-nil,
+then it is used to position the new mode in the minor-mode alists.
+
+TOGGLE-FUN is only a dummy variable in the Emacs 19. In the XEmacs
+it has the following description:
+TOGGLE-FUN specifies an interactive function that is called to toggle
+the mode on and off; this affects what happens when button2 is pressed
+on the mode, and when button3 is pressed somewhere in the list of
+modes.  If TOGGLE-FUN is nil and TOGGLE names an interactive function,
+TOGGLE is used as the toggle function.
+
+Example:  (add-minor-mode 'view-minor-mode \" View\" view-mode-map)
+
+WARNING: THIS FUNCTION ISN'T READ YET."
+	    (if after
+		(add-minor-mode-1 toggle name keymap after)
+	      (if (not (assq toggle minor-mode-alist))
+		  (progn
+		    (setq minor-mode-alist
+			  (cons (list toggle name)
+				minor-mode-alist))))
+	      (if (not (assq toggle minor-mode-map-alist))
+		  (progn
+		    (setq minor-mode-map-alist
+			  (cons (cons toggle keymap)
+				minor-mode-map-alist))))
+	      ))
+	)
+
+      (if (not (fboundp 'redraw-modeline))
+	  (defalias 'redraw-modeline 'force-mode-line-update))
+
+      (if (not (fboundp 'mouse-track))
+	  (defalias 'mouse-track 'mouse-drag-region))
+
+      (if (not (fboundp 'windows-of-buffer))
+	  (defun windows-of-buffer (&optional buffer)
+	    "Returns a list of windows that have BUFFER in them.
+If BUFFER is not specified, the current buffer will be used."
+	    (get-buffer-window-list buffer)))
+
+      (if (not (boundp 'help-selects-help-window))
+	  (defvar help-selects-help-window t
+	    "*If nil, use the \"old Emacs\" behavior for Help buffers.
+This just displays the buffer in another window, rather than selecting
+the window."))
+
+      (if (not (fboundp 'with-displaying-help-buffer))
+	  (defun with-displaying-help-buffer (thunk)
+	    (let ((winconfig (current-window-configuration))
+		  (was-one-window (one-window-p))
+		  (help-not-visible
+		   (not (and (windows-of-buffer "*Help*") ;shortcut
+			     (member (selected-frame)
+				     (mapcar 'window-frame
+					     (windows-of-buffer "*Help*")))))))
+	      (prog1 (with-output-to-temp-buffer "*Help*"
+		       (prog1 (funcall thunk)
+			 (save-excursion
+			   (set-buffer standard-output)
+			   (help-mode))))
+		(let ((helpwin (get-buffer-window "*Help*")))
+		  (if helpwin
+		      (progn
+			(save-excursion
+			  (set-buffer (window-buffer helpwin))
+			  ;;If the *Help* buffer is already displayed on this
+			  ;; frame, don't override the previous configuration
+;			  (if help-not-visible
+;			      (set-frame-property
+;			       (selected-frame)
+;			       'help-window-config winconfig)))
+			  )
+			(if help-selects-help-window
+			    (select-window helpwin))
+			(cond ((eq helpwin (selected-window))
+			       (message
+				(substitute-command-keys
+				 "\\[scroll-up] to scroll the help."
+				 )))
+			      (was-one-window
+			       (message
+				(substitute-command-keys
+				 "\\[scroll-other-window] to scroll the help."
+				 )))
+			      (t
+			       (message
+				(substitute-command-keys
+				 "\\[scroll-other-window] to scroll the help."
+				 )))))))))))
+
+      (if (not (fboundp 'set-extent-mouse-face))
+	  (defun set-extent-mouse-face (extent face)
+	    "Set the face used to highlight EXTENT when the mouse passes over it.
+FACE can also be a list of faces, and all faces listed will apply,
+with faces earlier in the list taking priority over those later in the
+list.
+
+In the Emacs 19, the argument FACE could not be a list of faces."
+	    (put-text-property (overlay-start extent)
+			       (overlay-end extent)
+			       'mouse-face face)
+	    ))
+
+
+      (if (not (fboundp 'read-directory-name))
+	  (defalias 'read-directory-name 'read-file-name))
+
+      (if (not (fboundp 'define-obsolete-function-alias))
+	  (defsubst define-obsolete-function-alias (oldfun newfun)
+	    "Define OLDFUN as an obsolete alias for function NEWFUN.
+This makes calling OLDFUN equivalent to calling NEWFUN and marks OLDFUN
+as obsolete."
+	    (define-function oldfun newfun)
+	    (make-obsolete oldfun newfun)))
+
+      (if (not (fboundp 'define-obsolete-variable-alias))
+	  (defsubst define-obsolete-variable-alias (oldvar newvar)
+	    "Define OLDVAR as an obsolete alias for varction NEWVAR.
+This makes referencing or setting OLDVAR equivalent to referencing or
+setting NEWVAR and marks OLDVAR as obsolete.
+
+It is not full implemented in the Emacs 19, because of the lack of
+the function defvaralias.y"
+	    ;;(defvaralias oldvar newvar) <- doesn't exist in the Emacs 19.34
+	    (make-obsolete-variable oldvar newvar)))
+
+      (if (not (fboundp 'defgroup))
+	  (defmacro defgroup (symbol members doc &rest args)
+	    "Dummy definition. Used, if the custom package isn't installed.
+The dummy definition makes nothing, it returns only nil."
+	    nil))
+
+      (if (not (fboundp 'defcustom))
+	  (defmacro defcustom (symbol value doc &rest args)
+	    "Simulates the defcustom definition from the custom package.
+It calles a `defvar' with the arguments SYMBOL, VALUE and DOC."
+	    `(defvar ,symbol ,value ,doc)))
+
+	
+      ))
+
+
+(provide 'adapt)

File command-description.html.tmpl

Binary file added.

File frame.html.tmpl

Binary file added.
+;;; $Id$
+;;;
+;;; Copyright (C) 1993, 1996  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 function hm--date, which returns the date in the
+;;;	format "day-month-year" like "30-Jun-1993".
+;;; 
+;;; Installation: 
+;;;   
+;;;	Put this file in one of your lisp load path directories.
+;;;	The files which uses this function must only have
+;;;	following line:
+;;;		(require 'hm--date)
+;;;
+
+
+(provide 'hm--date)
+
+
+
+(defun hm--date ()
+  "Returns the current date in the format \"day-month-year\"."
+  (let* ((time-string (current-time-string))
+	(day (substring time-string 8 10))
+	(month (substring time-string 4 7))
+	(year (substring time-string 20 24)))
+    (concat day "-" month "-" year)))

File hm--html-configuration.el

+;;; hm--html-configuration.el - Configurationfile for the html-mode
+;;;
+;;; $Id$
+;;;
+;;; Copyright (C) 1993 - 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:
+;;;
+;;;	This file is for the system wide configuration of the html mode.
+;;;	User specific configuration should be done in the file
+;;;	~/.hm--html-configuration.el, which precedes the settings in
+;;;	this file.
+;;;	All settings in this file are done with defvar's, therefore
+;;;	you could overwrite them also with the function setq in your
+;;;	.emacs or default.el and so on.
+;;; 
+;;; Installation: 
+;;;   
+;;;	Put this file in one of your lisp load path directories or
+;;;	set the environment variable HTML_CONFIG_FILE to this file.
+;;;	For example: 
+;;;       setenv HTML_CONFIG_FILE "~/data/hm--htm-environment.el"
+;;;	  if you have put this file in the directory "~/data/"
+;;;
+
+;(require 'adapt)
+
+(defgroup hm--html nil
+  "A package for writing HTML pages.
+It provides a major mode and a minor mode. The minor mode can be
+used together with the psgml html-mode."
+  :group 'hypermedia)
+
+(defgroup hm--html-files nil
+  "hm--html configuration files."
+  :group 'hm--html)
+
+(defgroup hm--html-document-information nil
+  "Variables relating to the insertation of document information.
+This contains the user name of the document author, his signature,
+the creation and change dates, the HTML doctype and the meta element."
+  :group 'hm--html)
+
+(defgroup hm--html-menus nil
+  "Variables relating to the pulldown and popup menus."
+  :group 'hm--html)
+
+(defgroup hm--html-links nil
+  "Variables relating to the insertation of links."
+  :group 'hm--html)
+
+(defgroup hm--html-templates nil
+  "Variables relating to inserting HTML templates."
+  :group 'hm--html)
+
+(defgroup hm--html-keys nil
+  "Variables relating to the key and mouse bindings and drag and drop."
+  :group 'hm--html)
+
+(defgroup hm--html-display nil
+  "Variables relating to the display of the HTML sources and the previewing."
+  :group 'hm--html)
+
+(defgroup hm--html-hooks nil
+  "Hooks relating to the hm--html modes."
+  :group 'hm--html)
+
+(defgroup hm--html-indentation nil
+  "Variables relating to the indentation in the `hm--html-mode'."
+  :group 'hm--html)
+
+
+;;; The User config file (an proposal of Manoj Srivastava)
+(defcustom hm--html-user-config-file nil
+  "*The location of the users config file.
+This variable will only be used, if no environment variable
+\"HTML_USER_CONFIG_FILE\" is set. 
+Example value: \"~/.hm--html-configuration.el\".
+
+If this is set to nil and no \"HTML_USER_CONFIG_FILE\" is set,
+then the file ~/.hm--html-configuration.el will be used. In this case
+also the variable `init-file-user' will be respected."
+  :group 'hm--html-files
+  :type '(choice (const :tag "~/.hm--html-configuration.el" :value nil)
+		 file))
+
+;;; The site specific config file
+(defcustom hm--html-site-config-file nil
+  "*The location of a site specific config file.
+This variable will only be used, if no environment variable
+\"HTML_SITE_CONFIG_FILE\" is set."
+  :group 'hm--html-files
+  :type '(choice (const :tag "No Site Specific Configuration" :value nil)
+		 file))
+
+;;; Chose the initial popup menu
+(defcustom hm--html-expert nil
+  "*t    : Use the HTML expert popup menu,
+nil : Use the HTML novice (simple) menu.
+
+NOTE: In the Emacs 19 you should set this variable only before 
+      loading the mode."
+  :group 'hm--html-menus
+  :type '(choice (const :tag "Use Expert Popup Menu" :value t)
+		 (const :tag "Use Novice Popup Menu" :value nil)))
+
+;;; Your Signature
+
+(defcustom hm--html-signature-file nil 
+  "*Your Signature file.
+For example: \"http://www.tnt.uni-hannover.de:80/data/info/www/tnt/info/tnt/whois/muenkel.html\"."
+  :group 'hm--html-document-information
+  :type '(choice (const :tag "No Signature file" :value nil)
+		 string))
+
+
+(defcustom hm--html-username nil
+  "*Your Name for the signature. For example: \"Heiko M�nkel\"."
+  :group 'hm--html-document-information
+  :type '(choice (const :tag "Use Value Of `(user-full-name)'" :value nil)
+		 string))
+
+
+;;; HTML Doctype
+(defcustom hm--html-html-doctype-version "-//W3C//DTD HTML 3.2 Final//EN"
+  "*The HTML version. This is used in the doctype element."
+  :group 'hm--html-document-information
+  :type 'string)
+
+
+;;; Your favorite server (eg: the name of the host of your own http server)
+;;; This is used in some other variables
+
+(defcustom hm--html-favorite-http-server-host-name "www.tnt.uni-hannover.de"
+  "*The name of your favorite http server host. It must be specified !"
+  :group 'hm--html-links
+  :type 'string)
+
+
+;;; For links to Info Gateways
+
+(defcustom hm--html-info-hostname:port-alist
+  '(("www.tnt.uni-hannover.de:8005"))
+  "*Alist with hostnames and ports for the Info gateway."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-info-hostname:port-default "www.tnt.uni-hannover.de:8005"
+  "*Default hostname with port for the Info gateway."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-info-path-alist '((1 . "/appl/lemacs/Global/emacs/info")
+				      (2 . "/appl/emacs/info")
+				      (3 . "/appl/gnu/Global/info")
+				      (4 . "/appl/emacs-19/Global/info")
+				      (5 . "/"))
+  "*Alist with directories for the Info gateway."
+  :group 'hm--html-links
+  :type '(repeat cons))
+
+
+;;; For links to WAIS Gateways
+
+(defcustom hm--html-wais-hostname:port-alist '(("www.tnt.uni-hannover.de:8001")
+					       ("info.cern.ch:8001"))
+  "*Alist with hostnames and ports for the WAIS gateway."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-wais-hostname:port-default "www.tnt.uni-hannover.de:8001"
+  "*Default hostname with port for the WAIS gateway."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-wais-servername:port-alist 
+  '(("wais.tnt.uni-hannover.de:210")
+    ("daedalus.tnt.uni-hannover.de:21408")
+    ("ikarus.tnt.uni-hannover.de:21401"))
+  "*Alist with servernames and ports for the WAIS gateway."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-wais-servername:port-default "www.tnt.uni-hannover.de:210"
+  "*Default servername with port for the WAIS gateway."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-wais-path-alist nil
+  "*Alist with directories for the wais gateway."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+
+;;; For links to HTML servers
+
+(defcustom hm--html-html-hostname:port-alist '(("www.tnt.uni-hannover.de:80")
+					       ("vxcrna.cern.ch:80")
+					       ("www.ncsa.uiuc.edu:80"))
+  "*Alist with hostnames and ports for the HTML server."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-html-hostname:port-default "www.tnt.uni-hannover.de:80"
+  "*Default hostname with port for the HTML server."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-html-path-alist '((1 . "/data/info/www/tnt/")
+				      (2 . "/data/info/www/")
+				      (3 . "/data/info/")
+				      (4 . "/data/")
+				      (5 . "/appl/")
+				      (6 . "/project/")
+				      (7 . "~/")
+				      (8 . "/"))
+  "*Alist with directories for the HTML server."
+  :group 'hm--html-links
+  :type '(repeat cons))
+
+
+;;; For links to file gateways
+
+(defcustom hm--html-file-path-alist '((1 . "/data/info/www/tnt/")
+				      (2 . "/data/info/www/")
+				      (3 . "/data/info/")
+				      (4 . "/data/")
+				      (5 . "/appl/")
+				      (6 . "/project/")
+				      (7 . "~/")
+				      (8 . "/"))
+  "*Alist with directories for the file gateway."
+  :group 'hm--html-links
+  :type '(repeat cons))
+
+
+;;; For links to ftp servers
+
+(defcustom hm--html-ftp-hostname:port-alist
+  '(("ftp.tnt.uni-hannover.de")
+    ("ftp.rrzn.uni-hannover.de")
+    ("wega.informatik.uni-hannover.de")
+    ("rusmv1.rus.uni-stuttgart.de")
+    ("export.lcs.mit.edu")
+    )
+  "*Alist with hostnames and ports for the ftp server."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-ftp-hostname:port-default "ftp.rrzn.uni-hannover.de"
+  "*Default hostname with port for the ftp server."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-ftp-path-alist '((1 . "/pub")
+				     (2 . "/pub/gnu")
+				     (3 . "/pub/linux")
+				     (4 . "/pub/unix")
+				     (5 . "/incoming")
+				     (6 . "/"))
+  "*Alist with directories for the ftp server."
+  :group 'hm--html-links
+  :type '(repeat cons))
+
+
+;;; For links to gopher servers
+
+(defcustom hm--html-gopher-hostname:port-alist
+  '(("newsserver.rrzn.uni-hannover.de:70")
+    ("solaris.rz.tu-clausthal.de:70")
+    ("veronica.scs.unr.edu:70")
+    ("pinus.slu.se:70")
+    ("sunic.sunet.se:70")
+    )
+  "*Alist with hostnames and ports for the gopher server."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-gopher-hostname:port-default
+  "newsserver.rrzn.uni-hannover.de:70"
+  "*Default hostname with port for the gopher server."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-gopher-doctype-alist '(("/1")
+					("/11")
+					("/00"))
+  "*Alist with doctype strings for the gopher server."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-gopher-doctype-default "/1"
+  "*Default doctype string for the gopher server."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-gopher-anchor-alist
+  '(("veronica")
+    ("Wide%20Area%20Information%20Services%20databases")
+    ("Subject%20Tree"))
+  "*Alist with directories for the gopher server."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+
+;;; For the links to the Program Gateway
+
+(defcustom hm--html-proggate-hostname:port-alist
+  '(("www.tnt.uni-hannover.de:8007")
+    )
+  "*Alist with hostnames and ports for the proggate server."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-proggate-hostname:port-default
+  "www.tnt.uni-hannover.de:8007"
+  "*Default hostname with port for the proggate server."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-proggate-allowed-file "/appl/www/bin/proggate.allowed"
+  "*The filename (with path) of the proggate allowed file."
+  :group 'hm--html-links
+  :type 'file)
+
+
+;;; For links to the Local Program Gatewy
+
+(defcustom hm--html-local-proggate-path-alist '((1 . "/bin/")
+						(2 . "/usr/bin/")
+						(3 . "/usr/local/bin/")
+						(4 . "/appl/util/bin/")
+						(5 . "/appl/gnu/Global/bin/")
+						(6 . "/")
+						(7 . "/appl/")
+						(8 . "~/appl/Global/bin/")
+						(9 . "~/"))
+  "*Alist with directories for the local program gateway."
+  :group 'hm--html-links
+  :type '(repeat cons))
+
+
+;;; For links to the mail gateway
+
+(defcustom hm--html-mail-hostname:port-alist '(("www.tnt.uni-hannover.de:8003")
+					       )
+  "*Alist with hostnames and ports for the mail gateway."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+(defcustom hm--html-mail-hostname:port-default "www.tnt.uni-hannover.de:8003"
+  "*Default hostname with port for the mail gateway."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-mail-path-alist '((1 . "~/data/docs/mail")
+				      (2 . "~/data/docs/news")
+				      (3 . "~/docs/mail")
+				      (4 . "~/docs/news")
+				      (5 . "~/mail")
+				      (6 . "~/news")
+				      (7 . "~/")
+				      (8 . "/data/info/mail")
+				      (9 . "/data/info/news")
+				      (10 . "/"))
+  "*Alist with directories for the mail gateway."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+
+;;; For mailto links
+
+(defcustom hm--html-mailto-alist '(("muenkel@tnt.uni-hannover.de"))
+  "*Alist with mail adresses for the mailto alist.
+The value of `user-mail-address' will also be added by the package to
+this alist."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+
+;;; For the server side include directive
+;;; not sure, if these directives works on any server
+
+(defcustom hm--html-server-side-include-command-alist '(("/bin/date")
+							("/usr/bin/finger")
+							("/bin/df"))
+  "*Alist with commands for the server side include directive.
+These commands needs no parameter."
+  :group 'hm--html-links
+  :type '(repeat string))
+	
+(defcustom hm--html-server-side-include-command-with-parameter-alist
+  '(("/usr/bin/man")
+    ("/usr/bin/finger")
+    ("/usr/bin/ls")
+    ("/bin/cat"))
+  "*Alist with commands for the server side include directive.
+These commands needs parameters."
+  :group 'hm--html-links
+  :type '(repeat string))
+	
+
+;;; Alist with URL'S for FORMS and IMAGE tags
+
+(defcustom hm--html-url-alist 
+  (list
+   '("http://hoohoo.ncsa.uiuc.edu/htbin-post/post-query"
+     POST)
+   '("http://hoohoo.ncsa.uiuc.edu/htbin/query"
+     GET)
+   (list 
+    (concat "http://" 
+	    hm--html-favorite-http-server-host-name
+	    "/")
+    'IMAGE))
+  "*Alist with URL's for FORMS and IMAGE tags. 
+The cdr of each list contains symbols, which specifys the use of the
+URL."
+  :group 'hm--html-links
+  :type '(repeat cons))
+
+
+;;; For the marking of examples in the help buffer
+
+(defcustom hm--html-help-foreground "red"
+  "The foreground color to highlight examples."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-help-background nil
+  "The background color to highlight examples."
+  :group 'hm--html-links
+  :type 'string)
+
+(defcustom hm--html-help-font (face-font 'bold)
+  "The font to highlight examples."
+  :group 'hm--html-links
+  :type 'string)
+
+
+;;; For the Templates
+
+(defcustom hm--html-template-dir "/data/info/www/tnt/guide/templates"
+  "*A directory with templatefiles.
+It is now also possible to use it as a list of directories.
+Look at the variable `tmpl-template-dir-list' for further descriptions."
+  :group 'hm--html-templates
+  :type 'directory)
+
+(if (listp hm--html-template-dir)
+    (unless (file-exists-p (car hm--html-template-dir))
+      ;; Use a system directory, if the above one doesn't exist
+      ;; This may only be useful, in the XEmacs >= 19.12
+      (setq hm--html-template-dir (cons (concat data-directory
+						"../lisp/hm--html-menus/")
+					hm--html-template-dir)))
+  (unless (file-exists-p hm--html-template-dir)
+    ;; Use a system directory, if the above one doesn't exist
+    ;; This may only be useful, in the XEmacs >= 19.12
+    (setq hm--html-template-dir (concat data-directory
+					"../lisp/hm--html-menus/"))))
+
+(defcustom hm--html-frame-template-file (concat data-directory
+					     "../lisp/hm--html-menus/"
+					     "frame.html.tmpl")
+  "File, which is used as template for a html frame."
+  :group 'hm--html-templates
+  :type 'file)
+
+(defcustom hm--html-automatic-expand-templates t
+  "*Automatic expansion of templates. This feature needs the file
+tmpl-minor-mode.el from Heiko Muenkel (muenkel@tnt.uni-hannover.de),
+which is distributed with the package hm--html-menus."
+  :group 'hm--html-templates
+  :type 'boolean)
+
+(defcustom hm--html-template-filter-regexp ".*\\.html\\.tmpl$"
+  "*Regexp for filtering out non template files in a directory."
+  :group 'hm--html-templates
+  :type 'string)
+
+;;; for deleting the automounter path-prefix
+(defcustom hm--html-delete-wrong-path-prefix '("/tmp_mnt" "/phys/[^/]+")
+  "If non nil, it specifies path-prefixes, which should be deleted in pathes.
+The Sun automounter adds a temporary prefix to the automounted directories
+ (At our site the prefix is /tmp_mnt). But you can't select such a path, if 
+the automounter has currently not mounted the directory and so you can't
+follow a html-link, which consists of such a path. To overcome this behaviour,
+you can set this variable to the prefix (eg. \"/tmp_mnt\"). After that, the
+prefix should be stripped from the pathes during the creation of the links.
+ATTENTION: This variable is used as regular expression !
+It can be set to a string or to a list of strings."
+  :group 'hm--html-links
+  :type '(repeat string))
+
+
+;;; For insertation of created and changed comments and automatic
+;;; date update in the title line and a visible modification date
+
+(defcustom hm--html-automatic-create-title-date t
+  "*t => A date string will be inserted in the title line.
+This will be updated each time before file saving, if
+`hm--html-automatic-update-title-date' is also set to t."
+  :group 'hm--html-document-information
+  :type 'boolean)
+
+(defcustom hm--html-automatic-update-title-date t
+  "*t   => The date in the title line will be updated before filesaving.
+nil => No automatic update of the date."
+  :group 'hm--html-document-information
+  :type 'boolean)
+
+(define-obsolete-variable-alias 'hm--html-automatic-new-date
+  'hm--html-automatic-update-title-date)
+
+(defcustom hm--html-automatic-changed-comment t
+  "*t   => A \"changed comment\" line will be added before filesaving.
+nil => No automatic insertation of a \"changed comment\" line."
+  :group 'hm--html-document-information
+  :type 'boolean)
+
+(defcustom hm--html-changed-comment-prefix "Changed by: "
+  "*The prefix text of the \"changed comment\" lines."
+  :group 'hm--html-document-information
+  :type 'string)
+