diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-06-28 12:59:00 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-06-28 17:35:15 -0700 |
commit | d982589566ae6083aece9bc78b4f23c446930d56 (patch) | |
tree | da2698c2a3cb85380541d198b65077190eb3c4ae | |
parent | fbc6d7e620dfb974a123ba43741c4c5296cdb6ca (diff) | |
download | dotfiles-d982589566ae6083aece9bc78b4f23c446930d56.tar.gz |
set up C-j for *scheme* buffer
-rw-r--r-- | .emacs.d/init.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 2b119f62..fa34296d 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -528,10 +528,15 @@ that's something we can determine.") "Replacement for `paredit-newline' which does traditional Emacs Lisp Interaction C-j in `lisp-interaction-mode' and similar." (interactive) - (if-let ((command - (alist-get major-mode - '((lisp-interaction-mode . eval-print-last-sexp) - (edebug-eval-mode . edebug-eval-print-last-sexp))))) + (if-let + ((command + (alist-get + major-mode + '((lisp-interaction-mode . eval-print-last-sexp) + (edebug-eval-mode . edebug-eval-print-last-sexp) + + ;; Not quite a traditional Emacs C-j, but close enough. + (scheme-interaction-mode . xscheme-send-previous-expression))))) (let ((start (point-marker)) (pp-use-max-width t) (pp-max-width fill-column) |