Mercurial > emacs
view lispref/two.el @ 60161:b070535d2416
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-111
Merge from gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-17
- miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-19
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-20
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-21
More work on moving images to etc/images
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-22
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-23
Fix errors with image-file installation
2005-02-19 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-msg.el (gnus-copy-article-buffer): Quote decoded words
containing special characters.
* lisp/gnus/gnus-sum.el (gnus-summary-edit-article): Ditto.
* lisp/gnus/mml.el (mime-to-mml): Ditto.
* lisp/gnus/rfc2047.el (rfc2047-encode-parameter): Use ietf-drums-tspecials.
(rfc2047-quote-decoded-words-containing-tspecials): New variable.
(rfc2047-decode-region): Quote decoded words containing special
characters when rfc2047-quote-decoded-words-containing-tspecials
is non-nil.
2005-02-16 Teodor Zlatanov <tzz@lifelogs.com>
* lisp/gnus/gnus-registry.el (gnus-registry-delete-group): minor bug fix
* lisp/gnus/gnus.el (gnus-install-group-spam-parameters): Doc fix.
2005-02-15 Simon Josefsson <jas@extundo.com>
* lisp/gnus/nnimap.el (nnimap-debug): Doc fix.
* lisp/gnus/imap.el (imap-debug): Doc fix.
2005-02-14 Reiner Steib <Reiner.Steib@gmx.de>
* lisp/gnus/gnus-group.el (gnus-group-make-doc-group): Mention prefix
argument in doc string. Make query for type more clear.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 19 Feb 2005 13:24:16 +0000 |
parents | 695cf19ef79e |
children | 9f4849fee703 375f2633d815 |
line wrap: on
line source
;; 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