branch: master
commit 78c52fdf5cc049b8e40c8d693058017de8a53b6f
Author: João Távora <[email protected]>
Commit: João Távora <[email protected]>
fix: shoosh warning with LETREC instead of LET
---
yasnippet.el | 20 ++++++++++----------
1 files changed, 10 insertions(+), 10 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)))
-
- unless (memq neighbour explored)
- append (funcall dfs neighbour explored))))))
+ (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))))))
(remove-duplicates (append yas-extra-modes
(funcall dfs major-mode)))))
