From 07803fd9b78ca736ccffcc69366730a5d667de57 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Nov 1992 22:55:48 +0000
Subject: [PATCH] Don't allow minor modes to be set in prompt-for-expression
 mode.

---
 v7/src/edwin/evlcom.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index f3ddf59a2..10e5d857c 100644
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: evlcom.scm,v 1.40 1992/11/16 22:40:58 cph Exp $
+;;;	$Id: evlcom.scm,v 1.41 1992/11/17 22:55:48 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -320,7 +320,14 @@ Depending on what is being solicited, either defaulting or completion
 may be available.  The following commands are special to this mode:
 
 \\[exit-minibuffer] terminates the input.
-\\[minibuffer-yank-default] yanks the default string, if there is one.")
+\\[minibuffer-yank-default] yanks the default string, if there is one."
+  (lambda (buffer)
+    ;; This kludge prevents auto-fill from being turned on.  Probably
+    ;; there is a better way to do this, but I can't think of one
+    ;; right now.  -- cph
+    (for-each (lambda (mode)
+		(disable-buffer-minor-mode! buffer mode))
+	      (buffer-minor-modes buffer))))
 
 (define-key 'prompt-for-expression #\return 'exit-minibuffer)
 (define-key 'prompt-for-expression #\c-m-y 'minibuffer-yank-default)
-- 
2.25.1