From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 1 Jul 2015 11:09:01 +0000 (+0300)
Subject: Use cl-labels instead of cl-flet, for cl-lib shim compatibility
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/1079d1af8aa3860a57e221336adb95badf7b23c8?hp=05987e687d81eef7888d21bc240c2adbbe78fa9a

Use cl-labels instead of cl-flet, for cl-lib shim compatibility
---

diff --git a/company-dabbrev.el b/company-dabbrev.el
index 2ab4303e3..a3e4eb766 100644
--- a/company-dabbrev.el
+++ b/company-dabbrev.el
@@ -1,6 +1,6 @@
 ;;; company-dabbrev.el --- dabbrev-like company-mode completion back-end  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2009, 2011, 2014  Free Software Foundation, Inc.
+;; Copyright (C) 2009, 2011, 2014, 2015  Free Software Foundation, Inc.
 
 ;; Author: Nikolaj Schumacher
 
@@ -100,13 +100,13 @@ This variable affects both `company-dabbrev' and `company-dabbrev-code'."
 (defun company-dabbrev--search-buffer (regexp pos symbols start limit
                                        ignore-comments)
   (save-excursion
-    (cl-flet ((maybe-collect-match
-               ()
-               (let ((match (match-string-no-properties 0)))
-                 (when (and (>= (length match) company-dabbrev-minimum-length)
-                            (not (and company-dabbrev-ignore-invisible
-                                      (invisible-p (match-beginning 0)))))
-                   (push match symbols)))))
+    (cl-labels ((maybe-collect-match
+                 ()
+                 (let ((match (match-string-no-properties 0)))
+                   (when (and (>= (length match) company-dabbrev-minimum-length)
+                              (not (and company-dabbrev-ignore-invisible
+                                        (invisible-p (match-beginning 0)))))
+                     (push match symbols)))))
       (goto-char (if pos (1- pos) (point-min)))
       ;; search before pos
       (company-dabrev--time-limit-while (re-search-backward regexp nil t)