[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 22/30: company-dabbrev--search: Ignore "uninteresting" buffers
From: |
Dmitry Gutov |
Subject: |
[elpa] 22/30: company-dabbrev--search: Ignore "uninteresting" buffers |
Date: |
Tue, 14 Oct 2014 22:22:53 +0000 |
dgutov pushed a commit to branch master
in repository elpa.
commit b6b2ba50f36831e9eb63d96b0655235ce7141388
Author: Dmitry Gutov <address@hidden>
Date: Wed Oct 8 07:29:16 2014 +0400
company-dabbrev--search: Ignore "uninteresting" buffers
Closes #199
---
NEWS.md | 1 +
company-dabbrev.el | 5 +++--
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/NEWS.md b/NEWS.md
index 9744ded..6766eb2 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,7 @@
## Next
+* `company-dabbrev` always ignores "uninteresting" buffers.
* `company-files` checks directory's last modification time.
* `company-files` supports relative paths and Windows drive letters.
diff --git a/company-dabbrev.el b/company-dabbrev.el
index 84da305..fa28611 100644
--- a/company-dabbrev.el
+++ b/company-dabbrev.el
@@ -121,8 +121,9 @@ This variable affects both `company-dabbrev' and
`company-dabbrev-code'."
(when other-buffer-modes
(cl-dolist (buffer (delq (current-buffer) (buffer-list)))
(with-current-buffer buffer
- (when (or (eq other-buffer-modes 'all)
- (apply #'derived-mode-p other-buffer-modes))
+ (when (if (eq other-buffer-modes 'all)
+ (not (string-match-p "\\`[ *]" (buffer-name)))
+ (apply #'derived-mode-p other-buffer-modes))
(setq symbols
(company-dabbrev--search-buffer regexp nil symbols start
limit ignore-comments))))
- [elpa] 10/30: Update docstring, change words, bump copyright year, (continued)
- [elpa] 10/30: Update docstring, change words, bump copyright year, Dmitry Gutov, 2014/10/14
- [elpa] 13/30: Update a comment, Dmitry Gutov, 2014/10/14
- [elpa] 11/30: company-files-complete: Include mtime in the cache key, Dmitry Gutov, 2014/10/14
- [elpa] 15/30: company-files: Fix cache behavior for when we're backspacing, Dmitry Gutov, 2014/10/14
- [elpa] 16/30: company-file--keys-match-p: Handle OLD being nil, Dmitry Gutov, 2014/10/14
- [elpa] 17/30: company-begin-commands: Add `orgtbl-self-insert-command', Dmitry Gutov, 2014/10/14
- [elpa] 19/30: company-clang-arguments: Fix default element value, Dmitry Gutov, 2014/10/14
- [elpa] 21/30: company-call-backend-raw: Use `condition-case-unless-debug', too, Dmitry Gutov, 2014/10/14
- [elpa] 20/30: Handle non-printable and multiple-width chars in completions, Dmitry Gutov, 2014/10/14
- [elpa] 18/30: Use `condition-case-unless-debug' more, Dmitry Gutov, 2014/10/14
- [elpa] 22/30: company-dabbrev--search: Ignore "uninteresting" buffers,
Dmitry Gutov <=
- [elpa] 23/30: Make new tests and interactive-only, Dmitry Gutov, 2014/10/14
- [elpa] 24/30: company-fill-propertize: Use `string-width' on `company-common', Dmitry Gutov, 2014/10/14
- [elpa] 25/30: Handle nil company-common, in order not to bind it in tests, Dmitry Gutov, 2014/10/14
- [elpa] 12/30: Update NEWS; do the forgotten version bump, Dmitry Gutov, 2014/10/14
- [elpa] 14/30: company-files.el: Use the "private function" naming convention, Dmitry Gutov, 2014/10/14
- [elpa] 26/30: Call `bbdb-search' inside `eval' block, Dmitry Gutov, 2014/10/14
- [elpa] 27/30: Extract regexp for buffers to ignore into a new var, Dmitry Gutov, 2014/10/14
- [elpa] 28/30: company-template-c-like-templatify: Support generics, Dmitry Gutov, 2014/10/14
- [elpa] 29/30: Bump the version, Dmitry Gutov, 2014/10/14
- [elpa] 30/30: Merge commit '60d4c09c982a1c562a70cd6aa705f47ab3badcfb' from company, Dmitry Gutov, 2014/10/14