--- auctex-11.53/tex.el.orig	2004-08-29 00:57:47 +0300

+++ auctex-11.53/tex.el	2004-11-27 07:52:24 +0200

@@ -356,7 +356,10 @@

 ;; you only have one printer.

 (defcustom TeX-printer-list

-  '(("Default" "%(o?)dvips -f %s | lpr" "lpq"))

+	(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.