Make "m" key in Info mode default to the current menu item, if there is one.

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 7f818ea3e9897ea2e4b78fe90dd7d16b87db2b99..389f1c32d56c1e556ff78ede2855d55424e8d747 100644 (file)
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.149 1991/10/18 16:03:02 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.150 1991/10/21 12:06:00 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -302,17 +302,12 @@
 (define (prompt-for-alist-value prompt alist #!optional default)
   (fluid-let ((map-name/external->internal identity-procedure)
              (map-name/internal->external identity-procedure))
-    (if (default-object? default)
-       (prompt-for-string-table-value prompt
-                                      false
-                                      'NO-DEFAULT
-                                      (alist->string-table alist)
-                                      true)
-       (prompt-for-string-table-value prompt
-                                      default
-                                      'VISIBLE-DEFAULT
-                                      (alist->string-table alist)
-                                      true))))
+    (prompt-for-string-table-value prompt
+                                  (and (not (default-object? default))
+                                       default)
+                                  'VISIBLE-DEFAULT
+                                  (alist->string-table alist)
+                                  true)))
 
 (define (prompt-for-command prompt)
   (fluid-let ((map-name/external->internal editor-name/external->internal)