From 2d3f3da4b339399d2f596b270aea8988cda38245 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 23 Apr 1989 23:16:54 +0000 Subject: [PATCH] Add argument to `dispatch-on-command' to force recording of command in command-history. Also change use of `mark-permanent!'. --- v7/src/edwin/basic.scm | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm index fe91441f8..7fa4a6f45 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.96 1989/04/15 00:46:39 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/basic.scm,v 1.97 1989/04/23 23:16:54 cph Exp $ ;;; ;;; Copyright (c) 1986, 1989 Massachusetts Institute of Technology ;;; @@ -190,7 +190,7 @@ function is called. Completion is done as the function name is typed For more information type the HELP key while entering the name." () (lambda () - (dispatch-on-command (prompt-for-command "Extended Command")))) + (dispatch-on-command (prompt-for-command "Extended Command") true))) (define-command suspend-scheme "Go back to Scheme's superior job. @@ -299,14 +299,15 @@ Otherwise, set the comment column to the argument." (end (line-end (current-point) 0))) (let ((com ((ref-variable comment-locator-hook) start))) (set-current-point! (if com (car com) end)) - (if com (mark-permanent! (cdr com))) - (let ((indent - ((ref-variable comment-indent-hook) (current-point)))) - (maybe-change-column indent) - (if com - (set-current-point! (cdr com)) - (begin (insert-string (ref-variable comment-start)) - (insert-comment-end))))))))) + (let ((comment-end (and com (mark-permanent! (cdr com))))) + (let ((indent + ((ref-variable comment-indent-hook) (current-point)))) + (maybe-change-column indent) + (if comment-end + (set-current-point! comment-end) + (begin + (insert-string (ref-variable comment-start)) + (insert-comment-end)))))))))) (define-variable comment-multi-line "If true, means \\[indent-new-comment-line] should continue same comment -- 2.25.1