From 8d3ccb2d32fa401173018a51b82b0302ed234a36 Mon Sep 17 00:00:00 2001 From: Steve Purcell Date: Sun, 13 Aug 2023 18:42:50 +0200 Subject: [PATCH] Remove misleading lists of lispy-modes These couldn't meaningfully be altered anywhere else, it seems, so better not to expose them. --- lisp/init-lisp.el | 20 ++------------------ 1 file changed, 2 insertions(+), 18 deletions(-) diff --git a/lisp/init-lisp.el b/lisp/init-lisp.el index 36af413fcc..250969cdc0 100644 --- a/lisp/init-lisp.el +++ b/lisp/init-lisp.el @@ -179,26 +179,10 @@ there is no current file, eval the current buffer." "Enable features useful in any Lisp mode." (run-hooks 'sanityinc/lispy-modes-hook)) -(defun sanityinc/emacs-lisp-setup () - "Enable features useful when working with elisp." - (set-up-hippie-expand-for-elisp)) - -(defconst sanityinc/elispy-modes - '(emacs-lisp-mode ielm-mode) - "Major modes relating to elisp.") - -(defconst sanityinc/lispy-modes - (append sanityinc/elispy-modes - '(lisp-mode inferior-lisp-mode lisp-interaction-mode)) - "All lispy major modes.") - (require 'derived) -(dolist (hook (mapcar #'derived-mode-hook-name sanityinc/lispy-modes)) - (add-hook hook 'sanityinc/lisp-setup)) - -(dolist (hook (mapcar #'derived-mode-hook-name sanityinc/elispy-modes)) - (add-hook hook 'sanityinc/emacs-lisp-setup)) +(dolist (mode '(emacs-lisp-mode ielm-mode lisp-mode inferior-lisp-mode lisp-interaction-mode)) + (add-hook (derived-mode-hook-name mode) 'sanityinc/lisp-setup)) (when (boundp 'eval-expression-minibuffer-setup-hook) (add-hook 'eval-expression-minibuffer-setup-hook #'eldoc-mode))