Re: Debugger entered--Lisp error: (excessive-lisp-nesting)

[Platon Pronko]

On 2023-06-08 15:07, uzibalqa wrote:
> I am getting the following debugger information but have been unable to locate 
> the problem.
>
> What can I do ?
>
>
> Debugger entered--Lisp error: (excessive-lisp-nesting)
>    (cond ((eq arg 'toggle) (not tematika-minor-mode)) ((and (numberp arg) (< 
> arg 1)) nil) (t t))
>    (setq tematika-minor-mode (cond ((eq arg 'toggle) (not tematika-minor-mode)) 
> ((and (numberp arg) (< arg 1)) nil) (t t)))
>    (let ((last-message (current-message))) (setq tematika-minor-mode (cond ((eq arg 'toggle) (not tematika-minor-mode)) ((and (numberp arg) 
> (< arg 1)) nil) (t t))) (if (boundp 'local-minor-modes) (progn (setq local-minor-modes (delq 'tematika-minor-mode local-minor-modes)) (if 
> tematika-minor-mode (progn (setq local-minor-modes (cons 'tematika-minor-mode local-minor-modes)))))) (if tematika-minor-mode (progn 
> (tematika-tools) (tematika-addhooks-woutline) (tematika-activate-woutline) (message "Tematika Activated")) 
> (tematika-activate-woutline) (message "Tematika Deactivated")) (run-hooks 'tematika-minor-mode-hook (if tematika-minor-mode 
> 'tematika-minor-mode-on-hook 'tematika-minor-mode-off-hook)) (if (called-interactively-p 'any) (progn nil (if (and (current-message) (not 
> (equal last-message (current-message)))) nil (let ((local " in current buffer")) (message "Tematika minor mode %sabled%s" 
> (if tematika-minor-mode "en" "dis") local))))))
>    tematika-minor-mode(0)
>    tematika-activate-woutline()
>    (if tematika-minor-mode (progn (tematika-tools) (tematika-addhooks-woutline) 
> (tematika-activate-woutline) (message "Tematika Activated")) (tematika-activate-woutline) 
> (message "Tematika Deactivated"))
>    (let ((last-message (current-message))) (setq tematika-minor-mode (cond ((eq arg 'toggle) (not tematika-minor-mode)) ((and (numberp arg) 
> (< arg 1)) nil) (t t))) (if (boundp 'local-minor-modes) (progn (setq local-minor-modes (delq 'tematika-minor-mode local-minor-modes)) (if 
> tematika-minor-mode (progn (setq local-minor-modes (cons 'tematika-minor-mode local-minor-modes)))))) (if tematika-minor-mode (progn 
> (tematika-tools) (tematika-addhooks-woutline) (tematika-activate-woutline) (message "Tematika Activated")) 
> (tematika-activate-woutline) (message "Tematika Deactivated")) (run-hooks 'tematika-minor-mode-hook (if tematika-minor-mode 
> 'tematika-minor-mode-on-hook 'tematika-minor-mode-off-hook)) (if (called-interactively-p 'any) (progn nil (if (and (current-message) (not 
> (equal last-message (current-message)))) nil (let ((local " in current buffer")) (message "Tematika minor mode %sabled%s" 
> (if tematika-minor-mode "en" "dis") local))))))
>    tematika-minor-mode(0)

Looks like you are reaching the recursion limit. Looking at the debugger trace 
it seems that (tematika-minor-mode) invokes (tematika-minor-mode), which causes 
infinite recursion.

--
Best regards,
Platon Pronko
PGP 2A62D77A7A2CB94E