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

Closes #318: Don't use CL-LABELS for backward compatibility with older emacsen

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

21
yasnippet.el
View File

@ -696,19 +696,18 @@ defined direct keybindings to the command
(defun yas--modes-to-activate ()
"Compute list of mode symbols that are active for `yas-expand'
and friends."
(cl-labels
((dfs (mode &optional explored)
(push mode explored)
(cons mode
(loop for neighbour
in (remove nil (cons (get mode
'derived-mode-parent)
(gethash mode yas--parents)))
(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 (dfs neighbour explored)))))
unless (memq neighbour explored)
append (funcall dfs neighbour explored))))))
(remove-duplicates (append yas-extra-modes
(dfs major-mode)))))
(funcall dfs major-mode)))))
(defvar yas-minor-mode-hook nil
"Hook run when `yas-minor-mode' is turned on.")