[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 30/35: Fix the test breakage (probably)
From: |
Dmitry Gutov |
Subject: |
[elpa] 30/35: Fix the test breakage (probably) |
Date: |
Sat, 19 Apr 2014 10:12:21 +0000 |
dgutov pushed a commit to branch master
in repository elpa.
commit 00d2e9a9f04691c64803d1fdfa3b69bd22dcbf79
Author: Dmitry Gutov <address@hidden>
Date: Wed Apr 9 20:38:03 2014 +0400
Fix the test breakage (probably)
#101
---
company-dabbrev.el | 2 +-
company-eclim.el | 2 +-
company-files.el | 2 +-
company.el | 20 ++++++++++----------
4 files changed, 13 insertions(+), 13 deletions(-)
diff --git a/company-dabbrev.el b/company-dabbrev.el
index ee3f658..401fcc9 100644
--- a/company-dabbrev.el
+++ b/company-dabbrev.el
@@ -114,7 +114,7 @@ If you set this value to nil, you may also want to set
(symbols (company-dabbrev--search-buffer regexp (point) nil start
limit
ignore-comments)))
(when other-buffers
- (dolist (buffer (delq (current-buffer) (buffer-list)))
+ (cl-dolist (buffer (delq (current-buffer) (buffer-list)))
(and (or (eq other-buffers 'all)
(eq (buffer-local-value 'major-mode buffer) major-mode))
(with-current-buffer buffer
diff --git a/company-eclim.el b/company-eclim.el
index 24f05f5..0eaf382 100644
--- a/company-eclim.el
+++ b/company-eclim.el
@@ -40,7 +40,7 @@
(defun company-eclim-executable-find ()
(let (file)
- (dolist (eclipse-root '("/Applications/eclipse" "/usr/lib/eclipse"
+ (cl-dolist (eclipse-root '("/Applications/eclipse" "/usr/lib/eclipse"
"/usr/local/lib/eclipse"))
(and (file-exists-p (setq file (expand-file-name "plugins"
eclipse-root)))
(setq file (car (last (directory-files file t "^org.eclim_"))))
diff --git a/company-files.el b/company-files.el
index a450526..a839f79 100644
--- a/company-files.el
+++ b/company-files.el
@@ -45,7 +45,7 @@
(defun company-files-grab-existing-name ()
;; Grab file names with spaces, only when they include quotes.
(let (file dir)
- (and (dolist (regexp company-files-regexps)
+ (and (cl-dolist (regexp company-files-regexps)
(when (setq file (company-grab-line regexp 1))
(cl-return file)))
(setq dir (file-name-directory file))
diff --git a/company.el b/company.el
index 7b185e3..e2cb843 100644
--- a/company.el
+++ b/company.el
@@ -291,7 +291,7 @@ This doesn't include the margins and the scroll bar."
(defun company-safe-backends-p (backends)
(and (consp backends)
- (not (dolist (backend backends)
+ (not (cl-dolist (backend backends)
(unless (if (consp backend)
(company-safe-backends-p backend)
(assq backend company-safe-backends))
@@ -629,7 +629,7 @@ asynchronous call into synchronous.")
;; No initialization for lambdas.
((functionp backend) t)
(t ;; Must be a list.
- (dolist (b backend)
+ (cl-dolist (b backend)
(unless (keywordp b)
(company-init-backend b))))))
@@ -848,7 +848,7 @@ means that `company-mode' is always turned on except in
`message-mode' buffers."
(`duplicates t)
((or `prefix `ignore-case `no-cache `require-match)
(let (value)
- (dolist (backend backends)
+ (cl-dolist (backend backends)
(when (setq value (company--force-sync
backend (cons command args) backend))
(cl-return value)))))
@@ -1081,7 +1081,7 @@ can retrieve meta-data for them."
(let ((len (length prefix))
(completion-ignore-case ignore-case)
prev)
- (dotimes (i (1+ len))
+ (cl-dotimes (i (1+ len))
(when (setq prev (cdr (assoc (substring prefix 0 (- len i))
company-candidates-cache)))
(setq candidates (all-completions prefix prev))
@@ -1248,7 +1248,7 @@ Keywords and function definition names are ignored."
(append before (reverse after))
(append after (reverse before)))))
(company-cancel)
- (dolist (backend next)
+ (cl-dolist (backend next)
(when (ignore-errors (company-begin-backend backend))
(cl-return t))))
(company-manual-begin))
@@ -1340,10 +1340,10 @@ Keywords and function definition names are ignored."
(defun company--begin-new ()
(let (prefix c)
- (dolist (backend (if company-backend
- ;; prefer manual override
- (list company-backend)
- company-backends))
+ (cl-dolist (backend (if company-backend
+ ;; prefer manual override
+ (list company-backend)
+ company-backends))
(setq prefix
(if (or (symbolp backend)
(functionp backend))
@@ -1496,7 +1496,7 @@ Keywords and function definition names are ignored."
(defun company-search (text lines)
(let ((quoted (regexp-quote text))
(i 0))
- (dolist (line lines)
+ (cl-dolist (line lines)
(when (string-match quoted line (length company-prefix))
(cl-return i))
(cl-incf i))))
- [elpa] 21/35: Define and use `company-grab-symbol-cons', (continued)
- [elpa] 21/35: Define and use `company-grab-symbol-cons', Dmitry Gutov, 2014/04/19
- [elpa] 23/35: Introduce `company-tooltip-minimum-width', Dmitry Gutov, 2014/04/19
- [elpa] 25/35: Make version string compatible with Emacs < 24.4, Dmitry Gutov, 2014/04/19
- [elpa] 24/35: Lower company-idle-delay, Dmitry Gutov, 2014/04/19
- [elpa] 06/35: Drop Emacs 23 compatibility, Dmitry Gutov, 2014/04/19
- [elpa] 11/35: Initial support for asynchonous backends (#62), Dmitry Gutov, 2014/04/19
- [elpa] 26/35: Merge pull request #100 from bbatsov/version-fix, Dmitry Gutov, 2014/04/19
- [elpa] 27/35: Try to use the more up-to-date snapshot packages, Dmitry Gutov, 2014/04/19
- [elpa] 29/35: Merge pull request #101 from bbatsov/master, Dmitry Gutov, 2014/04/19
- [elpa] 15/35: Merge branch 'clang-async', Dmitry Gutov, 2014/04/19
- [elpa] 30/35: Fix the test breakage (probably),
Dmitry Gutov <=
- [elpa] 31/35: Introduce company-clang-insert-arguments, Dmitry Gutov, 2014/04/19
- [elpa] 05/35: Update NEWS, Dmitry Gutov, 2014/04/19
- [elpa] 34/35: Release 0.8.0, Dmitry Gutov, 2014/04/19
- [elpa] 33/35: Always include company-capf in the backends, Dmitry Gutov, 2014/04/19
- [elpa] 35/35: Merge commit '51c140ca9ee32d27cacc7b2b07d4539bf98ae575' from company-master, Dmitry Gutov, 2014/04/19
- [elpa] 28/35: Use cl-lib, Dmitry Gutov, 2014/04/19
- [elpa] 32/35: `company-other-backend': don't use `company-manual-begin', Dmitry Gutov, 2014/04/19
- [elpa] 01/35: New option company-abort-manual-when-too-short, Dmitry Gutov, 2014/04/19