diff options
Diffstat (limited to 'lisp/ledit.el')
| -rw-r--r-- | lisp/ledit.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ledit.el b/lisp/ledit.el index a54e976cf85..66ebe146a23 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) |