--- auctex/tex.el.orig	2013-01-24 12:50:59.184353563 +0400
+++ auctex/tex.el	2013-01-24 12:54:47.633486387 +0400
@@ -350,13 +350,12 @@
 ;; you only have one printer.
 
 (defcustom TeX-printer-list
-  '(("Default"
-     ;; Print to the (unnamed) default printer.  If there is a DVI
-     ;; file print via Dvips.  If not, pass the output file (which
-     ;; should then be a Postscript or PDF file) directly to lpr.
-     "{ test -e %s.dvi && %(o?)dvips -f %r %s | lpr; } || lpr %o"
-     ;; Show the queue for the (unnamed) default printer.
-     "lpq"))
+     ;; traditional ALT Linux patch
+     ;; Get first printer name from the list returned by lpstat
+     (car (read-from-string
+            (shell-command-to-string "[ -x /usr/bin/lpstat ] && { echo '('; for p in $(lpstat -p 2>/dev/null | cut -d' ' --fields=2); do echo -n \"(\\\"$p\\\")\"; done; echo ')'; } || echo nil")
+            )
+          )
   "List of available printers.
 
 The first element of each entry is the printer name.