X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=texi%2Ftexi2latex.el;h=e60d58ac0979ee9d70583b1e3b2bf1e7ba4a293c;hb=44c070b5032fb2ee285eb355d6aceee9c84ffc66;hp=a53e6f5edfd2c45929fd34b1df7f75dd0c05a817;hpb=8acbbac3dea9abe9e079b580b613604497b4899b;p=gnus

diff --git a/texi/texi2latex.el b/texi/texi2latex.el
index a53e6f5ed..e60d58ac0 100644
--- 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 "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."
@@ -94,7 +95,7 @@
 				 (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" 
@@ -130,6 +131,8 @@
 		(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)
@@ -179,6 +182,8 @@
 		  (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"))
@@ -241,7 +246,8 @@
 		;;  "\\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
@@ -255,7 +261,7 @@
 	    (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))
@@ -274,7 +280,8 @@
 	    (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