X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=texi%2Ftexi2latex.el;h=9eb28807789c00d24c14e9c841d9e1ad91f61611;hb=ff6e0cc562138307b1bf86188b278b62fae93964;hp=acc28e5f7d844aa336ed83ffa236185775209ef6;hpb=d36c88ea61b26c5fbe9f511266bcfdde52b7b838;p=elisp%2Fgnus.git-

diff --git a/texi/texi2latex.el b/texi/texi2latex.el
index acc28e5..9eb2880 100644
--- a/texi/texi2latex.el
+++ b/texi/texi2latex.el
@@ -208,6 +208,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,7 +218,11 @@
 		;;  "\\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) (point-at-bol))))
+		       command))))
 	  ;; These are commands with {}.
 	  (setq arg (match-string 5))
 	  (cond 
@@ -242,7 +249,11 @@
 	    (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) (point-at-bol))))
+		   command))))))
     (latexi-translate-string "$" "\\gnusdollar{}")
     (latexi-translate-string "&" "\\gnusampersand{}")
     (latexi-translate-string "%" "\\gnuspercent{}")