ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-14 05:23:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: shoosh warning with LETREC instead of LET

Browse Source
This commit is contained in:
João Távora 2013-09-02 12:01:24 +01:00
parent ce50b3dbfa
commit 78c52fdf5c
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
yasnippet.el
View File

@ -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)))))