# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 840568247 0
# Node ID 4877d1aa80adf71e61f1000f2e4290a930516ee9
# Parent  67d9f8e91688fa14c2d715ad4c4a7009eab1d720
(ielm-map): Don't bind M-q.
(inferior-emacs-lisp-mode): Set fill-paragraph-function instead.

diff -r 67d9f8e91688 -r 4877d1aa80ad lisp/ielm.el
--- a/lisp/ielm.el	Mon Aug 19 16:53:35 1996 +0000
+++ b/lisp/ielm.el	Tue Aug 20 19:10:47 1996 +0000
@@ -89,7 +89,7 @@
 (defvar ielm-header 
   (concat
    "*** Welcome to IELM version "
-   (substring "$Revision: 1.6 $" 11 -2)
+   (substring "$Revision: 1.7 $" 11 -2)
    " ***  Type (describe-mode) for help.\n"
    "IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n")
   "Message to display when IELM is started.")
@@ -111,7 +111,6 @@
   ;; These bindings are from shared-lisp-mode-map -- can you inherit
   ;; from more than one keymap??
   (define-key ielm-map "\e\C-q" 'indent-sexp)      
-  (define-key ielm-map "\eq" 'lisp-fill-paragraph) 
   (define-key ielm-map "\177" 'backward-delete-char-untabify)
   ;; Some convenience bindings for setting the working buffer
   (define-key ielm-map "\C-c\C-b" 'ielm-change-working-buffer)
@@ -416,6 +415,8 @@
   (make-local-variable 'ielm-working-buffer)
   (setq ielm-working-buffer (current-buffer))
   (setq indent-line-function 'ielm-indent-line)
+  (make-local-variable 'fill-paragraph-function)
+  (setq fill-paragraph-function 'lisp-fill-paragraph)
 
   ;; Value holders
   (setq : nil)