marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Disable paredit for slime

Browse source
This commit is contained in:
Marcus Kammer 2024-07-24 22:40:13 +02:00
parent 990c748f8b
commit 183bf8680f
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
bundle/bundle--lisp.el
View file

@ -34,11 +34,11 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
;; Stop SLIME's REPL from grabbing DEL, ;; Stop SLIME's REPL from grabbing DEL,
;; which is annoying when backspacing over a '(' ;; which is annoying when backspacing over a '('
(defun override-slime-repl-bindings-with-paredit () ;; (defun override-slime-repl-bindings-with-paredit ()
(define-key slime-repl-mode-map ;; (define-key slime-repl-mode-map
(read-kbd-macro paredit-backward-delete-key) nil)) ;; (read-kbd-macro paredit-backward-delete-key) nil))
(add-hook 'slime-repl-mode-hook 'override-slime-repl-bindings-with-paredit) ;; (add-hook 'slime-repl-mode-hook 'override-slime-repl-bindings-with-paredit)
(setq common-lisp-hyperspec-symbol-table (setq common-lisp-hyperspec-symbol-table
(concat common-lisp-hyperspec-root "Data/Map_Sym.txt")) (concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))
@ -380,8 +380,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
(ielm-mode . paredit-mode) (ielm-mode . paredit-mode)
(lisp-mode . paredit-mode) (lisp-mode . paredit-mode)
(lisp-interaction-mode . paredit-mode) (lisp-interaction-mode . paredit-mode)
(scheme-mode . paredit-mode) (scheme-mode . paredit-mode))
(slime-repl-mode . paredit-mode))
:bind (:map paredit-mode-map :bind (:map paredit-mode-map
("M-s" . nil) ("M-s" . nil)
("C-M-s" . paredit-splice-sexp))) ("C-M-s" . paredit-splice-sexp)))