From a534087934ab97ee72b26fc66ce681954340341a Mon Sep 17 00:00:00 2001 From: Madeleine Sydney Date: Mon, 10 Mar 2025 15:16:47 -0600 Subject: [PATCH] feat(emacs): Use Elisp settings in lisp-data-mode when appropriate --- .../emacs/modules/lang/syd-lang-emacs-lisp.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/users/crumb/programs/emacs/modules/lang/syd-lang-emacs-lisp.el b/users/crumb/programs/emacs/modules/lang/syd-lang-emacs-lisp.el index 0243ce3..31501c2 100644 --- a/users/crumb/programs/emacs/modules/lang/syd-lang-emacs-lisp.el +++ b/users/crumb/programs/emacs/modules/lang/syd-lang-emacs-lisp.el @@ -60,16 +60,17 @@ to a pop up buffer." :source-buffer (current-buffer) :force-popup current-prefix-arg)) -(set-repl-handler! 'emacs-lisp-mode - #'syd/open-emacs-lisp-repl) +(dolist (m '(emacs-lisp-mode lisp-data-mode)) + (set-repl-handler! 'emacs-lisp-mode + #'syd/open-emacs-lisp-repl) + (set-eval-handler! 'emacs-lisp-mode + #'syd-emacs-lisp-eval)) -(set-eval-handler! 'emacs-lisp-mode - #'syd-emacs-lisp-eval) - -(add-hook 'emacs-lisp-mode-hook #'syd-lisp-mode) +(syd-add-hook '(emacs-lisp-mode-hook lisp-data-mode) + #'syd-lisp-mode) ;; DEPRECATED: Remove once syd-strategies is working. -(syd-add-hook '(emacs-lisp-mode-hook help-mode-hook) +(syd-add-hook '(emacs-lisp-mode-hook help-mode-hook lisp-data-mode) (defun syd-emacs-set-handlers-h () (setq-local syd-lookup-documentation-handlers (list #'syd-emacs-lisp-lookup-documentation))))