diff --git a/src/bin/psql/command.c b/src/bin/psql/command.c
index b9388b5816fc62d5b6ebf2382f11d7b1f8d82373..a9ca4b30b96d94db0fc5f5d29fb7191f7d8b6ec1 100644
--- a/src/bin/psql/command.c
+++ b/src/bin/psql/command.c
@@ -3,7 +3,7 @@
  *
  * Copyright 2000 by PostgreSQL Global Development Group
  *
- * $Header: /cvsroot/pgsql/src/bin/psql/command.c,v 1.68 2002/03/06 20:39:45 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/bin/psql/command.c,v 1.69 2002/03/07 17:54:39 momjian Exp $
  */
 #include "postgres_fe.h"
 #include "command.h"
@@ -380,10 +380,6 @@ exec_command(const char *cmd,
 			case 'u':
 				success = describeUsers(name);
 				break;
-			case 'D':
-				success = listDomains(name);
-				break;
-
 			default:
 				status = CMD_UNKNOWN;
 		}
diff --git a/src/bin/psql/describe.c b/src/bin/psql/describe.c
index 823755ccd26e9f44a053954124d0a354f5aec68f..8a6eca490d88b62815a4b648a1f927b1ce3afa0c 100644
--- a/src/bin/psql/describe.c
+++ b/src/bin/psql/describe.c
@@ -3,7 +3,7 @@
  *
  * Copyright 2000 by PostgreSQL Global Development Group
  *
- * $Header: /cvsroot/pgsql/src/bin/psql/describe.c,v 1.44 2002/03/06 20:39:45 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/bin/psql/describe.c,v 1.45 2002/03/07 17:54:39 momjian Exp $
  */
 #include "postgres_fe.h"
 #include "describe.h"
@@ -1036,51 +1036,3 @@ listTables(const char *infotype, const char *name, bool desc)
 	PQclear(res);
 	return true;
 }
-
-/*
- * \dD [domain]
- *
- * Describes domains, possibly based on a simplistic prefix search on the
- * argument.
- */
-
-bool
-listDomains(const char *name)
-{
-	char		buf[512 + REGEXP_CUTOFF];
-	PGresult   *res;
-	printQueryOpt myopt = pset.popt;
-
-	snprintf(buf, sizeof(buf),
-		 "SELECT t.typname as \"%s\",\n"
-		 "       format_type( t.typbasetype, t.typmod) as \"%s\",\n"
-		 "       CASE WHEN t.typnotnull AND t.typdefault IS NOT NULL THEN 'not null default '||t.typdefault\n"
-		 "            WHEN t.typnotnull AND t.typdefault IS NULL THEN 'not null'\n"
-		 "            WHEN NOT t.typnotnull AND t.typdefault IS NOT NULL THEN 'default '||t.typdefault\n"
-		 "            ELSE ''\n"
-		 "       END as \"%s\"\n"
-		 "FROM pg_type t\n"
-		 "WHERE t.typtype = 'd'\n",
-		 _("Name"),
-		 _("Type"),
-		 _("Modifier"));
-	if (name)
-	{
-		strcat(buf, "AND t.typname ~ '^");
-		strncat(buf, name, REGEXP_CUTOFF);
-		strcat(buf, "'\n");
-	}
-	strcat(buf, "ORDER BY 1;");
-
-	res = PSQLexec(buf);
-	if (!res)
-		return false;
-
-	myopt.nullPrint = NULL;
-	myopt.title = _("List of database domains");
-
-	printQuery(res, &myopt, pset.queryFout);
-
-	PQclear(res);
-	return true;
-}
diff --git a/src/bin/psql/describe.h b/src/bin/psql/describe.h
index 830612ee2273bad326b9e891020a124c2dac299c..d179ffced5668f785e28d7d92da85bfb774e77bd 100644
--- a/src/bin/psql/describe.h
+++ b/src/bin/psql/describe.h
@@ -3,7 +3,7 @@
  *
  * Copyright 2000 by PostgreSQL Global Development Group
  *
- * $Header: /cvsroot/pgsql/src/bin/psql/describe.h,v 1.14 2002/03/06 20:39:45 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/bin/psql/describe.h,v 1.15 2002/03/07 17:54:41 momjian Exp $
  */
 #ifndef DESCRIBE_H
 #define DESCRIBE_H
@@ -40,7 +40,4 @@ bool		listAllDbs(bool desc);
 /* \dt, \di, \ds, \dS, etc. */
 bool		listTables(const char *infotype, const char *name, bool desc);
 
-/* \dD */
-bool		listDomains(const char *name);
-
 #endif   /* DESCRIBE_H */
diff --git a/src/bin/psql/help.c b/src/bin/psql/help.c
index bccef415e196fdfdcccd86a229019a7c046b24d7..1d9e8b5a09deab5518e0fee54ef54a9e145b573d 100644
--- a/src/bin/psql/help.c
+++ b/src/bin/psql/help.c
@@ -3,7 +3,7 @@
  *
  * Copyright 2000 by PostgreSQL Global Development Group
  *
- * $Header: /cvsroot/pgsql/src/bin/psql/help.c,v 1.45 2002/03/06 20:39:45 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/bin/psql/help.c,v 1.46 2002/03/07 17:54:42 momjian Exp $
  */
 #include "postgres_fe.h"
 #include "help.h"
@@ -202,7 +202,6 @@ slashUsage(void)
 	fprintf(fout, _(" \\d{p|S|l}      list access privileges, system tables, or large objects\n"));
 	fprintf(fout, _(" \\da            list aggregate functions\n"));
 	fprintf(fout, _(" \\dd NAME       show comment for table, type, function, or operator\n"));
-	fprintf(fout, _(" \\dD [NAME]     list domains\n"));
 	fprintf(fout, _(" \\df            list functions\n"));
 	fprintf(fout, _(" \\do            list operators\n"));
 	fprintf(fout, _(" \\dT            list data types\n"));