[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master e525793 143/173: company-dabbrev--search-buffer: Speed up
From: |
Dmitry Gutov |
Subject: |
[elpa] master e525793 143/173: company-dabbrev--search-buffer: Speed up |
Date: |
Thu, 23 Jun 2016 00:28:46 +0000 (UTC) |
branch: master
commit e52579348d8529b0cff08a1f0a676cb0cc6f61c3
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
company-dabbrev--search-buffer: Speed up
#482
---
company-dabbrev.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/company-dabbrev.el b/company-dabbrev.el
index 05c9820..85741f2 100644
--- a/company-dabbrev.el
+++ b/company-dabbrev.el
@@ -79,14 +79,14 @@ This variable affects both `company-dabbrev' and
`company-dabbrev-code'."
:type 'boolean
:package-version '(company . "0.9.0"))
-(defmacro company-dabrev--time-limit-while (test start limit &rest body)
+(defmacro company-dabrev--time-limit-while (test start limit freq &rest body)
(declare (indent 3) (debug t))
`(let ((company-time-limit-while-counter 0))
(catch 'done
(while ,test
,@body
(and ,limit
- (eq (cl-incf company-time-limit-while-counter) 25)
+ (= (cl-incf company-time-limit-while-counter) ,freq)
(setq company-time-limit-while-counter 0)
(> (float-time (time-since ,start)) ,limit)
(throw 'done 'company-time-out))))))
@@ -107,8 +107,8 @@ This variable affects both `company-dabbrev' and
`company-dabbrev-code'."
(goto-char (if pos (1- pos) (point-min)))
;; Search before pos.
(let ((tmp-end (point)))
- (company-dabrev--time-limit-while (not (bobp))
- start limit
+ (company-dabrev--time-limit-while (> tmp-end (point-min))
+ start limit 1
(ignore-errors
(forward-char -10000))
(forward-line 0)
@@ -124,7 +124,7 @@ This variable affects both `company-dabbrev' and
`company-dabbrev-code'."
(goto-char (or pos (point-min)))
;; Search after pos.
(company-dabrev--time-limit-while (re-search-forward regexp nil t)
- start limit
+ start limit 25
(if (and ignore-comments (save-match-data
(company-in-string-or-comment)))
(re-search-forward "\\s>\\|\\s!\\|\\s\"" nil t)
(maybe-collect-match)))
- [elpa] master faa8f84 120/173: Add company-semantic-insert-arguments, (continued)
- [elpa] master faa8f84 120/173: Add company-semantic-insert-arguments, Dmitry Gutov, 2016/06/22
- [elpa] master c357d5a 144/173: company-grab-line: Make it work in ERC prompt, Dmitry Gutov, 2016/06/22
- [elpa] master a53911c 130/173: Separate sort of candidates and children in company-files, Dmitry Gutov, 2016/06/22
- [elpa] master 99ce60b 125/173: Add company-search-flex-regexp, Dmitry Gutov, 2016/06/22
- [elpa] master ada2ede 128/173: Merge pull request #461 from rlph/patch-1, Dmitry Gutov, 2016/06/22
- [elpa] master c38d382 147/173: Fixed typo, Dmitry Gutov, 2016/06/22
- [elpa] master 1275cdd 141/173: Bump copyright, Dmitry Gutov, 2016/06/22
- [elpa] master 4f0d7a1 131/173: Kill trailing / on directories completion, Dmitry Gutov, 2016/06/22
- [elpa] master 1de23f8 148/173: Merge pull request #486 from akirakyle/patch-1, Dmitry Gutov, 2016/06/22
- [elpa] master c12216b 140/173: re-sort, Dmitry Gutov, 2016/06/22
- [elpa] master e525793 143/173: company-dabbrev--search-buffer: Speed up,
Dmitry Gutov <=
- [elpa] master 7d2d49b 150/173: company--fetch-candidates: Bind non-essential, Dmitry Gutov, 2016/06/22
- [elpa] master 90ec4ce 153/173: Don't call company-abort right after startup, Dmitry Gutov, 2016/06/22
- [elpa] master d48eaee 155/173: Merge pull request #499 from fice-t/autoload, Dmitry Gutov, 2016/06/22
- [elpa] master e0d2bf0 157/173: company-bbdb: Use full names as prefix, Dmitry Gutov, 2016/06/22
- [elpa] master 6067bc6 169/173: Mention company-sort-prefer-same-case-prefix, Dmitry Gutov, 2016/06/22
- [elpa] master adfb2d9 167/173: Mention company-pseudo-tooltip-unless-just-one-frontend-with-delay in NEWS, Dmitry Gutov, 2016/06/22
- [elpa] master ce38a7d 166/173: Replace :sorted with :separate, and sort within each chunk, Dmitry Gutov, 2016/06/22
- [elpa] master 971eea5 170/173: Bump copyright, Dmitry Gutov, 2016/06/22
- [elpa] master de9f2e1 163/173: Add support for auto-complete like behavior (#524), Dmitry Gutov, 2016/06/22
- [elpa] master 212c8fc 172/173: Make a new release, Dmitry Gutov, 2016/06/22