ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-14 21:43: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 () (defun yas--modes-to-activate ()
"Compute list of mode symbols that are active for `yas-expand' "Compute list of mode symbols that are active for `yas-expand'
and friends." and friends."
(let ((dfs (lambda (mode &optional explored) (letrec ((dfs (lambda (mode &optional explored)
(push mode explored) (push mode explored)
(cons mode (cons mode
(loop for neighbour (loop for neighbour
in (remove nil (cons (get mode in (remove nil (cons (get mode
'derived-mode-parent) 'derived-mode-parent)
(gethash mode yas--parents))) (gethash mode yas--parents)))
unless (memq neighbour explored) unless (memq neighbour explored)
append (funcall dfs neighbour explored)))))) append (funcall dfs neighbour explored))))))
(remove-duplicates (append yas-extra-modes (remove-duplicates (append yas-extra-modes
(funcall dfs major-mode))))) (funcall dfs major-mode)))))