This is an automated email from the git hooks/post-receive script.
root pushed a commit to branch master
in repository elpa.
commit fefcae59d66589e81823fe08c0b40a995d9118a4
Author: Dmitry Gutov <dgu...@yandex.ru>
Date: Sun Jan 5 07:16:13 2014 +0400
Fix http://debbugs.gnu.org/16334
---
NEWS.md | 1 +
company-capf.el | 7 +++++++
2 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/NEWS.md b/NEWS.md
index ff598f7..ae1124c 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,7 @@
## Next
+* `company-capf` supports completion tables that return non-default boundaries.
* `company-elisp` is enabled in `inferior-emacs-lisp-mode`.
## 2013-09-28 (0.6.12)
diff --git a/company-capf.el b/company-capf.el
index 2d20bee..ee2ac1e 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -52,7 +52,14 @@ Requires Emacs 24.1 or newer."
(buffer-substring (nth 1 res) (nth 2 res))
table pred))
(sortfun (cdr (assq 'display-sort-function meta)))
+ (boundaries (completion-boundaries arg table pred ""))
(candidates (all-completions arg table pred)))
+ (unless (zerop (car boundaries))
+ (let ((before (substring arg 0 (car boundaries))))
+ (setq candidates
+ (mapcar (lambda (candidate)
+ (concat before candidate))
+ candidates))))
(if sortfun (funcall sortfun candidates) candidates)))))
(`sorted
(let ((res (company--capf-data)))
--
To stop receiving notification emails like this one, please contact
the administrator of this repository.
