annotate lispref/two.el @ 52436:d095f4512252

(windows-1252): Moved from code-pages.
author Dave Love <fx@gnu.org>
date Thu, 04 Sep 2003 17:04:05 +0000
parents 695cf19ef79e
children 9f4849fee703 375f2633d815
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
41193
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1 ;; Auxilary functions for preparing a two volume manual.
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2 ;; --rjc 30mar92
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
4 (defun volume-aux-markup (arg)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
5 "Append `vol. NUMBER' to page number.
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
6 Apply to aux file that you save.
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
7 Then insert marked file into other volume's .aux file."
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
8 (interactive "sType volume number, 1 or 2: " )
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
9 (goto-char (point-min))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
10 (while (search-forward "-pg" nil t)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
11 (end-of-line 1)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
12 (delete-backward-char 1 nil)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
13 (insert ", vol.'tie" arg "}")))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
14
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
15 (defun volume-index-markup (arg)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
16 "Prepend `NUMBER:' to page number. Use Roman Numeral.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 41193
diff changeset
17 Apply only to unsorted index file,
41193
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
18 Then insert marked file into other volume's unsorted index file.
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
19 Then run texindex on that file and save."
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
20 (interactive
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
21 "sType volume number, roman number I or II: " )
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
22 (goto-char (point-min))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
23 (while (search-forward "\\entry" nil t)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
24 (search-forward "}{" (save-excursion (end-of-line) (point)) nil)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
25 (insert arg ":")))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
26
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
27 (defun volume-numbers-toc-markup (arg)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
28 (interactive
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
29 "sType volume number, roman number I or II: " )
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
30 (goto-char (point-min))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
31 (while (search-forward "chapentry" nil t)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
32 (end-of-line)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
33 (search-backward "{" nil t)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
34 (forward-char 1)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
35 (insert arg ":")))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
36
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
37 (defun volume-header-toc-markup ()
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
38 "Insert Volume I and Volume II text into .toc file.
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
39 NOTE: this auxilary function is file specific.
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
40 This is for the *Elisp Ref Manual*"
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
41 (interactive)
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
42 (goto-char (point-min))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
43 (insert "\\unnumbchapentry {Volume 1}{}\n\\unnumbchapentry {}{}\n")
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
44 (search-forward "\\unnumbchapentry {Index}")
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
45 (forward-line 1)
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 41193
diff changeset
46 (insert
41193
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
47 "\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {Volume 2}{}\n\\unnumbchapentry {}{}\n"))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
48
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
49
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
50 ;;; In batch mode, you cannot call functions with args; hence this kludge:
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
51
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
52 (defun volume-aux-markup-1 () (volume-aux-markup "1"))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
53 (defun volume-aux-markup-2 () (volume-aux-markup "2"))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
54
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
55 (defun volume-index-markup-I () (volume-index-markup "I"))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
56 (defun volume-index-markup-II () (volume-index-markup "II"))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
57
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
58 (defun volume-numbers-toc-markup-I () (volume-numbers-toc-markup "I"))
1377d461b09c *** empty log message ***
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
59 (defun volume-numbers-toc-markup-II () (volume-numbers-toc-markup "II"))
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
60
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
61 ;;; arch-tag: 848955fe-e9cf-45e7-a2f1-570ef156d6a5