From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 2 Feb 1995 09:40:06 +0000 (+0000)
Subject: (shared-lisp-mode-map): Don't bind M-q.
X-Git-Tag: emacs-19.34~5230
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35d132a834872bfd554fcefe2a084671bc3f39ba;p=emacs.git

(shared-lisp-mode-map): Don't bind M-q.
(lisp-mode-variables): Put it in fill-paragraph-function locally.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index d6c299942bd..6bb3c6f36c7 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -88,6 +88,8 @@
   (setq paragraph-separate paragraph-start)
   (make-local-variable 'paragraph-ignore-fill-prefix)
   (setq paragraph-ignore-fill-prefix t)
+  (make-local-variable 'fill-paragraph-function)
+  (setq fill-paragraph-function 'lisp-fill-paragraph)
   (make-local-variable 'indent-line-function)
   (setq indent-line-function 'lisp-indent-line)
   (make-local-variable 'indent-region-function)
@@ -112,7 +114,6 @@
     ()
    (setq shared-lisp-mode-map (make-sparse-keymap))
    (define-key shared-lisp-mode-map "\e\C-q" 'indent-sexp)
-   (define-key shared-lisp-mode-map "\M-q" 'lisp-fill-paragraph)
    (define-key shared-lisp-mode-map "\177" 'backward-delete-char-untabify)
    (define-key shared-lisp-mode-map "\t" 'lisp-indent-line))