mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(ielm-map): Don't bind M-q.

Browse Source 
(inferior-emacs-lisp-mode): Set fill-paragraph-function instead.
This commit is contained in:
Karl Heuer 1996-08-20 19:10:47 +00:00
parent 7d7134484a
commit 950086e6eb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ielm.el
View File

@ -89,7 +89,7 @@ This variable is buffer-local.")
(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 @@ This variable is buffer-local.")
;; 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 @@ Customised bindings may be defined in `ielm-map', which currently contains:
(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)