This is an automated email from the git hooks/post-receive script.
root pushed a commit to branch master
in repository elpa.
commit b584759ed43a4a175706ca40b03dcebcf7b9ace9
Author: Ingo Lohmar <i.loh...@gmail.com>
Date: Fri Nov 1 03:02:24 2013 +0400
Add option to wrap around selection in popup
Close #39
---
company.el | 11 ++++++++++-
1 files changed, 10 insertions(+), 1 deletions(-)
diff --git a/company.el b/company.el
index ec0f2b3..b139b26 100644
--- a/company.el
+++ b/company.el
@@ -423,6 +423,12 @@ as if it was on this list."
:type '(choice (const :tag "off" nil)
(const :tag "on" t)))
+(defcustom company-selection-wrap-around nil
+ "If enabled, selecting item before first or after last wraps around."
+ :type '(choice (const :tag "off" nil)
+ (const :tag "on" t))
+ :group 'company)
+
(defvar company-end-of-buffer-workaround t
"Work around a visualization bug when completing at the end of the buffer.
The work-around consists of adding a newline.")
@@ -772,7 +778,10 @@ can retrieve meta-data for them."
frontend (error-message-string err) command)))))
(defun company-set-selection (selection &optional force-update)
- (setq selection (max 0 (min (1- company-candidates-length) selection)))
+ (setq selection
+ (if company-selection-wrap-around
+ (mod selection company-candidates-length)
+ (max 0 (min (1- company-candidates-length) selection))))
(when (or force-update (not (equal selection company-selection)))
(setq company-selection selection
company-selection-changed t)
--
To stop receiving notification emails like this one, please contact
the administrator of this repository.
