# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 957786113 0
# Node ID b8133d80ec1e683772ff8b2c5e21d267c7cac210
# Parent  f100ab01a7692b3f9f051f388f75420f08e67ab5
(set-language-info-alist): Call define-prefix-command with 3 arguments,
to make the map suitable for a menu.

diff -r f100ab01a769 -r b8133d80ec1e lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Sun May 07 19:09:25 2000 +0000
+++ b/lisp/international/mule-cmds.el	Mon May 08 11:41:53 2000 +0000
@@ -706,17 +706,20 @@
 	(setup-map setup-language-environment-map))
     (if parents
 	(let ((l parents)
-	      map parent-symbol parent)
+	      map parent-symbol parent prompt)
 	  (while l
 	    (if (symbolp (setq parent-symbol (car l)))
 		(setq parent (symbol-name parent))
 	      (setq parent parent-symbol parent-symbol (intern parent)))
 	    (setq map (lookup-key describe-map (vector parent-symbol)))
+	    ;; This prompt string is for define-prefix-command, so
+	    ;; that the map it creates will be suitable for a menu.
+	    (or map (setq prompt (format "%s Environment" parent)))
 	    (if (not map)
 		(progn
 		  (setq map (intern (format "describe-%s-environment-map"
 					    (downcase parent))))
-		  (define-prefix-command map)
+		  (define-prefix-command map nil prompt)
 		  (define-key-after describe-map (vector parent-symbol)
 		    (cons parent map) t)))
 	    (setq describe-map (symbol-value map))
@@ -725,7 +728,7 @@
 		(progn
 		  (setq map (intern (format "setup-%s-environment-map"
 					    (downcase parent))))
-		  (define-prefix-command map)
+		  (define-prefix-command map nil prompt)
 		  (define-key-after setup-map (vector parent-symbol)
 		    (cons parent map) t)))
 	    (setq setup-map (symbol-value map))