view lispref/two.el @ 83223:4056279af756

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-639 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-640 Merge from gnus--rel--5.10 * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-641 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-642 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-643 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-644 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-645 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-646 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-647 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-648 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-649 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-650 Merge from gnus--rel--5.10 * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-651 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-652 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-59 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-60 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-61 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-62 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-63 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-263

;; Auxilary functions for preparing a two volume manual.
;; --rjc 30mar92

(defun volume-aux-markup (arg)
  "Append `vol. NUMBER' to page number.
Apply to aux file that you save.
Then insert marked file into other volume's .aux file."
  (interactive "sType volume number, 1 or 2: " )
  (goto-char (point-min))
  (while (search-forward "-pg" nil t)
    (end-of-line 1)
    (delete-backward-char 1 nil)
    (insert ", vol.'tie" arg "}")))

(defun volume-index-markup (arg)
  "Prepend  `NUMBER:' to page number.  Use Roman Numeral.
Apply only to unsorted index file,
Then insert marked file into other volume's unsorted index file.
Then run texindex on that file and save."
  (interactive
   "sType volume number,  roman number I or II: " )
  (goto-char (point-min))
  (while (search-forward "\\entry" nil t)
    (search-forward "}{" (save-excursion (end-of-line) (point)) nil)
    (insert arg ":")))

(defun volume-numbers-toc-markup (arg)
  (interactive
   "sType volume number,  roman number I or II: " )
  (goto-char (point-min))
  (while (search-forward "chapentry" nil t)
    (end-of-line)
    (search-backward "{" nil t)
    (forward-char 1)
    (insert arg ":")))

(defun volume-header-toc-markup ()
  "Insert Volume I and Volume II text into .toc file.
NOTE: this auxilary function is file specific.
This is for the *Elisp Ref Manual*"
  (interactive)
  (goto-char (point-min))
  (insert "\\unnumbchapentry {Volume 1}{}\n\\unnumbchapentry {}{}\n")
  (search-forward "\\unnumbchapentry {Index}")
  (forward-line 1)
  (insert
   "\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {Volume 2}{}\n\\unnumbchapentry {}{}\n"))


;;; In batch mode, you cannot call functions with args; hence this kludge:

(defun volume-aux-markup-1 () (volume-aux-markup "1"))
(defun volume-aux-markup-2 () (volume-aux-markup "2"))

(defun volume-index-markup-I () (volume-index-markup "I"))
(defun volume-index-markup-II () (volume-index-markup "II"))

(defun volume-numbers-toc-markup-I () (volume-numbers-toc-markup "I"))
(defun volume-numbers-toc-markup-II () (volume-numbers-toc-markup "II"))

;;; arch-tag: 848955fe-e9cf-45e7-a2f1-570ef156d6a5