From 690ec64977401b78094df77c5e28ce91a4a5c9a8 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 10 Oct 2000 17:27:38 +0000 Subject: use lisp-mode-shared-map instead of shared-lisp-mode-map --- lisp/ledit.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/ledit.el') diff --git a/lisp/ledit.el b/lisp/ledit.el index a54e976cf8..66ebe146a2 100644 --- a/lisp/ledit.el +++ b/lisp/ledit.el @@ -39,7 +39,7 @@ (defconst ledit-read-file (expand-file-name (concat (user-login-name) ".l2") temporary-file-directory) "File name for data sent to Ledit by Lisp.") -(defconst ledit-compile-file +(defconst ledit-compile-file (expand-file-name (concat (user-login-name) ".l4") temporary-file-directory) "File name for data sent to Lisp compiler by Ledit.") (defconst ledit-buffer "*LEDIT*" @@ -120,9 +120,9 @@ (defun ledit-setup () "Set up key bindings for the Lisp/Emacs interface." - (if (not ledit-mode-map) - (progn (setq ledit-mode-map (nconc (make-sparse-keymap) - shared-lisp-mode-map)))) + (unless ledit-mode-map + (setq ledit-mode-map (make-sparse-keymap)) + (set-keymap-parent ledit-mode-map lisp-mode-shared-map)) (define-key ledit-mode-map "\e\^d" 'ledit-save-defun) (define-key ledit-mode-map "\e\^r" 'ledit-save-region) (define-key ledit-mode-map "\^xz" 'ledit-go-to-lisp) -- cgit v1.2.3