ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2026-02-04 06:32:24 +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
Download Patch File Download Diff File Expand all files Collapse all files

7
yasnippet.el
View File

@@ -696,8 +696,7 @@ 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)
(let ((dfs (lambda (mode &optional explored)
(push mode explored)
(cons mode
(loop for neighbour
@@ -706,9 +705,9 @@ and friends."
(gethash mode yas--parents)))
unless (memq neighbour explored)
append (dfs 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.")