;;; /u/sy/beebe/xml/docbook.el, Fri Sep 20 10:27:58 2002
;;; Edit by Nelson H. F. Beebe <beebe@math.utah.edu>
;;; ====================================================================
;;;  @Emacs-Lisp-file{
;;;     author          = "Nelson H. F. Beebe",
;;;     version         = "0.11",
;;;     date            = "13 January 2009",
;;;     time            = "09:44:19 MST",
;;;     filename        = "docbook.el",
;;;     address         = "Center for Scientific Computing
;;;                        University of Utah
;;;                        Department of Mathematics, 110 LCB
;;;                        155 S 1400 E RM 233
;;;                        Salt Lake City, UT 84112-0090
;;;                        USA",
;;;     telephone       = "+1 801 581 5254",
;;;     FAX             = "+1 801 585 1640, +1 801 581 4148",
;;;     URL             = "http://www.math.utah.edu/~beebe",
;;;     checksum        = "24603 3178 11625 102209",
;;;     email           = "beebe@math.utah.edu, beebe@acm.org,
;;;                        beebe@computer.org (Internet)",
;;;     codetable       = "ISO/ASCII",
;;;     keywords        = "DocBook, O'Reilly & Associates, SGML, XML",
;;;     license         = "public domain",
;;;     supported       = "yes",
;;;     docstring       = "This file provides a GNU/Emacs major editing
;;;                        mode for DocBook/XML/SGML files.  The
;;;                        companion file, docbookmenu.el, provides
;;;                        window system menu support.
;;;
;;;                        The checksum field above contains a CRC-16
;;;                        checksum as the first value, followed by the
;;;                        equivalent of the standard UNIX wc (word
;;;                        count) utility output of lines, words, and
;;;                        characters.  This is produced by Robert
;;;                        Solovay's checksum utility.",
;;;  }
;;; ====================================================================

;;; docbook.el --- major mode for editing DocBook XML/SGML documents

;;; Copyright (C) 2002 Free Software Foundation, Inc.

;;; Author: Nelson H. F. Beebe <beebe@math.utah.edu>
;;; Maintainer: Nelson H. F. Beebe <beebe@math.utah.edu>
;;; Created: 19 September 2002
;;; Version: 0.00
;;; Keywords: DocBook, O'Reilly & Associates, SGML, XML

;;; This file is part of GNU Emacs.

;;; GNU Emacs 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.

;;; GNU Emacs 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 GNU Emacs; see the file COPYING.  If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

;;; Commentary:
;;; This file provides GNU Emacs (version 20 or later) support
;;; for editing documents in DocBook/XML, notably, the variant
;;; used by the publisher O'Reilly & Associates for its books.
;;;
;;; Unlike psgml.el, which attempts to parse the SGML DTD to
;;; create a customized editing environment, docbook.el ignores
;;; DTDs, and uses the tag repertoire defined in Appendix G of
;;; ``DocBook: The Definitive Guide'', whose home page is at
;;; http://www.oreilly.com/catalog/docbook/chapter/book/docbook.html
;;;
;;; Window system menu support is provided in a separate file,
;;; docbookmenu.el.  That support has been modeled after that in the
;;; author's LaTeX editing support in latex.el and ltxmenu.el.

(defconst docbook-version "0.11")		;NB: update this at every change
(defconst docbook-date "[13-Jan-2009]") 	;NB: update this at every change

;;; Change log:
;;;=====================================================================
;;;
;;; Version 0.11	[13-Jan-2009]
;;; Add trailing space to one character escape.
;;;
;;; Version 0.10	[29-Mar-2004]
;;; Add final slash in docbook-tag-graphic output.
;;;
;;; Version 0.09	[11-Mar-2004]
;;; Update docbook-tag-xref, and add docbook-tag-colspec.  Both of
;;; these tags are normally used without an end tag, and thus require
;;; a final slash inside the open tag in strict XML (although the
;;; DocBook does not do so).
;;;
;;; Version 0.08	[30-May-2003]
;;; Make sgmlify-region to convert quotes as well.
;;;
;;; Version 0.07	[28-May-2003]
;;; Add docbook-entity-quot-quot.
;;;
;;; Version 0.06	[26-May-2003]
;;; Add docbook-entity-minus and docbook-entity-quot.
;;;
;;; Version 0.05	[11-Jan-2003]
;;; Make sgmlify-region to convert backslashes as well.
;;;
;;; Version 0.04	[10-Jan-2003]
;;; Add docbook-check-screens, sgml-check-region, and sgmlify-region.
;;;
;;; Version 0.03	[08-Jan-2003]
;;; Add docbook-tag-orderedlist, and correct two docstring errors (in
;;; docbook-tag-graphic and docbook-tag-xref) caught by
;;; byte-compile-file.
;;;
;;; Version 0.02	[04-Nov-2002]
;;; Add docbook-backslash, docbook-entity-bsol, docbook-indent,
;;; docbook-tag-figure, and docbook-tag-graphic.
;;;
;;; Version 0.01	[10-Nov-2002]
;;; Add support for "vs." in docbook-dot.
;;;
;;; Version 0.00	[19-Sep-2002]
;;; Initial working template of DocBook/XML editing support.

;;; Code:

;;; Please keep the functions sorted ALPHABETICALLY, except for those
;;; that must be defined after certain others.

