From 78c52fdf5cc049b8e40c8d693058017de8a53b6f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Mon, 2 Sep 2013 12:01:24 +0100 Subject: [PATCH] fix: shoosh warning with LETREC instead of LET --- yasnippet.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/yasnippet.el b/yasnippet.el index a6754ab..6ee8a19 100644 --- a/yasnippet.el +++ b/yasnippet.el @@ -696,16 +696,16 @@ defined direct keybindings to the command (defun yas--modes-to-activate () "Compute list of mode symbols that are active for `yas-expand' and friends." - (let ((dfs (lambda (mode &optional explored) - (push mode explored) - (cons mode - (loop for neighbour - in (remove nil (cons (get mode - 'derived-mode-parent) - (gethash mode yas--parents))) + (letrec ((dfs (lambda (mode &optional explored) + (push mode explored) + (cons mode + (loop for neighbour + in (remove nil (cons (get mode + 'derived-mode-parent) + (gethash mode yas--parents))) - unless (memq neighbour explored) - append (funcall dfs neighbour explored)))))) + unless (memq neighbour explored) + append (funcall dfs neighbour explored)))))) (remove-duplicates (append yas-extra-modes (funcall dfs major-mode)))))