2001-08-02 Simon Josefsson <jas@extundo.com>

[gnus] / texi / texi2latex.el

diff --git a/texi/texi2latex.el b/texi/texi2latex.el
index f5cb162..5ff6804 100644 (file)
--- a/texi/texi2latex.el
+++ b/texi/texi2latex.el
@@ -62,6 +62,12 @@
     (latexi-translate-string "%@{" "\\gnuspercent{}\\gnusbraceleft{}")
     (latexi-translate-string "%@}" "\\gnuspercent{}\\gnusbraceright{}")
     (latexi-translate-string "%1@{" "\\gnuspercent{}1\\gnusbraceright{}")
+    (latexi-translate-string "@*" "\\newline{}")
+    (latexi-translate-string "S@{" "S\\gnusbraceleft{}")
+    (latexi-translate-string "@code{\\222}" "@code{\\gnusbackslash{}222}")
+    (latexi-translate-string "@code{\\264}" "@code{\\gnusbackslash{}264}")
+    (latexi-translate-string "@samp{\\Deleted}" "@samp{\\gnusbackslash{}Deleted}")
+    (latexi-translate-string "@samp{\\Seen}" "@samp{\\gnusbackslash{}Seen}")
 ;    (while (re-search-forward "{\"[^\"]*\\(\\\\\\)[^\"]*\"}\\\\" nil t)
 ;      (replace-match "\\verb+\\\\+ " t t))
     (while (not (zerop (decf times)))
@@ -208,6 +214,9 @@
               ((equal command "include")
                (latexi-strip-line)
                (insert "\\input{gnus-faq.latexi}\n"))
+              ((equal command "noindent")
+               (latexi-strip-line)
+               (insert "\\noindent\n"))
               ((equal command "printindex")
                (latexi-strip-line)
                ;;(insert 
@@ -215,13 +224,19 @@
                ;;  "\\begin{theindex}\\input{gnus.%s}\\end{theindex}\n" arg))
                )
               (t
-               (error "Unknown command: %s" command))))
+               (error "Unknown command (line %d): %s"
+                      (save-excursion
+                        (widen)
+                        (1+ (count-lines (point-min) (progn
+                                                       (beginning-of-line)
+                                                       (point)))))
+                      command))))
          ;; These are commands with {}.
          (setq arg (match-string 5))
          (cond 
           ((member command '("anchor"))
            (latexi-strip-line))
-          ((member command '("xref" "pxref"))
+          ((member command '("ref" "xref" "pxref"))
            (latexi-exchange-command (concat "gnus" command) arg))
           ((member command '("sc" "file" "dfn" "emph" "kbd" "uref"
                              "code" "samp" "var" "strong" "i"
@@ -242,7 +257,13 @@
            (delete-char 2)
            (insert "duppat{}"))
           (t
-           (error "Unknown command: %s" command))))))
+           (error "Unknown command (line %d): %s"
+                  (save-excursion
+                    (widen)
+                    (1+ (count-lines (point-min) (progn
+                                                   (beginning-of-line)
+                                                   (point)))))
+                  command))))))
     (latexi-translate-string "$" "\\gnusdollar{}")
     (latexi-translate-string "&" "\\gnusampersand{}")
     (latexi-translate-string "%" "\\gnuspercent{}")