Mercurial > emacs
annotate lispref/two.el @ 53477:79093b308520
* progmodes/idlwave.el (idlwave-make-tags):
* textmodes/flyspell.el (flyspell-large-region):.
* progmodes/make-mode.el (makefile-query-by-make-minus-q):
* emulation/viper-util.el (viper-glob-unix-files):
* emacs-lisp/shadow.el (shadow-same-file-or-nonexistent):
* man.el (Man-init-defvars):
* jka-compr.el (jka-compr-call-process):
* files.el (get-free-disk-space,insert-directory):
* ediff-ptch.el (ediff-test-patch-utility):
* ediff-diff.el (ediff-test-utility):
* dired-aux.el (dired-check-process):
* mail/sendmail.el (sendmail-send-it): Don't use = or zerop to
test the return value of call-process, because it can be a string.
author | Eli Zaretskii <eliz@is.elta.co.il> |
---|---|
date | Sat, 03 Jan 2004 12:11:21 +0000 |
parents | 695cf19ef79e |
children | 9f4849fee703 375f2633d815 |
rev | line source |
---|---|
41193 | 1 ;; Auxilary functions for preparing a two volume manual. |
2 ;; --rjc 30mar92 | |
3 | |
4 (defun volume-aux-markup (arg) | |
5 "Append `vol. NUMBER' to page number. | |
6 Apply to aux file that you save. | |
7 Then insert marked file into other volume's .aux file." | |
8 (interactive "sType volume number, 1 or 2: " ) | |
9 (goto-char (point-min)) | |
10 (while (search-forward "-pg" nil t) | |
11 (end-of-line 1) | |
12 (delete-backward-char 1 nil) | |
13 (insert ", vol.'tie" arg "}"))) | |
14 | |
15 (defun volume-index-markup (arg) | |
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 | 18 Then insert marked file into other volume's unsorted index file. |
19 Then run texindex on that file and save." | |
20 (interactive | |
21 "sType volume number, roman number I or II: " ) | |
22 (goto-char (point-min)) | |
23 (while (search-forward "\\entry" nil t) | |
24 (search-forward "}{" (save-excursion (end-of-line) (point)) nil) | |
25 (insert arg ":"))) | |
26 | |
27 (defun volume-numbers-toc-markup (arg) | |
28 (interactive | |
29 "sType volume number, roman number I or II: " ) | |
30 (goto-char (point-min)) | |
31 (while (search-forward "chapentry" nil t) | |
32 (end-of-line) | |
33 (search-backward "{" nil t) | |
34 (forward-char 1) | |
35 (insert arg ":"))) | |
36 | |
37 (defun volume-header-toc-markup () | |
38 "Insert Volume I and Volume II text into .toc file. | |
39 NOTE: this auxilary function is file specific. | |
40 This is for the *Elisp Ref Manual*" | |
41 (interactive) | |
42 (goto-char (point-min)) | |
43 (insert "\\unnumbchapentry {Volume 1}{}\n\\unnumbchapentry {}{}\n") | |
44 (search-forward "\\unnumbchapentry {Index}") | |
45 (forward-line 1) | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
41193
diff
changeset
|
46 (insert |
41193 | 47 "\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {Volume 2}{}\n\\unnumbchapentry {}{}\n")) |
48 | |
49 | |
50 ;;; In batch mode, you cannot call functions with args; hence this kludge: | |
51 | |
52 (defun volume-aux-markup-1 () (volume-aux-markup "1")) | |
53 (defun volume-aux-markup-2 () (volume-aux-markup "2")) | |
54 | |
55 (defun volume-index-markup-I () (volume-index-markup "I")) | |
56 (defun volume-index-markup-II () (volume-index-markup "II")) | |
57 | |
58 (defun volume-numbers-toc-markup-I () (volume-numbers-toc-markup "I")) | |
59 (defun volume-numbers-toc-markup-II () (volume-numbers-toc-markup "II")) | |
52401 | 60 |
61 ;;; arch-tag: 848955fe-e9cf-45e7-a2f1-570ef156d6a5 |