(provide 'docbook-mode)			;required by docbookmenu.el

(defvar docbook-indent-column 0
  "Number of columns to indent current environment.")

(defvar docbook-indent-extra 2
  "Number of extra columns to indent nested environments.")

(defvar docbook-lineannotation-column 64
  "Column at which <lineannotation>...</lineannotation> blocks start.")

(defvar docbook-mode-abbrev-table nil
  "Abbrev table in use in docbook-mode buffers.")

(if docbook-mode-abbrev-table
    ()
  (define-abbrev-table 'docbook-mode-abbrev-table ())
  (let ((abbrevs-changed nil))
    (define-abbrev docbook-mode-abbrev-table  "amstex"	"&AmSTeX;"	nil)
    (define-abbrev docbook-mode-abbrev-table  "tex"	"&TeX;" 	nil))
  nil)

(defvar docbook-mode-map nil
  "Keymap used in docbook mode.")

(setq docbook-mode-map nil)		;temporary during development

(defvar docbook-command-key-prefix "\C-c"
  "*Prefix keystroke(s) to be applied to docbook mode key bindings.
Emacs standards require that C-c be reserved for user-specific
bindings, but docbook-mode has historically used C-c prefix key.
You can set this variable to \"\\C-c\" for old-style binding, or
to say, \"\\C-z\" or \"\\C-c\\C-c\" for standard-conforming binding.")

; NB: this function must appear before references to it!
(defun docbook-define-key (map suffix function)
  "Define a key binding in MAP, prefixing SUFFIX with
docbook-command-key-prefix, and attach it to FUNCTION."
  (define-key map (concat docbook-command-key-prefix suffix) function))

(if docbook-mode-map
    ()					;then do nothing if user-defined
  (let ((map (make-sparse-keymap)))	;else set standard map
    (define-key map "&" 'docbook-ampersand)
    (define-key map "'" 'docbook-apostrophe)
    (define-key map "\\" 'docbook-backslash)
    (define-key map "." 'docbook-dot)
    (define-key map "<" 'docbook-left-angle)
    (define-key map ">" 'docbook-right-angle)
    (define-key map "\"" 'docbook-double-quote)
    (define-key map "`" 'docbook-single-quote)

    ;; The remainder start with docbook-command-key-prefix, normally C-c.
    ;; Please keep them sorted in ASCII order, to avoid unintentional
    ;; redefinition of bindings.
    (docbook-define-key map " " 'docbook-entity-nbsp)
    (docbook-define-key map "!" 'docbook-tag-caution)
    (docbook-define-key map "\"" 'docbook-entity-quot)
    (docbook-define-key map "-" 'docbook-entity-minus)
    (docbook-define-key map "." 'docbook-set-command-column)
    (docbook-define-key map "1" 'docbook-tag-sect1)
    (docbook-define-key map "2" 'docbook-tag-sect2)
    (docbook-define-key map "3" 'docbook-tag-sect3)
    (docbook-define-key map "4" 'docbook-tag-sect4)
    (docbook-define-key map "5" 'docbook-tag-sect5)
    (docbook-define-key map "@" 'docbook-tag-email)
    (docbook-define-key map "C" 'docbook-tag-chapter)
    (docbook-define-key map "E" 'docbook-tag-emphasis-strong)
    (docbook-define-key map "F" 'docbook-tag-firstterm)
    (docbook-define-key map "I" 'docbook-tag-itemizedlist)
    (docbook-define-key map "L" 'docbook-tag-literallayout)
    (docbook-define-key map "N" 'docbook-tag-footnote)
    (docbook-define-key map "O" 'docbook-tag-orderedlist)
    (docbook-define-key map "P" 'docbook-tag-preface)
    (docbook-define-key map "S" 'docbook-tag-sidebar)
    (docbook-define-key map "T" 'docbook-tag-title)
    (docbook-define-key map "U" 'docbook-tag-url)
    (docbook-define-key map "V" 'docbook-tag-variablelist)
    (docbook-define-key map "X" 'docbook-tag-example)
    (docbook-define-key map "\C-c\"" 'docbook-entity-quot-quot)
    (docbook-define-key map "\C-cS" 'docbook-tag-simplesect)
    (docbook-define-key map "\C-cc" 'docbook-tag-citetitle)
    (docbook-define-key map "\C-ce" 'docbook-tag-envar)
    (docbook-define-key map "\C-cf" 'docbook-tag-figure)
    (docbook-define-key map "\C-cg" 'docbook-tag-graphic)
    (docbook-define-key map "\C-ch" 'docbook-entity-hairsp)
    (docbook-define-key map "\C-cl" 'docbook-tag-lineannotation)
    (docbook-define-key map "\C-cm" 'docbook-entity-mdash)
    (docbook-define-key map "\C-cn" 'docbook-entity-ndash)
    (docbook-define-key map "\C-cp" 'docbook-tag-parbreak)
    (docbook-define-key map "\C-cs" 'docbook-tag-symbol)
    (docbook-define-key map "\C-ct" 'docbook-entity-thinsp)
    (docbook-define-key map "^" 'docbook-tag-superscript)
    (docbook-define-key map "_" 'docbook-tag-subscript)
    (docbook-define-key map "c" 'docbook-tag-command)
    (docbook-define-key map "e" 'docbook-tag-emphasis)
    (docbook-define-key map "f" 'docbook-tag-filename)
    (docbook-define-key map "i" 'docbook-tag-listitem)
    (docbook-define-key map "k" 'docbook-tag-colspec)
    (docbook-define-key map "l" 'docbook-tag-literal)
    (docbook-define-key map "n" 'docbook-tag-note)
    (docbook-define-key map "o" 'docbook-tag-option)
    (docbook-define-key map "p" 'docbook-tag-para)
    (docbook-define-key map "r" 'docbook-tag-replaceable)
    (docbook-define-key map "s" 'docbook-tag-screen)
    (docbook-define-key map "t" 'docbook-tag-term)
    (docbook-define-key map "u" 'docbook-tag-userinput)
    (docbook-define-key map "v" 'docbook-tag-varlistentry)
    (docbook-define-key map "x" 'docbook-tag-xref)

    ;; font wraps (need 3-char sequence, since we are running out
    ;; of two-character mnemonics)
    (docbook-define-key map "\C-cb" 'docbook-font-boldface)
    (setq docbook-mode-map map)))


(defvar docbook-extra-dotted-abbreviations nil
  "*List of extra abbreviations to augment those in
  docbook-standard-dotted-abbreviations for which docbook-dot must
  provide special spacing, according to the value of
  docbook-comma-after-dotted-abbreviation.")

(defconst docbook-standard-dotted-abbreviations nil
  "List of abbreviations for which docbook-dot must provide special
  spacing, according to the value of
  docbook-comma-after-dotted-abbreviation.")

(defvar docbook-extra-tied-abbreviations nil
  "*List of extra abbreviations to augment those in
docbook-standard-tied-abbreviations (q.v.).")

(defconst docbook-standard-tied-abbreviations nil
  "List of abbreviations for which docbook-dot must suppy a tie following
the dot.  See the LaTeX User's Guide and Reference Manual, p. 18, and the
TeXbook, pp. 73--74.")

(defvar docbook-comma-after-dotted-abbreviation nil ;modern style: use \<space>
  "*When docbook-dot is invoked after dotted abbreviations, like
``e.g'' or ``i.e'', if this variable is nil, insert a &nbsp; entity
for a non-sentence ending period.  If the variable is set non-nil,
insert a comma instead.  The choice between the two is a matter of
style; traditional use inserts a comma, while modern tendency is to
omit it.")

(setq docbook-comma-after-dotted-abbreviation t)

(setq docbook-standard-dotted-abbreviations
      '(
	("e.g.")
	("ff.")
	("i.e.")
	("ibid.")
	("loc cit.")			;both loc and loc. are in use
	("loc. cit.")
	("op. cit.")
	("q.v.")
	("viz.")
	("w.r.t.")
	))

(setq docbook-standard-tied-abbreviations
      '(
	("cf.")
	("Dr.")
	("Fig.")
	("Fr.")
	("Mr.")
	("Mrs.")
	("Ms.")
	("Prof.")
	("Profs.")
	("resp.")
	("Rev.")
	("vs.")
	))

(defun docbook-mode ()
  "Major editing mode for docbook XML/SGML files."
  (interactive)
  (use-local-map docbook-mode-map)
  (setq indent-tabs-mode nil)		;tabs are BAD news in TeX documents
  (setq major-mode 'docbook-mode)
  (setq mode-name "docbook")
  (setq local-abbrev-table docbook-mode-abbrev-table)
  (setq comment-end " -->")
  (setq comment-start "<!-- ")
  (setq comment-start-skip "<!-- *")
  (docbook-x-window-setup)
  (run-hooks 'docbook-mode-hook))

(defun docbook-check-screens (start end)
  "Run sgml-check-region in each <screen>...</screen> environment in
the region to find erroneous instances of literal angle brackets or
ampersands that need to be converted to SGML entities."
  (interactive "r")
  (save-restriction
    (narrow-to-region start end)
    (goto-char (point-min))
    (let ((screen-start) (docbook-screen t))
      (while (search-forward "<screen>" nil t)
	(setq screen-start (point))
	(search-forward "</screen>")
	(sgml-check-region screen-start (- (point) 9)))))
  (message "done: no erroneous literal angle brackets or ampersands found"))

(defun docbook-font-boldface (&optional word-count)
  "Insert <B> ... </B>} around next ARG words (on \\<docbook-mode-map>\\[docbook-font-boldface])."
  (interactive)
  (setq word-count (internal-docbook-default word-count 1))
  (internal-docbook-wrap "<B>" "</B>" word-count))

(defun docbook-backslash ()
  "Insert &bsol;, leaving point after the insertion."
  (interactive)
  (docbook-entity-bsol))

(defun docbook-dot ()
  "Insert a dot (period, full stop), and then handle some special
cases:

  [1] If the previous two characters are also dots, change all three
  of them to &hellip;.

  [2] If the previous characters are dotted abbreviations, like `e.g.'
  or `i.e.', which are defined as list elements of the variables
  docbook-standard-dotted-abbreviations and
  docbook-extra-dotted-abbreviations, supply a trailing string: if
  docbook-comma-after-dotted-abbreviation is nil, insert `&nbsp; ' to
  mark a non-sentence-ending dot; otherwise insert a comma.  Dotted
  abbreviations are recognized only if the character preceding them is
  not a letter.

Bound to \\<docbook-mode-map>\\[docbook-dot]."

  (interactive)
  (if abbrev-mode
      (expand-abbrev))
  (insert-char ?\. 1)
  ;; (backward-char 1)
  ;; (internal-docbook-maybe-remove-italic-correction)
  ;; (forward-char 1)
  (let (old-case-fold-search case-fold-search)
    (setq case-fold-search nil)		;need exact case matching here
    (cond
     ;; <uppercase><uppercase>. -> <uppercase><uppercase>\@.
     ((string-match "[A-Z][A-Z]\\." (internal-docbook-preceding-buffer-substring 3))
      (progn
	(backward-char 1)
	;; (insert "\\@")
	(forward-char 1)))
     ;; "..." -> "\ldots{}"
     ((string-equal "..." (internal-docbook-preceding-buffer-substring 3))
      (progn
	(delete-char -3)
	(insert "&hellip;")))
     ((string-equal "vs." (internal-docbook-preceding-buffer-substring 3))
      (progn				;OR&A stylesheet demands versus, not vs.
	(delete-char -3)
	(insert "versus")))
     ;; "i.e." -> "i.e.\ " or "i.e.," (for many such abbrevs)
     (t
      (catch 'EXIT
	(mapcar;; scan the list of dotted abbrevs
	 (function
	  (lambda (x)
	    (let ((s (nth 0 x)))	; reduce ("i.e.") to "i.e."
	      (if (and
		   (not			; abbrev must not follow a letter
		    (string-match "[A-Za-z]"
				  (buffer-substring
				   (max 1 (- (point) (length s) 1))
				   (max 1 (- (point) (length s))))))
		   (string-equal s	; does the abbrev match the buffer?
				 (internal-docbook-preceding-buffer-substring (length s))))
		  (progn		; yes, so do the insertion, then
		    (insert		; bail out, forgetting the
					; rest of the abbrev list
		     (if (assoc s (append docbook-standard-tied-abbreviations
					  docbook-extra-tied-abbreviations))
			 "&nbsp;"
		       (if docbook-comma-after-dotted-abbreviation "," "&nbsp; ")))
		    (throw 'EXIT nil)))))) ;end if-let-lambda- function
	 (append docbook-standard-dotted-abbreviations
		 docbook-extra-dotted-abbreviations
		 docbook-standard-tied-abbreviations
		 docbook-extra-tied-abbreviations))))) ;end cond
    (setq case-fold-search old-case-fold-search))) ;restore old value


(defun docbook-ensure-newline ()
  "Ensure that the next insertion starts on a new line."
  (end-of-line)
  (if (> (current-column) 0)
      (insert "\n")))

(defun docbook-entity-bsol ()
  "Insert &bsol;, leaving point after the insertion."
  (interactive)
  (insert "&bsol;"))

(defun docbook-entity-hairsp (arg)
  "Insert &hairsp;, leaving point after the insertion."
  (interactive "P")
  (insert "&hairsp;"))

(defun docbook-entity-mdash (arg)
  "Insert &mdash;, leaving point after the insertion."
  (interactive "P")
  (insert "&mdash;"))

(defun docbook-entity-minus (arg)
  "Insert &minus;, leaving point after the insertion."
  (interactive "P")
  (insert "&minus;"))

(defun docbook-entity-nbsp (arg)
  "Insert &nbsp;, leaving point after the insertion."
  (interactive "P")
  (insert "&nbsp;"))

(defun docbook-entity-ndash (arg)
  "Insert &ndash;, leaving point after the insertion."
  (interactive "P")
  (insert "&ndash;"))

(defun docbook-entity-quot (arg)
  "Insert &quot;, leaving point after the insertion."
  (interactive "P")
  (insert "&quot;"))

(defun docbook-entity-quot-quot (arg)
  "Insert &quot;&quot;, leaving point between the entities."
  (interactive "P")
  (insert "&quot;")
  (insert "&quot;")
  (backward-char 6))

(defun docbook-entity-thinsp (arg)
  "Insert &thinsp;, leaving point after the insertion."
  (interactive "P")
  (insert "&thinsp;"))

(defun docbook-indent (level)
  "Reset the indentation amount by LEVEL levels."
  (setq docbook-indent-column (+ (* level docbook-indent-extra))))

(defun docbook-insert-tag-pair (name is-block)
  "Insert <NAME></NAME>, leaving point inside the tag pair.  If
IS-BLOCK is non-nil, the tags and point are on separate otherwise-empty lines."
  (let ((next-point))

    (if is-block
        (progn
          (docbook-ensure-newline)
          (internal-docbook-indent 0)))
    (insert "<" name ">")

    (if is-block (docbook-ensure-newline))
    (setq next-point (point))

    (if is-block
	(progn
	  (newline)
	  (internal-docbook-indent 0)))
    (insert "</" name ">")

    (if is-block (docbook-ensure-newline))
    (goto-char next-point)))

(defun docbook-ampersand (arg)
   "Insert &amp;, leaving point after the entity."
  (interactive "P")
  (insert "&amp;"))

(defun docbook-apostrophe (arg)
  "Insert &apos;, leaving point after the entity."
  (interactive "P")
  ;; Suppress: OR&A DocBook does not recognize this entity
  ;; (insert "&apos;")
  (insert "'"))

(defun docbook-double-quote (arg)
  "Insert <quote></quote>, leaving point in the environment.
The DocBook [p. 383] recommends this markup form over the equivalent
&ldquo;&rdquo;, for reability and generality."
  (interactive "P")
  ;; (insert "&ldquo;&rdquo;")
  ;; (backward-char 7)
  (insert "<quote></quote>")
  (backward-char 8))

(defun docbook-indent-lineannotations (column)
  "Indent <lineannotation>...</lineannotation> strings in the region
to a consistent indentation column, COLUMN (default: docbook-lineannotation-column)."
  (interactive "P")
  (setq column (if column (prefix-numeric-value column) docbook-lineannotation-column))
  (auto-fill-mode 0) ;turn off auto-fill [the user must reset it manually if needed]
  (let ((auto-fill-mode nil))	       ;turn off auto-fill temporarily
    (save-excursion
      (goto-char (point-min))
      (while (search-forward "<lineannotation>" nil t)
	(backward-char 16)
	(delete-horizontal-space)
	(insert-char ?\  (- column (current-column)))
	(beginning-of-line)
	(if (looking-at "^.*[&].*;.*$")
	    (error "Please handle indentation of entity lines manually."))
	(forward-line 1)))))

(defun docbook-left-angle (arg)
   "Insert &lt;, leaving point after the entity."
  (interactive "P")
  (insert "&lt;"))

(defun docbook-reindent (arg)
  "Reindent lines in the current region as if tab stops were
set every ARG columns.  Only leading whitespace is affected by this
operation."
  (interactive "p")
  (save-excursion
    (save-restriction
      (narrow-to-region (region-beginning) (region-end))
      (goto-char (point-min))
      (while (< (point) (point-max))
	(back-to-indentation)
	(let ((n (current-column)))
	  (delete-horizontal-space)
	  (insert-char ?\  (+ (* (/ n 8) arg) (% n 8))))
	(forward-line 1))
      (widen))))

(defun docbook-right-angle (arg)
   "Insert &gt;, leaving point after the entity."
  (interactive "P")
  (insert "&gt;"))

(defun docbook-tag-colspec (arg)
 "Insert at point a <colspec ...> specification for a column in a table."
  (interactive "P")
  (insert "<colspec colnum=\"\"/>\t\t<!-- colwidth=\"\" align=\"center|char|justify|left|right\" -->\n")
  (search-backward "\"" nil nil 5))

(defun docbook-set-command-column ()
  "Set the command column indentation, and recompute the fill prefix."
  (interactive)
  (setq docbook-indent-column (current-column))
  (setq fill-prefix
	(make-string (+ docbook-indent-column docbook-indent-extra) ?\ )))

(defun docbook-single-quote (arg)
  "Insert &lsquo;&rsquo;, leaving point between the quotes."
  (interactive "P")
  (insert "&lsquo;&rsquo;")
  (backward-char 7))

(defun docbook-tag-caution (arg)
  "Insert <caution></caution>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "caution" t))

(defun docbook-tag-chapter (arg)
  "Insert <chapter id=\"\"></chapter>, leaving point inside the id string."
  (interactive "P")
  (setq docbook-indent-column 0)
  (internal-docbook-tag-sectname "chapter"))

(defun docbook-tag-citetitle (arg)
  "Insert <citetitle></citetitle>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "citetitle" nil))

(defun docbook-tag-command (arg)
  "Insert <command></command>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "command" nil))

(defun docbook-tag-email (arg)
  "Insert <email></email>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "email" nil))

(defun docbook-tag-emphasis (arg)
  "Insert <emphasis></emphasis>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "emphasis" nil))

(defun docbook-tag-envar (arg)
  "Insert <envar></envar>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "envar" nil))

(defun docbook-tag-emphasis-strong (arg)
  "Insert <emphasis role=\"bold=\"></emphasis>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "emphasis" nil)
  (backward-char 1)
  (insert " role=\"bold\"")
  (forward-char 1))

(defun docbook-tag-example (arg)
  "Insert a tag pair for example
\[A formal example, with a title]."
  (interactive "P")
  (docbook-insert-tag-pair "example" t)
  (docbook-tag-title t)
  (beginning-of-line)
  (insert-char ?\  docbook-indent-extra)
  (search-backward "<example>")
  (forward-char 8)
  (insert " id=\"\"")
  (backward-char 1))

(defun docbook-tag-figure (arg)
  "Insert a figure envirionment, leaving point inside the empty id string."
  (interactive "P")
  (docbook-insert-tag-pair "figure" t)
  (search-backward ">")
  (insert " id=\"\"")
  (backward-char 1)
  (save-excursion
    (forward-line 1)
    (internal-docbook-indent docbook-indent-extra)
    (docbook-tag-title t)
    (forward-line 1)
    (open-line 1)
    (internal-docbook-indent docbook-indent-extra)
    (docbook-tag-graphic t)
    (end-of-line)
    (delete-horizontal-space)))

(defun docbook-tag-filename (arg)
  "Insert <filename></filename>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "filename" nil))

(defun docbook-tag-firstterm (arg)
  "Insert <firstterm></firstterm>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "firstterm" nil))

(defun docbook-tag-footnote (arg)
  "Insert <footnote></footnote>, leaving point inside the tag pair."
  (interactive "P")
  (let ((next-point))
    (docbook-insert-tag-pair "footnote" t)
    (re-search-backward "^ *<footnote>")
    (delete-char -1)
    (delete-horizontal-space)
    (search-forward "<footnote>")

    ;; DocBook footnotes always need internal paragraphs, so insert a
    ;; paragraph tag pair immediately after <footnote>:
    (docbook-tag-para nil)

    ;; I like to have blank lines around <para>...</para> environments
    (save-excursion
      (re-search-backward "^ *<para>")
      (newline)
      (re-search-forward "^ *</para>$")
      (newline))
    ))

(defun docbook-tag-graphic (arg)
  "Insert <graphic fileref=\"\"/>, leaving point inside the empty string."
  (interactive "P")
  (insert "<graphic fileref=\"\"/>")
  (backward-char 3))

(defun docbook-tag-itemizedlist (arg)
  "Insert <itemizedlist></itemizedlist>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "itemizedlist" t)
  (setq docbook-indent-column (+ docbook-indent-column docbook-indent-extra))
  (docbook-tag-listitem nil)
  (save-excursion
    (internal-docbook-exit-environment)
    (internal-docbook-exit-environment)
    (docbook-tag-listitem nil)
    (internal-docbook-exit-environment)
    (internal-docbook-exit-environment)
    (docbook-tag-listitem nil)
    (internal-docbook-exit-environment)
    (internal-docbook-exit-environment)
    (docbook-tag-listitem nil)
    (internal-docbook-exit-environment)
    (internal-docbook-exit-environment)
    (delete-blank-lines)))

(defun docbook-tag-listitem (arg)
  "Insert <listitem></listitem>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "listitem" t)
  (setq docbook-indent-column (+ docbook-indent-column docbook-indent-extra))
  (docbook-tag-para nil)
  (setq docbook-indent-column (- docbook-indent-column docbook-indent-extra)))

(defun docbook-tag-literal (arg)
  "Insert <literal></literal>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "literal" nil))

(defun docbook-tag-lineannotation (arg)
  "Insert a tag pair for lineannotation, properly indented.
\[A comment on a line in a verbatim listing]."
  (interactive "P")
  (auto-fill-mode -1) ;turn off auto-fill [the user must reset it manually if needed]
  (docbook-insert-tag-pair "lineannotation" nil)
  (search-backward "<lineannotation>")
  (delete-horizontal-space)
  (insert-char ?\  (- docbook-lineannotation-column (current-column)))
  (search-forward "<lineannotation>")
  (save-excursion
    (beginning-of-line)
    (if (looking-at "^.*[&].*;.*$")
	(message "Please handle indentation of entity lines manually."))))

(defun docbook-tag-literallayout (arg)
  "Insert <literallayout></literallayout>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "literallayout" t))

(defun docbook-tag-note (arg)
  "Insert <note></note>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "note" t))

(defun docbook-tag-option (arg)
  "Insert <option></option>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "option" nil)
  (insert "&ndash;"))

(defun docbook-tag-orderedlist (arg)
  "Insert <orderedlist></orderedlist>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "orderedlist" t)
  (save-excursion
    (backward-word 1)
    (forward-word 1)
    (insert " numeration=\"arabic\"")
    (end-of-line)
    (indent-for-comment)
    (insert "[loweralpha,lowerroman,upperalpha,upperroman]"))
  (setq docbook-indent-column (+ docbook-indent-column docbook-indent-extra))
  (docbook-tag-listitem nil)
  (save-excursion
    (internal-docbook-exit-environment)
    (internal-docbook-exit-environment)
    (docbook-tag-listitem nil)
    (internal-docbook-exit-environment)
    (internal-docbook-exit-environment)
    (docbook-tag-listitem nil)
    (internal-docbook-exit-environment)
    (internal-docbook-exit-environment)
    (docbook-tag-listitem nil)
    (internal-docbook-exit-environment)
    (internal-docbook-exit-environment)
    (delete-blank-lines)))

(defun docbook-tag-para (arg)
  "Insert <para></para>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "para" t)
  (save-excursion
    (internal-docbook-exit-environment)
    (delete-blank-lines)))

(defun docbook-tag-parbreak (arg)
  "Insert a paragraph break at point, </para><para>, leaving point
  at the beginning of the body of the new paragraph."
  (interactive "P")
  (newline)
  (newline)
  (indent-for-tab-command)
  (forward-line -1)
  (docbook-insert-tag-pair "para" t)
  (save-excursion
    (internal-docbook-exit-environment)
    (delete-blank-lines))
  (save-excursion
    (search-forward "</para>")
    (insert "\n")
    (search-backward "</para>")
    (forward-char 1)
    (delete-char 1))
  (save-excursion
    (search-backward "<para>")
    (forward-char 1)
    (insert "/"))
  (search-forward "<para>")
  (forward-line 1)
  (indent-for-tab-command)
  (insert-char ?\  docbook-indent-extra))

(defun docbook-tag-preface (arg)
  "Insert <preface id=\"\"></preface>, leaving point inside the id string."
  (interactive "P")
  (setq docbook-indent-column 0)
  (internal-docbook-tag-sectname "preface"))

(defun docbook-tag-replaceable (arg)
  "Insert <replaceable></replaceable>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "replaceable" nil))

(defun docbook-tag-screen (arg)
  "Insert <screen></screen>, leaving point inside the tag pair."
  (interactive "P")
  (let ((docbook-indent-column 0)) ; verbatim environment: always flush left
    (docbook-insert-tag-pair "screen" t)))

(defun docbook-tag-sect1 (arg)
  "Insert <sect1></sect1>, leaving point inside the tag pair."
  (interactive "P")
  (setq docbook-indent-column 0)
  (internal-docbook-tag-sectname "sect1"))

(defun docbook-tag-sect2 (arg)
  "Insert <sect2></sect2>, leaving point inside the tag pair."
  (interactive "P")
  (setq docbook-indent-column 0)
  (internal-docbook-tag-sectname "sect2"))

(defun docbook-tag-sect3 (arg)
  "Insert <sect3></sect3>, leaving point inside the tag pair."
  (interactive "P")
  (setq docbook-indent-column 0)
  (internal-docbook-tag-sectname "sect3"))

(defun docbook-tag-sect4 (arg)
  "Insert <sect4></sect4>, leaving point inside the tag pair."
  (interactive "P")
  (setq docbook-indent-column 0)
  (internal-docbook-tag-sectname "sect4"))

(defun docbook-tag-sect5 (arg)
  "Insert <sect5></sect5>, leaving point inside the tag pair."
  (interactive "P")
  (setq docbook-indent-column 0)
  (internal-docbook-tag-sectname "sect5"))

(defun docbook-tag-sidebar (arg)
  "Insert <sidebar></sidebar>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "sidebar" t))

(defun docbook-tag-simplesect (arg)
  "Insert <simplesect></simplesect>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "simplesect" t))

(defun docbook-tag-subscript (arg)
  "Insert <subscript></subscript>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "subscript" nil))

(defun docbook-tag-superscript (arg)
  "Insert <superscript></superscript>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "superscript" nil))

(defun docbook-tag-symbol (arg)
  "Insert <symbol></symbol>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "symbol" nil))

(defun docbook-tag-term (arg)
  "Insert <term></term>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "term" nil))

(defun docbook-tag-title (arg)
  "Insert <title></title>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "title" nil))

(defun docbook-tag-url (arg)
  "Insert <systemitem role=\"url\"></systemitem>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "systemitem" nil)
  (backward-char 1)
  (insert " role=\"url\"")
  (forward-char 1))

(defun docbook-tag-userinput (arg)
  "Insert <userinput></userinput>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "userinput" nil))

(defun docbook-tag-variablelist (arg)
  "Insert <variablelist></variablelist>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "variablelist" t)
  (setq docbook-indent-column (+ docbook-indent-column docbook-indent-extra))
  (docbook-tag-varlistentry nil)
  (save-excursion
    (internal-docbook-exit-environment)
    (docbook-tag-varlistentry nil)
    (internal-docbook-exit-environment)
    (docbook-tag-varlistentry nil)
    (internal-docbook-exit-environment)
    (docbook-tag-varlistentry nil)
    (internal-docbook-exit-environment)
    (delete-blank-lines)))

(defun docbook-tag-varlistentry (arg)
  "Insert <varlistentry></varlistentry>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "varlistentry" t))

(defun docbook-tag-xref (arg)
  "Insert <xref linkend=\"\"/>, leaving point inside the empty id string."
  (interactive "P")
  (insert "<xref linkend=\"\"/>")
  (backward-char 3))

;;; Template for creation of new functions
(defun docbook-tag-XXX (arg)
  "Insert <XXX></XXX>, leaving point inside the tag pair."
  (interactive "P")
  (docbook-insert-tag-pair "XXX" nil))

;;; ========================================================================
;;; From this point on, the remaining docbook-tag-Xxxx functions have
;;; been derived from the complete DocBook/XML tag list in Appendix G
;;; of ``DocBook: The Definitive Guide'', whose home page is at
;;; http://www.oreilly.com/catalog/docbook/chapter/book/docbook.html
;;; Much work needs to be done in these 350 functions, since not all
;;; should generate tag pairs, and others should generate inline tag
;;; pairs instead of block pairs.  For now, only a few have been
;;; adapted from their default templates. For the moment, I don't
;;; require any of these.
;;; ========================================================================

(defun docbook-tag-Abbrev (arg)
 "Insert a tag pair for Abbreviation
\[An abbreviation, especially one followed by a period]."
  (interactive "P")
  (docbook-insert-tag-pair "Abbrev" nil))

(defun docbook-tag-Abstract (arg)
 "Insert a tag pair for Abstract
\[A summary]."
  (interactive "P")
  (docbook-insert-tag-pair "Abstract" t))

(defun docbook-tag-Accel (arg)
 "Insert a tag pair for Accel
\[A graphical user interface (GUI) keyboard shortcut]."
  (interactive "P")
  (docbook-insert-tag-pair "Accel" nil))

(defun docbook-tag-Ackno (arg)
 "Insert a tag pair for Ackno
\[Acknowledgements in an Article]."
  (interactive "P")
  (docbook-insert-tag-pair "Ackno" t))

(defun docbook-tag-Acronym (arg)
 "Insert a tag pair for Acronym
\[An often pronounceable word made from the initial (or selected) letters of a name or phrase]."
  (interactive "P")
  (docbook-insert-tag-pair "Acronym" nil))

(defun docbook-tag-Action (arg)
 "Insert a tag pair for Action
\[A response to a user event]."
  (interactive "P")
  (docbook-insert-tag-pair "Action" nil))

(defun docbook-tag-Address (arg)
 "Insert a tag pair for Address
\[A real-world address, generally a postal address]."
  (interactive "P")
  (docbook-insert-tag-pair "Address" t))

(defun docbook-tag-Affiliation (arg)
 "Insert a tag pair for Affiliation
\[The institutional affiliation of an individual]."
  (interactive "P")
  (docbook-insert-tag-pair "Affiliation" t))

(defun docbook-tag-Alt (arg)
 "Insert a tag pair for Alt
\[Text representation for a graphical element]."
  (interactive "P")
  (docbook-insert-tag-pair "Alt" nil))

(defun docbook-tag-Anchor (arg)
 "Insert a tag pair for Anchor
\[A spot in the document]."
  (interactive "P")
  (insert "<Anchor id=\"\">")
  (backward-char 2))

(defun docbook-tag-Answer (arg)
 "Insert a tag pair for Answer
\[An answer to a question posed in a QandASet]."
  (interactive "P")
  (docbook-insert-tag-pair "Answer" t))

(defun docbook-tag-Appendix (arg)
 "Insert a tag pair for Appendix
\[An appendix in a Book or Article]."
  (interactive "P")
  (docbook-insert-tag-pair "Appendix" t))

(defun docbook-tag-Application (arg)
 "Insert a tag pair for Application
\[The name of a software program]."
  (interactive "P")
  (docbook-insert-tag-pair "Application" nil))

(defun docbook-tag-Area (arg)
 "Insert a tag pair for Area
\[A region defined for a Callout in a graphic or code example]."
  (interactive "P")
  (docbook-insert-tag-pair "Area" nil))

(defun docbook-tag-AreaSet (arg)
 "Insert a tag pair for AreaSet
\[A set of related areas in a graphic or code example]."
  (interactive "P")
  (docbook-insert-tag-pair "AreaSet" t))

(defun docbook-tag-AreaSpec (arg)
 "Insert a tag pair for AreaSpec
\[A collection of regions in a graphic or code example]."
  (interactive "P")
  (docbook-insert-tag-pair "AreaSpec" t))

(defun docbook-tag-Arg (arg)
 "Insert a tag pair for Arg
\[An argument in a CmdSynopsis]."
  (interactive "P")
  (docbook-insert-tag-pair "Arg" nil))

(defun docbook-tag-ArtHeader (arg)
 "Insert a tag pair for ArtHeader
\[Meta-information for an Article]."
  (interactive "P")
  (docbook-insert-tag-pair "ArtHeader" t))

(defun docbook-tag-ArtPageNums (arg)
 "Insert a tag pair for ArtPageNums
\[The page numbers of an article as published]."
  (interactive "P")
  (docbook-insert-tag-pair "ArtPageNums" nil))

(defun docbook-tag-Article (arg)
 "Insert a tag pair for Article
\[An article]."
  (interactive "P")
  (docbook-insert-tag-pair "Article" t))

(defun docbook-tag-Attribution (arg)
 "Insert a tag pair for Attribution
\[The source of a block quote or epigraph]."
  (interactive "P")
  (docbook-insert-tag-pair "Attribution" t))

(defun docbook-tag-AudioData (arg)
 "Insert a tag pair for AudioData
\[Pointer to external audio data]."
  (interactive "P")
  (docbook-insert-tag-pair "AudioData" t))

(defun docbook-tag-AudioObject (arg)
 "Insert a tag pair for AudioObject
\[A wrapper for audio data and its associated meta-information]."
  (interactive "P")
  (docbook-insert-tag-pair "AudioObject" t))

(defun docbook-tag-Author (arg)
 "Insert a tag pair for Author
\[The name of an individual author]."
  (interactive "P")
  (docbook-insert-tag-pair "Author" nil))

(defun docbook-tag-AuthorBlurb (arg)
 "Insert a tag pair for AuthorBlurb
\[A short description or note about an author]."
  (interactive "P")
  (docbook-insert-tag-pair "AuthorBlurb" t))

(defun docbook-tag-AuthorGroup (arg)
 "Insert a tag pair for AuthorGroup
\[Wrapper for author information when a document has multiple authors or collabarators]."
  (interactive "P")
  (docbook-insert-tag-pair "AuthorGroup" t))

(defun docbook-tag-AuthorInitials (arg)
 "Insert a tag pair for AuthorInitials
\[The initials or other short identifier for an author]."
  (interactive "P")
  (docbook-insert-tag-pair "AuthorInitials" nil))

(defun docbook-tag-BeginPage (arg)
 "Insert a tag pair for BeginPage
\[The location of a page break in a print version of the document]."
  (interactive "P")
  (docbook-insert-tag-pair "BeginPage" t))

(defun docbook-tag-BiblioDiv (arg)
 "Insert a tag pair for BiblioDiv
\[A section of a Bibliography]."
  (interactive "P")
  (docbook-insert-tag-pair "BiblioDiv" t))

(defun docbook-tag-BiblioEntry (arg)
 "Insert a tag pair for BiblioEntry
\[An entry in a Bibliography]."
  (interactive "P")
  (docbook-insert-tag-pair "BiblioEntry" t))

(defun docbook-tag-BiblioMSet (arg)
 "Insert a tag pair for BiblioMSet
\[A \"cooked\" container for related bibliographic information]."
  (interactive "P")
  (docbook-insert-tag-pair "BiblioMSet" t))

(defun docbook-tag-BiblioMisc (arg)
 "Insert a tag pair for BiblioMisc
\[Untyped bibliographic information]."
  (interactive "P")
  (docbook-insert-tag-pair "BiblioMisc" t))

(defun docbook-tag-BiblioMixed (arg)
 "Insert a tag pair for BiblioMixed
\[An entry in a Bibliography]."
  (interactive "P")
  (docbook-insert-tag-pair "BiblioMixed" t))

(defun docbook-tag-BiblioSet (arg)
 "Insert a tag pair for BiblioSet
\[A \"raw\" container for related bibliographic information]."
  (interactive "P")
  (docbook-insert-tag-pair "BiblioSet" t))

(defun docbook-tag-Bibliography (arg)
 "Insert a tag pair for Bibliography
\[A bibliography]."
  (interactive "P")
  (docbook-insert-tag-pair "Bibliography" t))

(defun docbook-tag-BlockQuote (arg)
 "Insert a tag pair for BlockQuote
\[A quotation set off from the main text]."
  (interactive "P")
  (docbook-insert-tag-pair "BlockQuote" t))

(defun docbook-tag-Book (arg)
 "Insert a tag pair for Book
\[A book]."
  (interactive "P")
  (docbook-insert-tag-pair "Book" t))

(defun docbook-tag-BookBiblio (arg)
 "Insert a tag pair for BookBiblio
\[Meta-information about a book used in a bibliographical citation]."
  (interactive "P")
  (docbook-insert-tag-pair "BookBiblio" t))

(defun docbook-tag-BookInfo (arg)
 "Insert a tag pair for BookInfo
\[Meta-information for a Book]."
  (interactive "P")
  (docbook-insert-tag-pair "BookInfo" t))

(defun docbook-tag-BridgeHead (arg)
 "Insert a tag pair for BridgeHead
\[A free-floating heading]."
  (interactive "P")
  (docbook-insert-tag-pair "BridgeHead" t))

(defun docbook-tag-CO (arg)
 "Insert a tag pair for CO
\[The location of a callout embedded in text]."
  (interactive "P")
  (docbook-insert-tag-pair "CO" t))

(defun docbook-tag-Callout (arg)
 "Insert a tag pair for Callout
\[A \"called out\" description of a marked Area]."
  (interactive "P")
  (docbook-insert-tag-pair "Callout" t))

(defun docbook-tag-CalloutList (arg)
 "Insert a tag pair for CalloutList
\[A list of Callouts]."
  (interactive "P")
  (docbook-insert-tag-pair "CalloutList" t))

(defun docbook-tag-Caption (arg)
 "Insert a tag pair for Caption
\[A caption]."
  (interactive "P")
  (docbook-insert-tag-pair "Caption" t))

(defun docbook-tag-Caution (arg)
 "Insert a tag pair for Caution
\[A note of caution]."
  (interactive "P")
  (docbook-insert-tag-pair "Caution" t))

(defun docbook-tag-Chapter (arg)
 "Insert a tag pair for Chapter
\[A chapter, as of a book]."
  (interactive "P")
  (docbook-insert-tag-pair "Chapter" t))

(defun docbook-tag-Citation (arg)
 "Insert a tag pair for Citation
\[An inline bibliographic reference to another published work]."
  (interactive "P")
  (docbook-insert-tag-pair "Citation" t))

(defun docbook-tag-CiteRefEntry (arg)
 "Insert a tag pair for CiteRefEntry
\[A citation to a reference page]."
  (interactive "P")
  (docbook-insert-tag-pair "CiteRefEntry" t))

(defun docbook-tag-CiteTitle (arg)
 "Insert a tag pair for CiteTitle
\[The title of a cited work]."
  (interactive "P")
  (docbook-insert-tag-pair "CiteTitle" t))

(defun docbook-tag-City (arg)
 "Insert a tag pair for City
\[The name of a city in an address]."
  (interactive "P")
  (docbook-insert-tag-pair "City" t))

(defun docbook-tag-ClassName (arg)
 "Insert a tag pair for ClassName
\[The name of a class, in the object-oriented programming sense]."
  (interactive "P")
  (docbook-insert-tag-pair "ClassName" t))

(defun docbook-tag-CmdSynopsis (arg)
 "Insert a tag pair for CmdSynopsis
\[A syntax summary for a software command]."
  (interactive "P")
  (docbook-insert-tag-pair "CmdSynopsis" t))

(defun docbook-tag-ColSpec (arg)
 "Insert a tag pair for ColSpec
\[Specifications for a column in a table]."
  (interactive "P")
  (docbook-insert-tag-pair "ColSpec" t))

(defun docbook-tag-Collab (arg)
 "Insert a tag pair for Collab
\[Identifies a collaborator]."
  (interactive "P")
  (docbook-insert-tag-pair "Collab" t))

(defun docbook-tag-CollabName (arg)
 "Insert a tag pair for CollabName
\[The name of a collaborator]."
  (interactive "P")
  (docbook-insert-tag-pair "CollabName" t))

(defun docbook-tag-Colophon (arg)
 "Insert a tag pair for Colophon
\[Text at the back of a book describing facts about its production]."
  (interactive "P")
  (docbook-insert-tag-pair "Colophon" t))

(defun docbook-tag-Command (arg)
 "Insert a tag pair for Command
\[The name of an executable program or other software command]."
  (interactive "P")
  (docbook-insert-tag-pair "Command" t))

(defun docbook-tag-Comment (arg)
 "Insert a tag pair for Comment
\[A comment intended for presentation in a draft manuscript]."
  (interactive "P")
  (docbook-insert-tag-pair "Comment" t))

(defun docbook-tag-ComputerOutput (arg)
 "Insert a tag pair for ComputerOutput
\[Data, generally text, displayed or presented by a computer]."
  (interactive "P")
  (docbook-insert-tag-pair "ComputerOutput" t))

(defun docbook-tag-ConfDates (arg)
 "Insert a tag pair for ConfDates
\[The dates of a conference for which a document was written]."
  (interactive "P")
  (docbook-insert-tag-pair "ConfDates" t))

(defun docbook-tag-ConfGroup (arg)
 "Insert a tag pair for ConfGroup
\[A wrapper for document meta-information about a conference]."
  (interactive "P")
  (docbook-insert-tag-pair "ConfGroup" t))

(defun docbook-tag-ConfNum (arg)
 "Insert a tag pair for ConfNum
\[An identifier, frequently numerical, associated with a conference for which a document was written]."
  (interactive "P")
  (docbook-insert-tag-pair "ConfNum" t))

(defun docbook-tag-ConfSponsor (arg)
 "Insert a tag pair for ConfSponsor
\[The sponsor of a conference for which a document was written]."
  (interactive "P")
  (docbook-insert-tag-pair "ConfSponsor" t))

(defun docbook-tag-ConfTitle (arg)
 "Insert a tag pair for ConfTitle
\[The title of a conference for which a document was written]."
  (interactive "P")
  (docbook-insert-tag-pair "ConfTitle" t))

(defun docbook-tag-Constant (arg)
 "Insert a tag pair for Constant
\[A programming or system constant]."
  (interactive "P")
  (docbook-insert-tag-pair "Constant" t))

(defun docbook-tag-ContractNum (arg)
 "Insert a tag pair for ContractNum
\[The contract number of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "ContractNum" t))

(defun docbook-tag-ContractSponsor (arg)
 "Insert a tag pair for ContractSponsor
\[The sponsor of a contract]."
  (interactive "P")
  (docbook-insert-tag-pair "ContractSponsor" t))

(defun docbook-tag-Contrib (arg)
 "Insert a tag pair for Contrib
\[A summary of the contributions made to a document by a credited source]."
  (interactive "P")
  (docbook-insert-tag-pair "Contrib" t))

(defun docbook-tag-Copyright (arg)
 "Insert a tag pair for Copyright
\[Copyright information about a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Copyright" t))

(defun docbook-tag-CorpAuthor (arg)
 "Insert a tag pair for CorpAuthor
\[A corporate author, as opposed to an individual]."
  (interactive "P")
  (docbook-insert-tag-pair "CorpAuthor" t))

(defun docbook-tag-CorpName (arg)
 "Insert a tag pair for CorpName
\[The name of a corporation]."
  (interactive "P")
  (docbook-insert-tag-pair "CorpName" t))

(defun docbook-tag-Country (arg)
 "Insert a tag pair for Country
\[The name of a country]."
  (interactive "P")
  (docbook-insert-tag-pair "Country" t))

(defun docbook-tag-Database (arg)
 "Insert a tag pair for Database
\[The name of a database, or part of a database]."
  (interactive "P")
  (docbook-insert-tag-pair "Database" t))

(defun docbook-tag-Date (arg)
 "Insert a tag pair for Date
\[The date of publication or revision of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Date" t))

(defun docbook-tag-Dedication (arg)
 "Insert a tag pair for Dedication
\[A wrapper for the dedication section of a book]."
  (interactive "P")
  (docbook-insert-tag-pair "Dedication" t))

(defun docbook-tag-DocInfo (arg)
 "Insert a tag pair for DocInfo
\[Meta-data for a book component]."
  (interactive "P")
  (docbook-insert-tag-pair "DocInfo" t))

(defun docbook-tag-Edition (arg)
 "Insert a tag pair for Edition
\[The name or number of an edition of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Edition" t))

(defun docbook-tag-Editor (arg)
 "Insert a tag pair for Editor
\[The name of the editor of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Editor" t))

(defun docbook-tag-Email (arg)
 "Insert a tag pair for Email
\[An email address]."
  (interactive "P")
  (docbook-insert-tag-pair "Email" t))

(defun docbook-tag-Emphasis (arg)
 "Insert a tag pair for Emphasis
\[Emphasized text]."
  (interactive "P")
  (docbook-insert-tag-pair "Emphasis" t))

(defun docbook-tag-EnVar (arg)
 "Insert a tag pair for EnVar
\[A software environment variable]."
  (interactive "P")
  (docbook-insert-tag-pair "EnVar" t))

(defun docbook-tag-Entry (arg)
 "Insert a tag pair for Entry
\[A cell in a table]."
  (interactive "P")
  (docbook-insert-tag-pair "Entry" t))

(defun docbook-tag-EntryTbl (arg)
 "Insert a tag pair for EntryTbl
\[A subtable appearing in place of an Entry in a table]."
  (interactive "P")
  (docbook-insert-tag-pair "EntryTbl" t))

(defun docbook-tag-Epigraph (arg)
 "Insert a tag pair for Epigraph
\[A short inscription at the beginning of a document or component]."
  (interactive "P")
  (docbook-insert-tag-pair "Epigraph" t))

(defun docbook-tag-Equation (arg)
 "Insert a tag pair for Equation
\[A displayed mathematical equation]."
  (interactive "P")
  (docbook-insert-tag-pair "Equation" t))

(defun docbook-tag-ErrorCode (arg)
 "Insert a tag pair for ErrorCode
\[An error code]."
  (interactive "P")
  (docbook-insert-tag-pair "ErrorCode" t))

(defun docbook-tag-ErrorName (arg)
 "Insert a tag pair for ErrorName
\[An error message]."
  (interactive "P")
  (docbook-insert-tag-pair "ErrorName" t))

(defun docbook-tag-ErrorType (arg)
 "Insert a tag pair for ErrorType
\[The classification of an error message]."
  (interactive "P")
  (docbook-insert-tag-pair "ErrorType" t))

(defun docbook-tag-Example (arg)
 "Insert a tag pair for Example
\[A formal example, with a title]."
  (interactive "P")
  (docbook-insert-tag-pair "Example" t))

(defun docbook-tag-Fax (arg)
 "Insert a tag pair for Fax
\[A fax number]."
  (interactive "P")
  (docbook-insert-tag-pair "Fax" t))

(defun docbook-tag-Figure (arg)
 "Insert a tag pair for Figure
\[A formal figure, generally an illustration, with a title]."
  (interactive "P")
  (docbook-insert-tag-pair "Figure" t))

(defun docbook-tag-Filename (arg)
 "Insert a tag pair for Filename
\[The name of a file]."
  (interactive "P")
  (docbook-insert-tag-pair "Filename" t))

(defun docbook-tag-FirstName (arg)
 "Insert a tag pair for FirstName
\[The first name of a person]."
  (interactive "P")
  (docbook-insert-tag-pair "FirstName" t))

(defun docbook-tag-FirstTerm (arg)
 "Insert a tag pair for FirstTerm
\[The first occurrence of a term]."
  (interactive "P")
  (docbook-insert-tag-pair "FirstTerm" t))

(defun docbook-tag-Footnote (arg)
 "Insert a tag pair for Footnote
\[A footnote]."
  (interactive "P")
  (docbook-insert-tag-pair "Footnote" t))

(defun docbook-tag-FootnoteRef (arg)
 "Insert a tag pair for FootnoteRef
\[A cross reference to a footnote (a footnote mark)]."
  (interactive "P")
  (docbook-insert-tag-pair "FootnoteRef" t))

(defun docbook-tag-ForeignPhrase (arg)
 "Insert a tag pair for ForeignPhrase
\[A word or phrase in a language other than the primary language of the document]."
  (interactive "P")
  (docbook-insert-tag-pair "ForeignPhrase" t))

(defun docbook-tag-FormalPara (arg)
 "Insert a tag pair for FormalPara
\[A paragraph with a title]."
  (interactive "P")
  (docbook-insert-tag-pair "FormalPara" t))

(defun docbook-tag-FuncDef (arg)
 "Insert a tag pair for FuncDef
\[A function (subroutine) name and its return type]."
  (interactive "P")
  (docbook-insert-tag-pair "FuncDef" t))

(defun docbook-tag-FuncParams (arg)
 "Insert a tag pair for FuncParams
\[Parameters for a function referenced through a function pointer in a synopsis]."
  (interactive "P")
  (docbook-insert-tag-pair "FuncParams" t))

(defun docbook-tag-FuncPrototype (arg)
 "Insert a tag pair for FuncPrototype
\[The prototype of a function]."
  (interactive "P")
  (docbook-insert-tag-pair "FuncPrototype" t))

(defun docbook-tag-FuncSynopsis (arg)
 "Insert a tag pair for FuncSynopsis
\[The syntax summary for a function definition]."
  (interactive "P")
  (docbook-insert-tag-pair "FuncSynopsis" t))

(defun docbook-tag-FuncSynopsisInfo (arg)
 "Insert a tag pair for FuncSynopsisInfo
\[Information supplementing the FuncDefs of a FuncSynopsis]."
  (interactive "P")
  (docbook-insert-tag-pair "FuncSynopsisInfo" t))

(defun docbook-tag-GUIButton (arg)
 "Insert a tag pair for GUIButton
\[The text on a button in a GUI]."
  (interactive "P")
  (docbook-insert-tag-pair "GUIButton" t))

(defun docbook-tag-GUIIcon (arg)
 "Insert a tag pair for GUIIcon
\[Graphic and/or text appearing as a icon in a GUI]."
  (interactive "P")
  (docbook-insert-tag-pair "GUIIcon" t))

(defun docbook-tag-GUILabel (arg)
 "Insert a tag pair for GUILabel
\[The text of a label in a GUI]."
  (interactive "P")
  (docbook-insert-tag-pair "GUILabel" t))

(defun docbook-tag-GUIMenu (arg)
 "Insert a tag pair for GUIMenu
\[The name of a menu in a GUI]."
  (interactive "P")
  (docbook-insert-tag-pair "GUIMenu" t))

(defun docbook-tag-GUIMenuItem (arg)
 "Insert a tag pair for GUIMenuItem
\[The name of a terminal menu item in a GUI]."
  (interactive "P")
  (docbook-insert-tag-pair "GUIMenuItem" t))

(defun docbook-tag-GUISubmenu (arg)
 "Insert a tag pair for GUISubmenu
\[The name of a submenu in a GUI]."
  (interactive "P")
  (docbook-insert-tag-pair "GUISubmenu" t))

(defun docbook-tag-GlossDef (arg)
 "Insert a tag pair for GlossDef
\[A definition in a GlossEntry]."
  (interactive "P")
  (docbook-insert-tag-pair "GlossDef" t))

(defun docbook-tag-GlossDiv (arg)
 "Insert a tag pair for GlossDiv
\[A division in a Glossary]."
  (interactive "P")
  (docbook-insert-tag-pair "GlossDiv" t))

(defun docbook-tag-GlossEntry (arg)
 "Insert a tag pair for GlossEntry
\[An entry in a Glossary or GlossList]."
  (interactive "P")
  (docbook-insert-tag-pair "GlossEntry" t))

(defun docbook-tag-GlossList (arg)
 "Insert a tag pair for GlossList
\[A wrapper for a set of GlossEntrys]."
  (interactive "P")
  (docbook-insert-tag-pair "GlossList" t))

(defun docbook-tag-GlossSee (arg)
 "Insert a tag pair for GlossSee
\[A cross-reference from one GlossEntry to another]."
  (interactive "P")
  (docbook-insert-tag-pair "GlossSee" t))

(defun docbook-tag-GlossSeeAlso (arg)
 "Insert a tag pair for GlossSeeAlso
\[A cross-reference from one GlossEntry to another]."
  (interactive "P")
  (docbook-insert-tag-pair "GlossSeeAlso" t))

(defun docbook-tag-GlossTerm (arg)
 "Insert a tag pair for GlossTerm
\[A glossary term]."
  (interactive "P")
  (docbook-insert-tag-pair "GlossTerm" t))

(defun docbook-tag-Glossary (arg)
 "Insert a tag pair for Glossary
\[A glossary]."
  (interactive "P")
  (docbook-insert-tag-pair "Glossary" t))

(defun docbook-tag-Graphic (arg)
 "Insert a tag pair for Graphic
\[A displayed graphical object (not an inline)]."
  (interactive "P")
  (docbook-insert-tag-pair "Graphic" t))

(defun docbook-tag-GraphicCO (arg)
 "Insert a tag pair for GraphicCO
\[A graphic that contains callout areas]."
  (interactive "P")
  (docbook-insert-tag-pair "GraphicCO" t))

(defun docbook-tag-Group (arg)
 "Insert a tag pair for Group
\[A group of elements in a CmdSynopsis]."
  (interactive "P")
  (docbook-insert-tag-pair "Group" t))

(defun docbook-tag-Hardware (arg)
 "Insert a tag pair for Hardware
\[A physical part of a computer system]."
  (interactive "P")
  (docbook-insert-tag-pair "Hardware" t))

(defun docbook-tag-Highlights (arg)
 "Insert a tag pair for Highlights
\[A summary of the main points of the discussed component]."
  (interactive "P")
  (docbook-insert-tag-pair "Highlights" t))

(defun docbook-tag-Holder (arg)
 "Insert a tag pair for Holder
\[The name of the individual or organization that holds a copyright]."
  (interactive "P")
  (docbook-insert-tag-pair "Holder" t))

(defun docbook-tag-Honorific (arg)
 "Insert a tag pair for Honorific
\[The title of a person]."
  (interactive "P")
  (docbook-insert-tag-pair "Honorific" t))

(defun docbook-tag-ISBN (arg)
 "Insert a tag pair for ISBN
\[The International Standard Book Number of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "ISBN" t))

(defun docbook-tag-ISSN (arg)
 "Insert a tag pair for ISSN
\[The International Standard Serial Number of a periodical]."
  (interactive "P")
  (docbook-insert-tag-pair "ISSN" t))

(defun docbook-tag-ITermSet (arg)
 "Insert a tag pair for ITermSet
\[A set of index terms in the meta-information of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "ITermSet" t))

(defun docbook-tag-ImageData (arg)
 "Insert a tag pair for ImageData
\[Pointer to external image data]."
  (interactive "P")
  (docbook-insert-tag-pair "ImageData" t))

(defun docbook-tag-ImageObject (arg)
 "Insert a tag pair for ImageObject
\[A wrapper for image data and its associated meta-information]."
  (interactive "P")
  (docbook-insert-tag-pair "ImageObject" t))

(defun docbook-tag-ImageObjectCO (arg)
 "Insert a tag pair for ImageObjectCO
\[A wrapper for an image object with callouts]."
  (interactive "P")
  (docbook-insert-tag-pair "ImageObjectCO" t))

(defun docbook-tag-Important (arg)
 "Insert a tag pair for Important
\[An admonition set off from the text]."
  (interactive "P")
  (docbook-insert-tag-pair "Important" t))

(defun docbook-tag-Index (arg)
 "Insert a tag pair for Index
\[An index]."
  (interactive "P")
  (docbook-insert-tag-pair "Index" t))

(defun docbook-tag-IndexDiv (arg)
 "Insert a tag pair for IndexDiv
\[A division in an index]."
  (interactive "P")
  (docbook-insert-tag-pair "IndexDiv" t))

(defun docbook-tag-IndexEntry (arg)
 "Insert a tag pair for IndexEntry
\[An entry in an index]."
  (interactive "P")
  (docbook-insert-tag-pair "IndexEntry" t))

(defun docbook-tag-IndexTerm (arg)
 "Insert a tag pair for IndexTerm
\[A wrapper for terms to be indexed]."
  (interactive "P")
  (docbook-insert-tag-pair "IndexTerm" t))

(defun docbook-tag-InformalEquation (arg)
 "Insert a tag pair for InformalEquation
\[A displayed mathematical equation without a title]."
  (interactive "P")
  (docbook-insert-tag-pair "InformalEquation" t))

(defun docbook-tag-InformalExample (arg)
 "Insert a tag pair for InformalExample
\[A displayed example without a title]."
  (interactive "P")
  (docbook-insert-tag-pair "InformalExample" t))

(defun docbook-tag-InformalFigure (arg)
 "Insert a tag pair for InformalFigure
\[A untitled figure]."
  (interactive "P")
  (docbook-insert-tag-pair "InformalFigure" t))

(defun docbook-tag-InformalTable (arg)
 "Insert a tag pair for InformalTable
\[A table without a title]."
  (interactive "P")
  (docbook-insert-tag-pair "InformalTable" t))

(defun docbook-tag-InlineEquation (arg)
 "Insert a tag pair for InlineEquation
\[A mathematical equation or expression occurring inline]."
  (interactive "P")
  (docbook-insert-tag-pair "InlineEquation" t))

(defun docbook-tag-InlineGraphic (arg)
 "Insert a tag pair for InlineGraphic
\[An object containing or pointing to graphical data that will be rendered inline]."
  (interactive "P")
  (docbook-insert-tag-pair "InlineGraphic" t))

(defun docbook-tag-InlineMediaObject (arg)
 "Insert a tag pair for InlineMediaObject
\[An inline media object (video, audio, image, and so on)]."
  (interactive "P")
  (docbook-insert-tag-pair "InlineMediaObject" t))

(defun docbook-tag-Interface (arg)
 "Insert a tag pair for Interface
\[An element of a GUI]."
  (interactive "P")
  (docbook-insert-tag-pair "Interface" t))

(defun docbook-tag-InterfaceDefinition (arg)
 "Insert a tag pair for InterfaceDefinition
\[The name of a formal specification of a GUI]."
  (interactive "P")
  (docbook-insert-tag-pair "InterfaceDefinition" t))

(defun docbook-tag-InvPartNumber (arg)
 "Insert a tag pair for InvPartNumber
\[An inventory part number]."
  (interactive "P")
  (docbook-insert-tag-pair "InvPartNumber" t))

(defun docbook-tag-IssueNum (arg)
 "Insert a tag pair for IssueNum
\[The number of an issue of a journal]."
  (interactive "P")
  (docbook-insert-tag-pair "IssueNum" t))

(defun docbook-tag-ItemizedList (arg)
 "Insert a tag pair for ItemizedList
\[A list in which each entry is marked with a bullet or other dingbat]."
  (interactive "P")
  (docbook-insert-tag-pair "ItemizedList" t))

(defun docbook-tag-JobTitle (arg)
 "Insert a tag pair for JobTitle
\[The title of an individual in an organization]."
  (interactive "P")
  (docbook-insert-tag-pair "JobTitle" t))

(defun docbook-tag-KeyCap (arg)
 "Insert a tag pair for KeyCap
\[The text printed on a key on a keyboard]."
  (interactive "P")
  (docbook-insert-tag-pair "KeyCap" t))

(defun docbook-tag-KeyCode (arg)
 "Insert a tag pair for KeyCode
\[The internal, frequently numeric, identifier for a key on a keyboard]."
  (interactive "P")
  (docbook-insert-tag-pair "KeyCode" t))

(defun docbook-tag-KeyCombo (arg)
 "Insert a tag pair for KeyCombo
\[A combination of input actions]."
  (interactive "P")
  (docbook-insert-tag-pair "KeyCombo" t))

(defun docbook-tag-KeySym (arg)
 "Insert a tag pair for KeySym
\[The symbolic name of a key on a keyboard]."
  (interactive "P")
  (docbook-insert-tag-pair "KeySym" t))

(defun docbook-tag-Keyword (arg)
 "Insert a tag pair for Keyword
\[One of a set of keywords describing the content of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Keyword" t))

(defun docbook-tag-KeywordSet (arg)
 "Insert a tag pair for KeywordSet
\[A set of keywords describing the content of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "KeywordSet" t))

(defun docbook-tag-LegalNotice (arg)
 "Insert a tag pair for LegalNotice
\[A statement of legal obligations or requirements]."
  (interactive "P")
  (docbook-insert-tag-pair "LegalNotice" t))

(defun docbook-tag-LineAnnotation (arg)
 "Insert a tag pair for LineAnnotation
\[A comment on a line in a verbatim listing]."
  (interactive "P")
  (docbook-insert-tag-pair "LineAnnotation" nil))

(defun docbook-tag-Lineage (arg)
 "Insert a tag pair for Lineage
\[The portion of a person's name indicating a relationship to ancestors]."
  (interactive "P")
  (docbook-insert-tag-pair "Lineage" t))

(defun docbook-tag-Link (arg)
 "Insert a tag pair for Link
\[A hypertext link]."
  (interactive "P")
  (docbook-insert-tag-pair "Link" t))

(defun docbook-tag-ListItem (arg)
 "Insert a tag pair for ListItem
\[A wrapper for the elements of a list item]."
  (interactive "P")
  (docbook-insert-tag-pair "ListItem" t))

(defun docbook-tag-Literal (arg)
 "Insert a tag pair for Literal
\[Inline text that is some literal value]."
  (interactive "P")
  (docbook-insert-tag-pair "Literal" t))

(defun docbook-tag-LiteralLayout (arg)
 "Insert a tag pair for LiteralLayout
\[A block of text in which line breaks and white space are to be reproduced faithfully]."
  (interactive "P")
  (docbook-insert-tag-pair "LiteralLayout" t))

(defun docbook-tag-LoT (arg)
 "Insert a tag pair for LoT
\[A list of the titles of formal objects (as tables or figures) in a document]."
  (interactive "P")
  (docbook-insert-tag-pair "LoT" t))

(defun docbook-tag-LoTentry (arg)
 "Insert a tag pair for LoTentry
\[An entry in a list of titles]."
  (interactive "P")
  (docbook-insert-tag-pair "LoTentry" t))

(defun docbook-tag-ManVolNum (arg)
 "Insert a tag pair for ManVolNum
\[A reference volume number]."
  (interactive "P")
  (docbook-insert-tag-pair "ManVolNum" t))

(defun docbook-tag-Markup (arg)
 "Insert a tag pair for Markup
\[A string of formatting markup in text that is to be represented literally]."
  (interactive "P")
  (docbook-insert-tag-pair "Markup" t))

(defun docbook-tag-MediaLabel (arg)
 "Insert a tag pair for MediaLabel
\[A name that identifies the physical medium on which some information resides]."
  (interactive "P")
  (docbook-insert-tag-pair "MediaLabel" t))

(defun docbook-tag-MediaObject (arg)
 "Insert a tag pair for MediaObject
\[A displayed media object (video, audio, image, etc.)]."
  (interactive "P")
  (docbook-insert-tag-pair "MediaObject" t))

(defun docbook-tag-MediaObjectCO (arg)
 "Insert a tag pair for MediaObjectCO
\[A media object that contains callouts]."
  (interactive "P")
  (docbook-insert-tag-pair "MediaObjectCO" t))

(defun docbook-tag-Member (arg)
 "Insert a tag pair for Member
\[An element of a simple list]."
  (interactive "P")
  (docbook-insert-tag-pair "Member" t))

(defun docbook-tag-MenuChoice (arg)
 "Insert a tag pair for MenuChoice
\[A selection or series of selections from a menu]."
  (interactive "P")
  (docbook-insert-tag-pair "MenuChoice" t))

(defun docbook-tag-ModeSpec (arg)
 "Insert a tag pair for ModeSpec
\[Application-specific information necessary for the completion of an OLink]."
  (interactive "P")
  (docbook-insert-tag-pair "ModeSpec" t))

(defun docbook-tag-MouseButton (arg)
 "Insert a tag pair for MouseButton
\[The conventional name of a mouse button]."
  (interactive "P")
  (docbook-insert-tag-pair "MouseButton" t))

(defun docbook-tag-Msg (arg)
 "Insert a tag pair for Msg
\[A message in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "Msg" t))

(defun docbook-tag-MsgAud (arg)
 "Insert a tag pair for MsgAud
\[The audience to which a message in a message set is relevant]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgAud" t))

(defun docbook-tag-MsgEntry (arg)
 "Insert a tag pair for MsgEntry
\[A wrapper for an entry in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgEntry" t))

(defun docbook-tag-MsgExplan (arg)
 "Insert a tag pair for MsgExplan
\[Explanatory material relating to a message in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgExplan" t))

(defun docbook-tag-MsgInfo (arg)
 "Insert a tag pair for MsgInfo
\[Information about a message in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgInfo" t))

(defun docbook-tag-MsgLevel (arg)
 "Insert a tag pair for MsgLevel
\[The level of importance or severity of a message in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgLevel" t))

(defun docbook-tag-MsgMain (arg)
 "Insert a tag pair for MsgMain
\[The primary component of a message in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgMain" t))

(defun docbook-tag-MsgOrig (arg)
 "Insert a tag pair for MsgOrig
\[The origin of a message in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgOrig" t))

(defun docbook-tag-MsgRel (arg)
 "Insert a tag pair for MsgRel
\[A related component of a message in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgRel" t))

(defun docbook-tag-MsgSet (arg)
 "Insert a tag pair for MsgSet
\[A detailed set of messages, usually error messages]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgSet" t))

(defun docbook-tag-MsgSub (arg)
 "Insert a tag pair for MsgSub
\[A subcomponent of a message in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgSub" t))

(defun docbook-tag-MsgText (arg)
 "Insert a tag pair for MsgText
\[The actual text of a message component in a message set]."
  (interactive "P")
  (docbook-insert-tag-pair "MsgText" t))

(defun docbook-tag-Note (arg)
 "Insert a tag pair for Note
\[A message set off from the text]."
  (interactive "P")
  (docbook-insert-tag-pair "Note" t))

(defun docbook-tag-OLink (arg)
 "Insert a tag pair for OLink
\[A link that addresses its target indirectly, through an entity]."
  (interactive "P")
  (docbook-insert-tag-pair "OLink" t))

(defun docbook-tag-ObjectInfo (arg)
 "Insert a tag pair for ObjectInfo
\[Meta-information for an object]."
  (interactive "P")
  (docbook-insert-tag-pair "ObjectInfo" t))

(defun docbook-tag-Option (arg)
 "Insert a tag pair for Option
\[An option for a software command]."
  (interactive "P")
  (docbook-insert-tag-pair "Option" t))

(defun docbook-tag-Optional (arg)
 "Insert a tag pair for Optional
\[Optional information]."
  (interactive "P")
  (docbook-insert-tag-pair "Optional" t))

(defun docbook-tag-OrderedList (arg)
 "Insert a tag pair for OrderedList
\[A list in which each entry is marked with a sequentially incremented label]."
  (interactive "P")
  (docbook-insert-tag-pair "OrderedList" t))

(defun docbook-tag-OrgDiv (arg)
 "Insert a tag pair for OrgDiv
\[A division of an organization]."
  (interactive "P")
  (docbook-insert-tag-pair "OrgDiv" t))

(defun docbook-tag-OrgName (arg)
 "Insert a tag pair for OrgName
\[The name of an organization other than a corporation]."
  (interactive "P")
  (docbook-insert-tag-pair "OrgName" t))

(defun docbook-tag-OtherAddr (arg)
 "Insert a tag pair for OtherAddr
\[Uncategorized information in address]."
  (interactive "P")
  (docbook-insert-tag-pair "OtherAddr" t))

(defun docbook-tag-OtherCredit (arg)
 "Insert a tag pair for OtherCredit
\[A person or entity, other than an author or editor, credited in a document]."
  (interactive "P")
  (docbook-insert-tag-pair "OtherCredit" t))

(defun docbook-tag-OtherName (arg)
 "Insert a tag pair for OtherName
\[A component of a persons name that is not a first name, surname, or lineage]."
  (interactive "P")
  (docbook-insert-tag-pair "OtherName" t))

(defun docbook-tag-POB (arg)
 "Insert a tag pair for POB
\[A post office box in an address]."
  (interactive "P")
  (docbook-insert-tag-pair "POB" t))

(defun docbook-tag-PageNums (arg)
 "Insert a tag pair for PageNums
\[The numbers of the pages in a book, for use in a bibliographic entry]."
  (interactive "P")
  (docbook-insert-tag-pair "PageNums" t))

(defun docbook-tag-Para (arg)
 "Insert a tag pair for Para
\[A paragraph]."
  (interactive "P")
  (docbook-insert-tag-pair "Para" t))

(defun docbook-tag-ParamDef (arg)
 "Insert a tag pair for ParamDef
\[Information about a function parameter in a programming language]."
  (interactive "P")
  (docbook-insert-tag-pair "ParamDef" t))

(defun docbook-tag-Parameter (arg)
 "Insert a tag pair for Parameter
\[A value or a symbolic reference to a value]."
  (interactive "P")
  (docbook-insert-tag-pair "Parameter" t))

(defun docbook-tag-Part (arg)
 "Insert a tag pair for Part
\[A division in a book]."
  (interactive "P")
  (docbook-insert-tag-pair "Part" t))

(defun docbook-tag-PartIntro (arg)
 "Insert a tag pair for PartIntro
\[An introduction to the contents of a part]."
  (interactive "P")
  (docbook-insert-tag-pair "PartIntro" t))

(defun docbook-tag-Phone (arg)
 "Insert a tag pair for Phone
\[A telephone number]."
  (interactive "P")
  (docbook-insert-tag-pair "Phone" t))

(defun docbook-tag-Phrase (arg)
 "Insert a tag pair for Phrase
\[A span of text]."
  (interactive "P")
  (docbook-insert-tag-pair "Phrase" t))

(defun docbook-tag-Postcode (arg)
 "Insert a tag pair for Postcode
\[A postal code in an address]."
  (interactive "P")
  (docbook-insert-tag-pair "Postcode" t))

(defun docbook-tag-Preface (arg)
 "Insert a tag pair for Preface
\[Introductory matter preceding the first chapter of a book]."
  (interactive "P")
  (docbook-insert-tag-pair "Preface" t))

(defun docbook-tag-Primary (arg)
 "Insert a tag pair for Primary
\[The primary word or phrase under which an index term should be sorted]."
  (interactive "P")
  (docbook-insert-tag-pair "Primary" t))

(defun docbook-tag-PrimaryIE (arg)
 "Insert a tag pair for PrimaryIE
\[A primary term in an index entry, not in the text]."
  (interactive "P")
  (docbook-insert-tag-pair "PrimaryIE" t))

(defun docbook-tag-PrintHistory (arg)
 "Insert a tag pair for PrintHistory
\[The printing history of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "PrintHistory" t))

(defun docbook-tag-Procedure (arg)
 "Insert a tag pair for Procedure
\[A list of operations to be performed in a well-defined sequence]."
  (interactive "P")
  (docbook-insert-tag-pair "Procedure" t))

(defun docbook-tag-ProductName (arg)
 "Insert a tag pair for ProductName
\[The formal name of a product]."
  (interactive "P")
  (docbook-insert-tag-pair "ProductName" t))

(defun docbook-tag-ProductNumber (arg)
 "Insert a tag pair for ProductNumber
\[A number assigned to a product]."
  (interactive "P")
  (docbook-insert-tag-pair "ProductNumber" t))

(defun docbook-tag-ProgramListing (arg)
 "Insert a tag pair for ProgramListing
\[A literal listing of all or part of a program]."
  (interactive "P")
  (docbook-insert-tag-pair "ProgramListing" t))

(defun docbook-tag-ProgramListingCO (arg)
 "Insert a tag pair for ProgramListingCO
\[A program listing with associated areas used in callouts]."
  (interactive "P")
  (docbook-insert-tag-pair "ProgramListingCO" t))

(defun docbook-tag-Prompt (arg)
 "Insert a tag pair for Prompt
\[A character or string indicating the start of an input field in a computer display]."
  (interactive "P")
  (docbook-insert-tag-pair "Prompt" t))

(defun docbook-tag-Property (arg)
 "Insert a tag pair for Property
\[A unit of data associated with some part of a computer system]."
  (interactive "P")
  (docbook-insert-tag-pair "Property" t))

(defun docbook-tag-PubDate (arg)
 "Insert a tag pair for PubDate
\[The date of publication of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "PubDate" t))

(defun docbook-tag-Publisher (arg)
 "Insert a tag pair for Publisher
\[The publisher of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Publisher" t))

(defun docbook-tag-PublisherName (arg)
 "Insert a tag pair for PublisherName
\[The name of the publisher of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "PublisherName" t))

(defun docbook-tag-PubsNumber (arg)
 "Insert a tag pair for PubsNumber
\[A number assigned to a publication other than an ISBN or ISSN or inventory part number]."
  (interactive "P")
  (docbook-insert-tag-pair "PubsNumber" t))

(defun docbook-tag-QandADiv (arg)
 "Insert a tag pair for QandADiv
\[A titled division in a QandASet]."
  (interactive "P")
  (docbook-insert-tag-pair "QandADiv" t))

(defun docbook-tag-QandAEntry (arg)
 "Insert a tag pair for QandAEntry
\[A question/answer set within a QandASet]."
  (interactive "P")
  (docbook-insert-tag-pair "QandAEntry" t))

(defun docbook-tag-QandASet (arg)
 "Insert a tag pair for QandASet
\[A question-and-answer set]."
  (interactive "P")
  (docbook-insert-tag-pair "QandASet" t))

(defun docbook-tag-Question (arg)
 "Insert a tag pair for Question
\[A question in a QandASet]."
  (interactive "P")
  (docbook-insert-tag-pair "Question" t))

(defun docbook-tag-Quote (arg)
 "Insert a tag pair for Quote
\[An inline quotation]."
  (interactive "P")
  (docbook-insert-tag-pair "Quote" t))

(defun docbook-tag-RefClass (arg)
 "Insert a tag pair for RefClass
\[The scope or other indication of applicability of a reference entry]."
  (interactive "P")
  (docbook-insert-tag-pair "RefClass" t))

(defun docbook-tag-RefDescriptor (arg)
 "Insert a tag pair for RefDescriptor
\[A description of the topic of a reference page]."
  (interactive "P")
  (docbook-insert-tag-pair "RefDescriptor" t))

(defun docbook-tag-RefEntry (arg)
 "Insert a tag pair for RefEntry
\[A reference page (originally a UNIX man-style reference page)]."
  (interactive "P")
  (docbook-insert-tag-pair "RefEntry" t))

(defun docbook-tag-RefEntryTitle (arg)
 "Insert a tag pair for RefEntryTitle
\[The title of a reference page]."
  (interactive "P")
  (docbook-insert-tag-pair "RefEntryTitle" t))

(defun docbook-tag-RefMeta (arg)
 "Insert a tag pair for RefMeta
\[Meta-information for a reference entry]."
  (interactive "P")
  (docbook-insert-tag-pair "RefMeta" t))

(defun docbook-tag-RefMiscInfo (arg)
 "Insert a tag pair for RefMiscInfo
\[Meta-information for a reference entry other than the title and volume number]."
  (interactive "P")
  (docbook-insert-tag-pair "RefMiscInfo" t))

(defun docbook-tag-RefName (arg)
 "Insert a tag pair for RefName
\[The name of (one of) the subject(s) of a reference page]."
  (interactive "P")
  (docbook-insert-tag-pair "RefName" t))

(defun docbook-tag-RefNameDiv (arg)
 "Insert a tag pair for RefNameDiv
\[The name, purpose, and classification of a reference page]."
  (interactive "P")
  (docbook-insert-tag-pair "RefNameDiv" t))

(defun docbook-tag-RefPurpose (arg)
 "Insert a tag pair for RefPurpose
\[A short (one sentence) synopsis of the topic of a reference page]."
  (interactive "P")
  (docbook-insert-tag-pair "RefPurpose" t))

(defun docbook-tag-RefSect1 (arg)
 "Insert a tag pair for RefSect1
\[A major subsection of a reference entry]."
  (interactive "P")
  (docbook-insert-tag-pair "RefSect1" t))

(defun docbook-tag-RefSect1Info (arg)
 "Insert a tag pair for RefSect1Info
\[Meta-information for a RefSect1]."
  (interactive "P")
  (docbook-insert-tag-pair "RefSect1Info" t))

(defun docbook-tag-RefSect2 (arg)
 "Insert a tag pair for RefSect2
\[A subsection of a RefSect1]."
  (interactive "P")
  (docbook-insert-tag-pair "RefSect2" t))

(defun docbook-tag-RefSect2Info (arg)
 "Insert a tag pair for RefSect2Info
\[Meta-information for a RefSect2]."
  (interactive "P")
  (docbook-insert-tag-pair "RefSect2Info" t))

(defun docbook-tag-RefSect3 (arg)
 "Insert a tag pair for RefSect3
\[A subsection of a RefSect2]."
  (interactive "P")
  (docbook-insert-tag-pair "RefSect3" t))

(defun docbook-tag-RefSect3Info (arg)
 "Insert a tag pair for RefSect3Info
\[Meta-information for a RefSect3]."
  (interactive "P")
  (docbook-insert-tag-pair "RefSect3Info" t))

(defun docbook-tag-RefSynopsisDiv (arg)
 "Insert a tag pair for RefSynopsisDiv
\[A syntactic synopsis of the subject of the reference page]."
  (interactive "P")
  (docbook-insert-tag-pair "RefSynopsisDiv" t))

(defun docbook-tag-RefSynopsisDivInfo (arg)
 "Insert a tag pair for RefSynopsisDivInfo
\[Meta-information for a RefSynopsisDiv]."
  (interactive "P")
  (docbook-insert-tag-pair "RefSynopsisDivInfo" t))

(defun docbook-tag-Reference (arg)
 "Insert a tag pair for Reference
\[A collection of reference entries]."
  (interactive "P")
  (docbook-insert-tag-pair "Reference" t))

(defun docbook-tag-ReleaseInfo (arg)
 "Insert a tag pair for ReleaseInfo
\[Information about a particular release of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "ReleaseInfo" t))

(defun docbook-tag-Replaceable (arg)
 "Insert a tag pair for Replaceable
\[Content that may or must be replaced by the user]."
  (interactive "P")
  (docbook-insert-tag-pair "Replaceable" t))

(defun docbook-tag-ReturnValue (arg)
 "Insert a tag pair for ReturnValue
\[The value returned by a function]."
  (interactive "P")
  (docbook-insert-tag-pair "ReturnValue" t))

(defun docbook-tag-RevHistory (arg)
 "Insert a tag pair for RevHistory
\[A history of the revisions to a document]."
  (interactive "P")
  (docbook-insert-tag-pair "RevHistory" t))

(defun docbook-tag-RevNumber (arg)
 "Insert a tag pair for RevNumber
\[A document revision number]."
  (interactive "P")
  (docbook-insert-tag-pair "RevNumber" t))

(defun docbook-tag-RevRemark (arg)
 "Insert a tag pair for RevRemark
\[A description of a revision to a document]."
  (interactive "P")
  (docbook-insert-tag-pair "RevRemark" t))

(defun docbook-tag-Revision (arg)
 "Insert a tag pair for Revision
\[An entry describing a single revision in the history of the revisions to a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Revision" t))

(defun docbook-tag-Row (arg)
 "Insert a tag pair for Row
\[A row in a table]."
  (interactive "P")
  (docbook-insert-tag-pair "Row" t))

(defun docbook-tag-SBR (arg)
 "Insert a tag pair for SBR
\[An explicit line break in a command synopsis]."
  (interactive "P")
  (docbook-insert-tag-pair "SBR" t))

(defun docbook-tag-SGMLTag (arg)
 "Insert a tag pair for SGMLTag
\[A component of SGML markup]."
  (interactive "P")
  (docbook-insert-tag-pair "SGMLTag" t))

(defun docbook-tag-Screen (arg)
 "Insert a tag pair for Screen
\[Text that a user sees or might see on a computer screen]."
  (interactive "P")
  (docbook-insert-tag-pair "Screen" t))

(defun docbook-tag-ScreenCO (arg)
 "Insert a tag pair for ScreenCO
\[A screen with associated areas used in callouts]."
  (interactive "P")
  (docbook-insert-tag-pair "ScreenCO" t))

(defun docbook-tag-ScreenInfo (arg)
 "Insert a tag pair for ScreenInfo
\[Information about how a screen shot was produced]."
  (interactive "P")
  (docbook-insert-tag-pair "ScreenInfo" t))

(defun docbook-tag-ScreenShot (arg)
 "Insert a tag pair for ScreenShot
\[A representation of what the user sees or might see on a computer screen]."
  (interactive "P")
  (docbook-insert-tag-pair "ScreenShot" t))

(defun docbook-tag-Secondary (arg)
 "Insert a tag pair for Secondary
\[A secondary word or phrase in an index term]."
  (interactive "P")
  (docbook-insert-tag-pair "Secondary" t))

(defun docbook-tag-SecondaryIE (arg)
 "Insert a tag pair for SecondaryIE
\[A secondary term in an index entry, rather than in the text]."
  (interactive "P")
  (docbook-insert-tag-pair "SecondaryIE" t))

(defun docbook-tag-Sect1 (arg)
 "Insert a tag pair for Sect1
\[A top-level section of document]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect1" t))

(defun docbook-tag-Sect1Info (arg)
 "Insert a tag pair for Sect1Info
\[Meta-information for a Sect1]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect1Info" t))

(defun docbook-tag-Sect2 (arg)
 "Insert a tag pair for Sect2
\[A subsection within a Sect1]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect2" t))

(defun docbook-tag-Sect2Info (arg)
 "Insert a tag pair for Sect2Info
\[Meta-information for a Sect2]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect2Info" t))

(defun docbook-tag-Sect3 (arg)
 "Insert a tag pair for Sect3
\[A subsection within a Sect2]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect3" t))

(defun docbook-tag-Sect3Info (arg)
 "Insert a tag pair for Sect3Info
\[Meta-information for a Sect3]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect3Info" t))

(defun docbook-tag-Sect4 (arg)
 "Insert a tag pair for Sect4
\[A subsection within a Sect3]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect4" t))

(defun docbook-tag-Sect4Info (arg)
 "Insert a tag pair for Sect4Info
\[Meta-information for a Sect4]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect4Info" t))

(defun docbook-tag-Sect5 (arg)
 "Insert a tag pair for Sect5
\[A subsection within a Sect4]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect5" t))

(defun docbook-tag-Sect5Info (arg)
 "Insert a tag pair for Sect5Info
\[Meta-information for a Sect5]."
  (interactive "P")
  (docbook-insert-tag-pair "Sect5Info" t))

(defun docbook-tag-Section (arg)
 "Insert a tag pair for Section
\[A recursive section]."
  (interactive "P")
  (docbook-insert-tag-pair "Section" t))

(defun docbook-tag-SectionInfo (arg)
 "Insert a tag pair for SectionInfo
\[Meta-information for a recursive section]."
  (interactive "P")
  (docbook-insert-tag-pair "SectionInfo" t))

(defun docbook-tag-See (arg)
 "Insert a tag pair for See
\[Part of an index term directing the reader instead to another entry in the index]."
  (interactive "P")
  (docbook-insert-tag-pair "See" t))

(defun docbook-tag-SeeAlso (arg)
 "Insert a tag pair for SeeAlso
\[Part of an index term directing the reader also to another entry in the index]."
  (interactive "P")
  (docbook-insert-tag-pair "SeeAlso" t))

(defun docbook-tag-SeeAlsoIE (arg)
 "Insert a tag pair for SeeAlsoIE
\[A \"See also\" entry in an index, rather than in the text]."
  (interactive "P")
  (docbook-insert-tag-pair "SeeAlsoIE" t))

(defun docbook-tag-SeeIE (arg)
 "Insert a tag pair for SeeIE
\[A \"See\" entry in an index, rather than in the text]."
  (interactive "P")
  (docbook-insert-tag-pair "SeeIE" t))

(defun docbook-tag-Seg (arg)
 "Insert a tag pair for Seg
\[An element of a list item in a segmented list]."
  (interactive "P")
  (docbook-insert-tag-pair "Seg" t))

(defun docbook-tag-SegListItem (arg)
 "Insert a tag pair for SegListItem
\[A list item in a segmented list]."
  (interactive "P")
  (docbook-insert-tag-pair "SegListItem" t))

(defun docbook-tag-SegTitle (arg)
 "Insert a tag pair for SegTitle
\[The title of an element of a list item in a segmented list]."
  (interactive "P")
  (docbook-insert-tag-pair "SegTitle" t))

(defun docbook-tag-SegmentedList (arg)
 "Insert a tag pair for SegmentedList
\[A segmented list, a list of sets of elements]."
  (interactive "P")
  (docbook-insert-tag-pair "SegmentedList" t))

(defun docbook-tag-SeriesInfo (arg)
 "Insert a tag pair for SeriesInfo
\[Information about the publication series of which a book is a part]."
  (interactive "P")
  (docbook-insert-tag-pair "SeriesInfo" t))

(defun docbook-tag-SeriesVolNums (arg)
 "Insert a tag pair for SeriesVolNums
\[Numbers of the volumes in a series of books]."
  (interactive "P")
  (docbook-insert-tag-pair "SeriesVolNums" t))

(defun docbook-tag-Set (arg)
 "Insert a tag pair for Set
\[A collection of books]."
  (interactive "P")
  (docbook-insert-tag-pair "Set" t))

(defun docbook-tag-SetIndex (arg)
 "Insert a tag pair for SetIndex
\[An index to a set of books]."
  (interactive "P")
  (docbook-insert-tag-pair "SetIndex" t))

(defun docbook-tag-SetInfo (arg)
 "Insert a tag pair for SetInfo
\[Meta-information for a Set]."
  (interactive "P")
  (docbook-insert-tag-pair "SetInfo" t))

(defun docbook-tag-ShortAffil (arg)
 "Insert a tag pair for ShortAffil
\[A brief description of an affiliation]."
  (interactive "P")
  (docbook-insert-tag-pair "ShortAffil" t))

(defun docbook-tag-Shortcut (arg)
 "Insert a tag pair for Shortcut
\[A key combination for an action that is also accessible through a menu]."
  (interactive "P")
  (docbook-insert-tag-pair "Shortcut" t))

(defun docbook-tag-Sidebar (arg)
 "Insert a tag pair for Sidebar
\[A portion of a document that is isolated from the main narrative flow]."
  (interactive "P")
  (docbook-insert-tag-pair "Sidebar" t))

(defun docbook-tag-SimPara (arg)
 "Insert a tag pair for SimPara
\[A paragraph that contains only text and inline markup, no block elements]."
  (interactive "P")
  (docbook-insert-tag-pair "SimPara" t))

(defun docbook-tag-SimpleList (arg)
 "Insert a tag pair for SimpleList
\[An undecorated list of single words or short phrases]."
  (interactive "P")
  (docbook-insert-tag-pair "SimpleList" t))

(defun docbook-tag-SimpleSect (arg)
 "Insert a tag pair for SimpleSect
\[A section of a document with no subdivisions]."
  (interactive "P")
  (docbook-insert-tag-pair "SimpleSect" t))

(defun docbook-tag-SpanSpec (arg)
 "Insert a tag pair for SpanSpec
\[Formatting information for a spanned column in a table]."
  (interactive "P")
  (docbook-insert-tag-pair "SpanSpec" t))

(defun docbook-tag-State (arg)
 "Insert a tag pair for State
\[A state or province in an address]."
  (interactive "P")
  (docbook-insert-tag-pair "State" t))

(defun docbook-tag-Step (arg)
 "Insert a tag pair for Step
\[A unit of action in a procedure]."
  (interactive "P")
  (docbook-insert-tag-pair "Step" t))

(defun docbook-tag-Street (arg)
 "Insert a tag pair for Street
\[A street address in an address]."
  (interactive "P")
  (docbook-insert-tag-pair "Street" t))

(defun docbook-tag-StructField (arg)
 "Insert a tag pair for StructField
\[A field in a structure (in the programming language sense)]."
  (interactive "P")
  (docbook-insert-tag-pair "StructField" t))

(defun docbook-tag-StructName (arg)
 "Insert a tag pair for StructName
\[The name of a structure (in the programming language sense)]."
  (interactive "P")
  (docbook-insert-tag-pair "StructName" t))

(defun docbook-tag-SubSteps (arg)
 "Insert a tag pair for SubSteps
\[A wrapper for steps that occur within steps in a procedure]."
  (interactive "P")
  (docbook-insert-tag-pair "SubSteps" t))

(defun docbook-tag-Subject (arg)
 "Insert a tag pair for Subject
\[One of a group of terms describing the subject matter of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Subject" t))

(defun docbook-tag-SubjectSet (arg)
 "Insert a tag pair for SubjectSet
\[A set of terms describing the subject matter of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "SubjectSet" t))

(defun docbook-tag-SubjectTerm (arg)
 "Insert a tag pair for SubjectTerm
\[A term in a group of terms describing the subject matter of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "SubjectTerm" t))

(defun docbook-tag-Subscript (arg)
 "Insert a tag pair for Subscript
\[A subscript (as in H[2]O, the molecular formula for water)]."
  (interactive "P")
  (docbook-insert-tag-pair "Subscript" t))

(defun docbook-tag-Subtitle (arg)
 "Insert a tag pair for Subtitle
\[The subtitle of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Subtitle" t))

(defun docbook-tag-Superscript (arg)
 "Insert a tag pair for Superscript
\[A superscript (as in x2, the mathematical notation for x multiplied by itself)]."
  (interactive "P")
  (docbook-insert-tag-pair "Superscript" t))

(defun docbook-tag-Surname (arg)
 "Insert a tag pair for Surname
\[A family name; in western cultures the \"last name\"]."
  (interactive "P")
  (docbook-insert-tag-pair "Surname" t))

(defun docbook-tag-Symbol (arg)
 "Insert a tag pair for Symbol
\[A name that is replaced by a value before processing]."
  (interactive "P")
  (docbook-insert-tag-pair "Symbol" t))

(defun docbook-tag-SynopFragment (arg)
 "Insert a tag pair for SynopFragment
\[A portion of a CmdSynopsis broken out from the main body of the synopsis]."
  (interactive "P")
  (docbook-insert-tag-pair "SynopFragment" t))

(defun docbook-tag-SynopFragmentRef (arg)
 "Insert a tag pair for SynopFragmentRef
\[A reference to a fragment of a command synopsis]."
  (interactive "P")
  (docbook-insert-tag-pair "SynopFragmentRef" t))

(defun docbook-tag-Synopsis (arg)
 "Insert a tag pair for Synopsis
\[A general-purpose element for representing the syntax of commands or functions]."
  (interactive "P")
  (docbook-insert-tag-pair "Synopsis" t))

(defun docbook-tag-SystemItem (arg)
 "Insert a tag pair for SystemItem
\[A system-related item or term]."
  (interactive "P")
  (docbook-insert-tag-pair "SystemItem" t))

(defun docbook-tag-TBody (arg)
 "Insert a tag pair for TBody
\[A wrapper for the rows of a table or informal table]."
  (interactive "P")
  (docbook-insert-tag-pair "TBody" t))

(defun docbook-tag-TFoot (arg)
 "Insert a tag pair for TFoot
\[A table footer consisting of one or more rows]."
  (interactive "P")
  (docbook-insert-tag-pair "TFoot" t))

(defun docbook-tag-TGroup (arg)
 "Insert a tag pair for TGroup
\[A wrapper for the main content of a table, or part of a table]."
  (interactive "P")
  (docbook-insert-tag-pair "TGroup" t))

(defun docbook-tag-THead (arg)
 "Insert a tag pair for THead
\[A table header consisting of one or more rows]."
  (interactive "P")
  (docbook-insert-tag-pair "THead" t))

(defun docbook-tag-Table (arg)
 "Insert a tag pair for Table
\[A formal table in a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Table" t))

(defun docbook-tag-Term (arg)
 "Insert a tag pair for Term
\[The word or phrase being defined or described in a variable list]."
  (interactive "P")
  (docbook-insert-tag-pair "Term" t))

(defun docbook-tag-Tertiary (arg)
 "Insert a tag pair for Tertiary
\[A tertiary word or phrase in an index term]."
  (interactive "P")
  (docbook-insert-tag-pair "Tertiary" t))

(defun docbook-tag-TertiaryIE (arg)
 "Insert a tag pair for TertiaryIE
\[A tertiary term in an index entry, rather than in the text]."
  (interactive "P")
  (docbook-insert-tag-pair "TertiaryIE" t))

(defun docbook-tag-TextObject (arg)
 "Insert a tag pair for TextObject
\[A wrapper for a text description of an object and its associated meta-information]."
  (interactive "P")
  (docbook-insert-tag-pair "TextObject" t))

(defun docbook-tag-Tip (arg)
 "Insert a tag pair for Tip
\[A suggestion to the user, set off from the text]."
  (interactive "P")
  (docbook-insert-tag-pair "Tip" t))

(defun docbook-tag-Title (arg)
 "Insert a tag pair for Title
\[The text of the title of a section of a document or of a formal block-level element]."
  (interactive "P")
  (docbook-insert-tag-pair "Title" t))

(defun docbook-tag-TitleAbbrev (arg)
 "Insert a tag pair for TitleAbbrev
\[The abbreviation of a Title]."
  (interactive "P")
  (docbook-insert-tag-pair "TitleAbbrev" t))

(defun docbook-tag-ToC (arg)
 "Insert a tag pair for ToC
\[A table of contents]."
  (interactive "P")
  (docbook-insert-tag-pair "ToC" t))

(defun docbook-tag-ToCback (arg)
 "Insert a tag pair for ToCback
\[An entry in a table of contents for a back matter component]."
  (interactive "P")
  (docbook-insert-tag-pair "ToCback" t))

(defun docbook-tag-ToCchap (arg)
 "Insert a tag pair for ToCchap
\[An entry in a table of contents for a component in the body of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "ToCchap" t))

(defun docbook-tag-ToCentry (arg)
 "Insert a tag pair for ToCentry
\[A component title in a table of contents]."
  (interactive "P")
  (docbook-insert-tag-pair "ToCentry" t))

(defun docbook-tag-ToCfront (arg)
 "Insert a tag pair for ToCfront
\[An entry in a table of contents for a front matter component]."
  (interactive "P")
  (docbook-insert-tag-pair "ToCfront" t))

(defun docbook-tag-ToClevel1 (arg)
 "Insert a tag pair for ToClevel1
\[A top-level entry within a table of contents entry for a chapter-like component]."
  (interactive "P")
  (docbook-insert-tag-pair "ToClevel1" t))

(defun docbook-tag-ToClevel2 (arg)
 "Insert a tag pair for ToClevel2
\[A second-level entry within a table of contents entry for a chapter-like component]."
  (interactive "P")
  (docbook-insert-tag-pair "ToClevel2" t))

(defun docbook-tag-ToClevel3 (arg)
 "Insert a tag pair for ToClevel3
\[A third-level entry within a table of contents entry for a chapter-like component]."
  (interactive "P")
  (docbook-insert-tag-pair "ToClevel3" t))

(defun docbook-tag-ToClevel4 (arg)
 "Insert a tag pair for ToClevel4
\[A fourth-level entry within a table of contents entry for a chapter-like component]."
  (interactive "P")
  (docbook-insert-tag-pair "ToClevel4" t))

(defun docbook-tag-ToClevel5 (arg)
 "Insert a tag pair for ToClevel5
\[A fifth-level entry within a table of contents entry for a chapter-like component]."
  (interactive "P")
  (docbook-insert-tag-pair "ToClevel5" t))

(defun docbook-tag-ToCpart (arg)
 "Insert a tag pair for ToCpart
\[An entry in a table of contents for a part of a book]."
  (interactive "P")
  (docbook-insert-tag-pair "ToCpart" t))

(defun docbook-tag-Token (arg)
 "Insert a tag pair for Token
\[A unit of information]."
  (interactive "P")
  (docbook-insert-tag-pair "Token" t))

(defun docbook-tag-Trademark (arg)
 "Insert a tag pair for Trademark
\[A trademark]."
  (interactive "P")
  (docbook-insert-tag-pair "Trademark" t))

(defun docbook-tag-Type (arg)
 "Insert a tag pair for Type
\[The classification of a value]."
  (interactive "P")
  (docbook-insert-tag-pair "Type" t))

(defun docbook-tag-ULink (arg)
 "Insert a tag pair for ULink
\[A link that addresses its target by means of a URL (Uniform Resource Locator)]."
  (interactive "P")
  (docbook-insert-tag-pair "ULink" t))

(defun docbook-tag-UserInput (arg)
 "Insert a tag pair for UserInput
\[Data entered by the user]."
  (interactive "P")
  (docbook-insert-tag-pair "UserInput" t))

(defun docbook-tag-VarArgs (arg)
 "Insert a tag pair for VarArgs
\[An empty element in a function synopsis indicating a variable number of arguments]."
  (interactive "P")
  (docbook-insert-tag-pair "VarArgs" t))

(defun docbook-tag-VarListEntry (arg)
 "Insert a tag pair for VarListEntry
\[A wrapper for a set of terms and the associated description in a variable list]."
  (interactive "P")
  (docbook-insert-tag-pair "VarListEntry" t))

(defun docbook-tag-VarName (arg)
 "Insert a tag pair for VarName
\[The name of a variable]."
  (interactive "P")
  (docbook-insert-tag-pair "VarName" t))

(defun docbook-tag-VariableList (arg)
 "Insert a tag pair for VariableList
\[A list in which each entry is composed of a set of one or more terms and an associated description]."
  (interactive "P")
  (docbook-insert-tag-pair "VariableList" t))

(defun docbook-tag-VideoData (arg)
 "Insert a tag pair for VideoData
\[Pointer to external video data]."
  (interactive "P")
  (docbook-insert-tag-pair "VideoData" t))

(defun docbook-tag-VideoObject (arg)
 "Insert a tag pair for VideoObject
\[A wrapper for video data and its associated meta-information]."
  (interactive "P")
  (docbook-insert-tag-pair "VideoObject" t))

(defun docbook-tag-Void (arg)
 "Insert a tag pair for Void
\[An empty element in a function synopsis indicating that the function in question takes no arguments]."
  (interactive "P")
  (docbook-insert-tag-pair "Void" t))

(defun docbook-tag-VolumeNum (arg)
 "Insert a tag pair for VolumeNum
\[The volume number of a document in a set (as of books in a set or articles in a journal)]."
  (interactive "P")
  (docbook-insert-tag-pair "VolumeNum" t))

(defun docbook-tag-Warning (arg)
 "Insert a tag pair for Warning
\[An admonition set off from the text]."
  (interactive "P")
  (docbook-insert-tag-pair "Warning" t))

(defun docbook-tag-WordAsWord (arg)
 "Insert a tag pair for WordAsWord
\[A word meant specifically as a word and not representing anything else]."
  (interactive "P")
  (docbook-insert-tag-pair "WordAsWord" t))

(defun docbook-tag-XRef (arg)
 "Insert a tag pair for XRef
\[A cross reference to another part of the document]."
  (interactive "P")
  (docbook-insert-tag-pair "XRef" t))

(defun docbook-tag-Year (arg)
 "Insert a tag pair for Year
\[The year of publication of a document]."
  (interactive "P")
  (docbook-insert-tag-pair "Year" t))

(defun docbook-x-window-setup ()
  "When a window system is available, provide pop-up menus attached to
a mouse button (emacs 18 or earlier), or to the top-of-screen menu
bar (emacs 19 or later).  Otherwise, do nothing at all."
  (interactive)
  (if (and
       (not (boundp 'epoch::version))
       (boundp 'window-system)
       window-system)
      (load "docbookmenu" t t nil)))

(defun sgml-check-region (start end)
  "Check the region for the presence of angle brackets and ampersands
that are NOT represented as SGML entities."
  (interactive "r")
  (save-restriction
    (narrow-to-region start end)

    (goto-char (point-min))
    (while (search-forward "<" nil t)
      (if (and (boundp 'docbook-screen)
	       (looking-at "/?\\(lineannotation\\|replaceable\\|userinput\\)>"))
	  (goto-char (match-end 0))
	(error "expected &lt;")))

    (goto-char (point-min))
    (while (search-forward ">" nil t)
      (if (and (boundp 'docbook-screen)
	       (backward-word 1)
	       (looking-at "/?\\(lineannotation\\|replaceable\\|userinput\\)>"))
	  (goto-char (match-end 0))
	(error "expected &gt;")))

    (goto-char (point-min))
    (while (search-forward "&" nil t)
      (if (not (looking-at "[A-Za-z][A-za-z0-9]*;"))
	  (error "expected &amp;")))))

(defun sgmlify-region (start end)
  "Convert angle brackets, ampersands, quotes, and backslashes in the region
to SGML entities."
  (interactive "r")
  (save-excursion
    (save-restriction
      (narrow-to-region start end)

      (goto-char (point-min))
      (while (search-forward "&" nil t)
	(insert "amp;"))

      (goto-char (point-min))
      (while (search-forward "<" nil t)
	(delete-char -1)
	(insert "&lt;"))

      (goto-char (point-min))
      (while (search-forward ">" nil t)
	(delete-char -1)
	(insert "&gt;"))

      (goto-char (point-min))
      (while (search-forward "\"" nil t)
	(delete-char -1)
	(insert "&quot;"))

      (goto-char (point-min))
      (while (search-forward "\\" nil t)
	(delete-char -1)
	(insert "&bsol;")))))

(defun internal-docbook-default (value default-value)
  "Return a non-nil value from VALUE, current-prefix-arg, or
DEFAULT-VALUE, in that order.  Do

   (setq argvar (internal-docbook-default argvar 23))

to set &optional argvar to (a) argvar, if argvar is non-nil, else (b)
current-prefix-arg, if that is non-nil, else (c) 23.  This simplifies
optional argument assignment in many functions."
  (cond
   ((not (null value))			;do nothing if explicit arg
    value)
   ((not (null current-prefix-arg))	;else use prefix arg if any
    (prefix-numeric-value current-prefix-arg))
   (t					;else no arg at all, so use default
    default-value)))

(defun internal-docbook-exit-environment ()
  (re-search-forward "</[A-Za-z][A-Za-z0-9]+>"))

(defun internal-docbook-indent (extra)
  "Indent by the current default, plus EXTRA spaces."
  (beginning-of-line)
  (insert-char ?\  (+ docbook-indent-column extra)))

(defun internal-docbook-preceding-buffer-substring (n)
  "Return as a string value the N or fewer characters in the buffer preceding
point, taking care to avoid a buffer bounds violation."
  (buffer-substring (max 1 (- (point) n)) (point)))

(defun internal-docbook-tag-sectname (sectname)
  "Insert <SECTNAME id=\"\"></SECTNAME>, leaving point inside the id string."
  (docbook-insert-tag-pair sectname t)
  (backward-char 2)
  (insert " id=\"\"")
  (backward-char 1))

(defun internal-docbook-wrap (prefix suffix word-count)
  "Wrap with PREFIX and SUFFIX the next WORD-COUNT words."
  (if (> word-count 0)			;do something only if word-count > 0
      (progn
	(forward-word 1)
	(forward-word -1)		;position to start of next word
	(insert prefix)
	(forward-word word-count)
	(insert suffix))))