msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(emacs): Use Elisp settings in lisp-data-mode when appropriate

Browse Source
This commit is contained in:
Madeleine Sydney
2025-03-10 15:16:47 -06:00
parent 2f7221b433
commit a534087934
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
users/crumb/programs/emacs/modules/lang/syd-lang-emacs-lisp.el
View File

@@ -60,16 +60,17 @@ to a pop up buffer."
:source-buffer (current-buffer) :source-buffer (current-buffer)
:force-popup current-prefix-arg)) :force-popup current-prefix-arg))
(set-repl-handler! 'emacs-lisp-mode (dolist (m '(emacs-lisp-mode lisp-data-mode))
(set-repl-handler! 'emacs-lisp-mode
#'syd/open-emacs-lisp-repl) #'syd/open-emacs-lisp-repl)
(set-eval-handler! 'emacs-lisp-mode
#'syd-emacs-lisp-eval))
(set-eval-handler! 'emacs-lisp-mode (syd-add-hook '(emacs-lisp-mode-hook lisp-data-mode)
#'syd-emacs-lisp-eval) #'syd-lisp-mode)
(add-hook 'emacs-lisp-mode-hook #'syd-lisp-mode)
;; DEPRECATED: Remove once syd-strategies is working. ;; 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 () (defun syd-emacs-set-handlers-h ()
(setq-local syd-lookup-documentation-handlers (setq-local syd-lookup-documentation-handlers
(list #'syd-emacs-lisp-lookup-documentation)))) (list #'syd-emacs-lisp-lookup-documentation))))