From 8b52db0b992ccc2267d5489d761496c1b875b24d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 28 Apr 1989 03:52:19 +0000 Subject: [PATCH] Fix typo in `insert-register' command. --- v7/src/edwin/regcom.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/regcom.scm b/v7/src/edwin/regcom.scm index 0aadd7747..2585f2cbc 100644 --- a/v7/src/edwin/regcom.scm +++ b/v7/src/edwin/regcom.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/regcom.scm,v 1.16 1989/04/15 00:52:16 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/regcom.scm,v 1.17 1989/04/28 03:52:19 cph Exp $ ;;; ;;; Copyright (c) 1987, 1989 Massachusetts Institute of Technology ;;; @@ -104,7 +104,7 @@ With prefix arg, puts mark before and point after." (let ((value (get-register register))) (cond ((string? value) value) ((integer? value) (write-to-string value)) - (else (register-error "does not contain text"))))))) + (else (register-error register "does not contain text"))))))) (define-command append-to-register "Append region to text in given register. -- 2.25.1