From 9ae445e2abf69eba3358efa8d0026b96ea10ad43 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 17 May 1991 00:27:32 +0000 Subject: [PATCH] Change M-x execute-extended-command to use name of command character as prompt. Take advantage of new feature in prompt-for-string to eliminate automatic suffix of ": " on the prompt string. --- v7/src/edwin/basic.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm index ee95de4c9..d6e7a1eaa 100644 --- a/v7/src/edwin/basic.scm +++ b/v7/src/edwin/basic.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/basic.scm,v 1.112 1991/05/16 21:21:07 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/basic.scm,v 1.113 1991/05/17 00:27:32 cph Exp $ ;;; ;;; Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology ;;; @@ -186,12 +186,16 @@ It reads another character (a subcommand) and dispatches on it." (define-command execute-extended-command "Read an extended command from the terminal with completion. -This command reads the name of a function, with completion. Then the -function is called. Completion is done as the function name is typed +This command reads the name of a command, with completion. Then the +command is invoked. Completion is done as the command name is typed For more information type the HELP key while entering the name." () (lambda () - (dispatch-on-command (prompt-for-command "M-x") true))) + (dispatch-on-command + (prompt-for-command + ;; Prompt with the name of the command char. + (list (string-append (xchar->name (current-command-char)) " "))) + true))) ;;;; Errors -- 2.25.1