projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add arch taglines
[gnus]
/
texi
/
texi2latex.el
diff --git
a/texi/texi2latex.el
b/texi/texi2latex.el
index
f3ea021
..
7c6e712
100644
(file)
--- a/
texi/texi2latex.el
+++ b/
texi/texi2latex.el
@@
-40,7
+40,8
@@
(latexi-translate-file "emacs-mime" t)
(latexi-translate-file "sieve" t)
(latexi-translate-file "pgg" t)
(latexi-translate-file "emacs-mime" t)
(latexi-translate-file "sieve" t)
(latexi-translate-file "pgg" t)
- (latexi-translate-file "sasl" t))
+ (latexi-translate-file "sasl" t)
+ (latexi-translate-file "gnus-news" 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."
@@
-64,6
+65,11
@@
(insert-buffer-substring cur)
(goto-char (point-min))
(latexi-strip-line)
(insert-buffer-substring cur)
(goto-char (point-min))
(latexi-strip-line)
+ (latexi-translate-string "@'e" "\\'{e}")
+ (latexi-translate-string "@`a" "\\`{a}")
+ (latexi-translate-string "@,{c}" "\\c{c}")
+ (latexi-translate-string "@aa{}" "{\\aa}")
+ (latexi-translate-string "@\"{@dotless{i}}" "ï")
(latexi-translate-string "%@{" "\\gnuspercent{}\\gnusbraceleft{}")
(latexi-translate-string "%@}" "\\gnuspercent{}\\gnusbraceright{}")
(latexi-translate-string "%1@{" "\\gnuspercent{}1\\gnusbraceright{}")
(latexi-translate-string "%@{" "\\gnuspercent{}\\gnusbraceleft{}")
(latexi-translate-string "%@}" "\\gnuspercent{}\\gnusbraceright{}")
(latexi-translate-string "%1@{" "\\gnuspercent{}1\\gnusbraceright{}")
@@
-102,7
+108,8
@@
"summarycontents" "bye"
"top" "iftex" "cartouche"
"iflatex" "finalout" "vskip"
"summarycontents" "bye"
"top" "iftex" "cartouche"
"iflatex" "finalout" "vskip"
- "dircategory" "group" "syncodeindex"))
+ "dircategory" "group" "syncodeindex"
+ "documentencoding"))
(latexi-strip-line))
((member command '("menu" "tex" "ifinfo" "ignore"
"ifnottex" "direntry"))
(latexi-strip-line))
((member command '("menu" "tex" "ifinfo" "ignore"
"ifnottex" "direntry"))
@@
-243,7
+250,7
@@
(latexi-begin-command "verse"))
((equal command "page")
(latexi-strip-line)
(latexi-begin-command "verse"))
((equal command "page")
(latexi-strip-line)
- (insert
(format "\\newpage\n" arg)
))
+ (insert
"\\newpage\n"
))
((equal command "'s")
(goto-char (match-beginning 0))
(delete-char 1))
((equal command "'s")
(goto-char (match-beginning 0))
(delete-char 1))
@@
-386,3
+393,4
@@
(insert "\\end{tabular}\n")
(widen))))
(insert "\\end{tabular}\n")
(widen))))
+;;; arch-tag: 31e30f7f-4876-4dd1-ba3a-6f9f7ea0d256