From 5d9119f3bf310f20014898a40548cf363891be1b Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Mon, 14 Jun 2021 15:34:11 +0530 Subject: [PATCH] [hydra] fix errors in language detection --- init.org | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/init.org b/init.org index 6e9b668..e773a73 100644 --- a/init.org +++ b/init.org @@ -1571,13 +1571,16 @@ Don't try to check if there are files with a certain extension...it will lead to #+BEGIN_SRC emacs-lisp (defun contrapunctus-programming-hydra-dispatch-language () (interactive) - (cond ((or (derived-mode-p 'emacs-lisp-mode 'ielm-mode 'debugger-mode)) + (cond ((derived-mode-p 'emacs-lisp-mode + 'inferior-emacs-lisp-mode + 'debugger-mode) (cp-el/body)) (;; (or (locate-dominating-file default-directory "build.scm") ;; (locate-dominating-file default-directory "main.ly")) (derived-mode-p 'LilyPond-mode) (cp-ly/body)) - ((and (featurep 'geiser) geiser-mode) + ((and (featurep 'geiser) + (bound-and-true-p geiser-mode)) (cond ((equal 'chicken geiser-impl--implementation) (cp-cs/body)) ((equal 'guile geiser-impl--implementation)