sql.el (sql-postgres):

追加。ユーザ名も聞いて欲しい。
当てるバージョン：
;; Version: 1.6.2

	*** c:/Temp/sql.el-orig	Thu Mar 17 10:24:18 2005

	--- c:/Temp/sql.el	Thu Mar 17 10:24:18 2005

	***************

	*** 1672,1678 ****

	    (interactive)

	    (if (comint-check-proc "*SQL*")

	        (pop-to-buffer "*SQL*")

	!     (sql-get-login 'database 'server)

	      (message "Login...")

	      ;; username and password are ignored.  Mark Stosberg suggest to add

	      ;; the database at the end.  Jason Beegan suggest using --pset and

	--- 1672,1678 ----

	    (interactive)

	    (if (comint-check-proc "*SQL*")

	        (pop-to-buffer "*SQL*")

	!     (sql-get-login 'database 'server 'user)

	      (message "Login...")

	      ;; username and password are ignored.  Mark Stosberg suggest to add

	      ;; the database at the end.  Jason Beegan suggest using --pset and

	***************

	*** 1684,1689 ****

	--- 1684,1691 ----

	  	  (setq params (append params (list sql-database))))

	        (if (not (string= "" sql-server))

	  	  (setq params (append (list "-h" sql-server) params)))

	+       (if (not (string= "" sql-user))

	+ 	  (setq params (append (list "-U" sql-user) params)))

	        (set-buffer (apply 'make-comint "SQL" sql-postgres-program

	  			 nil params)))

	      (setq sql-prompt-regexp "^.*> *")