[elpa] master ce50b3d 004/177: Closes #318: Don't use CL-LABELS for backward compatibility with older emacsen

[João Távora]

branch: master
commit ce50b3dbfa7529fff3f642f986b6189436554276
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    Closes #318: Don't use CL-LABELS for backward compatibility with older 
emacsen
---
 yasnippet.el |   23 +++++++++++------------
 1 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/yasnippet.el b/yasnippet.el
index dab6b55..a6754ab 100644
--- a/yasnippet.el
+++ b/yasnippet.el
@@ -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)))
-
-                        unless (memq neighbour explored)
-                        append (dfs neighbour explored)))))
+  (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))))))
     (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.")