From ad3077be3ad684bf41522308159e078196c80137 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 11 Nov 1996 17:29:57 +0000
Subject: [PATCH] added return-edit%

original commit: 16232d90512a59bb10cc99ac5e8c325340aa18d9
---
 collects/mred/edit.ss | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index d2a8fc48..c6af8ca6 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -505,5 +505,26 @@
 
     (define edit% (make-edit% mred:connections:connections-media-edit%))
 
+    (define make-return-edit%
+      (lambda (super%)
+	(class super% (return . args)
+	  (rename [super-on-local-char on-local-char])
+	  (public
+	    [on-local-char
+	     (lambda (key)
+	       (let ([cr-code 13]
+		     [lf-code 10]
+		     [code (send key get-key-code)])
+		 (or (and (or (= lf-code code)
+			      (= cr-code code))
+			  (return))
+		     (super-on-local-char key))))])
+	  (sequence
+	    (apply super-init args)))))
+
+    (define return-edit% (make-return-edit% edit%))
+		  
+		      
+
     (define make-pasteboard% make-std-buffer%)
     (define pasteboard% (make-pasteboard% mred:connections:connections-media-pasteboard%))))