projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
T-gnus 6.15.10 revision 00.
[elisp/gnus.git-]
/
texi
/
texi2latex.el
diff --git
a/texi/texi2latex.el
b/texi/texi2latex.el
index
a53e6f5
..
42b0793
100644
(file)
--- a/
texi/texi2latex.el
+++ b/
texi/texi2latex.el
@@
-94,7
+94,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
+130,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
+181,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
+245,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,7
+260,7
@@
(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"
"result"))
(goto-char (match-beginning 0))
"code" "samp" "var" "strong" "i"
"result"))
(goto-char (match-beginning 0))
@@
-274,7
+279,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