projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* gnus.texi (Comparing Mail Back Ends): Note nnmaildir's
[gnus]
/
texi
/
texi2latex.el
diff --git
a/texi/texi2latex.el
b/texi/texi2latex.el
index
a53e6f5
..
52eb353
100644
(file)
--- a/
texi/texi2latex.el
+++ b/
texi/texi2latex.el
@@
-38,7
+38,8
@@
(latexi-translate-file "gnus-faq")
(latexi-translate-file "message" t)
(latexi-translate-file "emacs-mime" t)
(latexi-translate-file "gnus-faq")
(latexi-translate-file "message" t)
(latexi-translate-file "emacs-mime" t)
- (latexi-translate-file "sieve" t))
+ (latexi-translate-file "sieve" t)
+ (latexi-translate-file "pgg" t))
(defun latexi-translate-file (file &optional as-a-chapter)
"Translate file a LaTeX file."
(defun latexi-translate-file (file &optional as-a-chapter)
"Translate file a LaTeX file."
@@
-94,7
+95,7
@@
(progn (end-of-line) (point))))
(if (equal arg "@head")
(insert "\\gnusinteresting")))
(progn (end-of-line) (point))))
(if (equal arg "@head")
(insert "\\gnusinteresting")))
- ((member command '("setfilename"
+ ((member command '("setfilename"
"set"
"synindex" "setchapternewpage"
"summarycontents" "bye"
"top" "iftex" "cartouche"
"synindex" "setchapternewpage"
"summarycontents" "bye"
"top" "iftex" "cartouche"
@@
-130,6
+131,8
@@
(insert "\\\\"))
((equal command "sp")
(replace-match "" t t))
(insert "\\\\"))
((equal command "sp")
(replace-match "" t t))
+ ((member command '("deffn" "defvar" "defun"))
+ (replace-match "" t t))
((equal command "node")
(latexi-strip-line)
(unless (string-match "Index" arg)
((equal command "node")
(latexi-strip-line)
(unless (string-match "Index" arg)
@@
-179,6
+182,8
@@
(insert (format "\\end{%s}\n" arg)))
((member arg '("iflatex" "iftex" "cartouche"))
(latexi-strip-line))
(insert (format "\\end{%s}\n" arg)))
((member arg '("iflatex" "iftex" "cartouche"))
(latexi-strip-line))
+ ((member arg '("deffn" "defvar" "defun"))
+ (latexi-strip-line))
(t
(error "Unknown end arg: %s" arg))))
((member command '("table"))
(t
(error "Unknown end arg: %s" arg))))
((member command '("table"))
@@
-241,7
+246,8
@@
;; "\\begin{theindex}\\input{gnus.%s}\\end{theindex}\n" arg))
)
(t
;; "\\begin{theindex}\\input{gnus.%s}\\end{theindex}\n" arg))
)
(t
- (error "Unknown command (line %d): %s"
+ (error "Unknown command (file %s line %d): %s"
+ file
(save-excursion
(widen)
(1+ (count-lines (point-min) (progn
(save-excursion
(widen)
(1+ (count-lines (point-min) (progn
@@
-255,9
+261,9
@@
(latexi-strip-line))
((member command '("ref" "xref" "pxref"))
(latexi-exchange-command (concat "gnus" command) arg))
(latexi-strip-line))
((member command '("ref" "xref" "pxref"))
(latexi-exchange-command (concat "gnus" command) arg))
- ((member command '("sc" "file" "dfn" "emph" "kbd" "uref"
+ ((member command '("sc" "file" "dfn" "emph" "kbd" "
key" "
uref"
"code" "samp" "var" "strong" "i"
"code" "samp" "var" "strong" "i"
- "result"))
+ "result"
"acronym" "email"
))
(goto-char (match-beginning 0))
(delete-char 1)
(insert "\\gnus"))
(goto-char (match-beginning 0))
(delete-char 1)
(insert "\\gnus"))
@@
-274,7
+280,8
@@
(delete-char 2)
(insert "duppat{}"))
(t
(delete-char 2)
(insert "duppat{}"))
(t
- (error "Unknown command (line %d): %s"
+ (error "Unknown command (file %s line %d): %s"
+ file
(save-excursion
(widen)
(1+ (count-lines (point-min) (progn
(save-excursion
(widen)
(1+ (count-lines (point-min) (progn