From 35d132a834872bfd554fcefe2a084671bc3f39ba Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 2 Feb 1995 09:40:06 +0000 Subject: (shared-lisp-mode-map): Don't bind M-q. (lisp-mode-variables): Put it in fill-paragraph-function locally. --- lisp/emacs-lisp/lisp-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/lisp-mode.el') 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)) -- cgit v1.2.3