diff options
| author | Sam Steingold <sds@gnu.org> | 2000-10-10 17:27:38 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2000-10-10 17:27:38 +0000 |
| commit | 690ec64977401b78094df77c5e28ce91a4a5c9a8 (patch) | |
| tree | c99536fbfb59943f668a0bf97d05de0a598adbb1 /lisp/ledit.el | |
| parent | 80f9f3db875c966d9c311ff5416085242d331508 (diff) | |
| download | emacs-690ec64977401b78094df77c5e28ce91a4a5c9a8.tar.gz | |
use lisp-mode-shared-map instead of shared-lisp-mode-map
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) |