[ELPA-diffs] [elpa] 07/14: Merge pull request #44 from dcolascione/master

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit b70540b5fcd062c4670dea7004453de326ff4f70
Merge: f4174bc 2bf0ecf
Author: Dmitry Gutov 
Date:   Mon Dec 23 06:10:55 2013 -0800

Merge pull request #44 from dcolascione/master

Require cl before using cl

 company-oddmuse.el |2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 08/14: Fix http://debbugs.gnu.org/16334

[emacs-devel]

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 
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.

[ELPA-diffs] [elpa] 01/14: Include emacs22 in the Travis build again

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit a3feaccae8c9738a3569cce5b7b2737029f51c3c
Author: Dmitry Gutov 
Date:   Wed Oct 23 01:15:39 2013 +0400

Include emacs22 in the Travis build again

Should work now rolandwalker/emacs-travis#3
---
 .travis.yml |   20 
 Makefile|2 +-
 2 files changed, 21 insertions(+), 1 deletions(-)

diff --git a/.travis.yml b/.travis.yml
index cdf55d1..33c183c 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -4,11 +4,31 @@ language: emacs-lisp
 
 env:
   matrix:
+- EMACS=emacs22
 - EMACS=emacs23
 - EMACS=emacs24
 - EMACS=emacs-snapshot
 
+matrix:
+  allow_failures:
+- env: EMACS=emacs22
+
 install:
+  - if [ "$EMACS" = "emacs22" ]; then
+curl -Os 
http://security.ubuntu.com/ubuntu/pool/universe/e/emacs22/emacs22_22.2-0ubuntu9_i386.deb
 &&
+curl -Os 
http://security.ubuntu.com/ubuntu/pool/universe/e/emacs22/emacs22-bin-common_22.2-0ubuntu9_i386.deb
 &&
+curl -Os 
http://security.ubuntu.com/ubuntu/pool/universe/e/emacs22/emacs22-common_22.2-0ubuntu9_all.deb
 &&
+curl -Os 
http://security.ubuntu.com/ubuntu/pool/universe/e/emacs22/emacs22-el_22.2-0ubuntu9_all.deb
 &&
+curl -Os 
http://security.ubuntu.com/ubuntu/pool/universe/e/emacs22/emacs22-gtk_22.2-0ubuntu9_i386.deb
 &&
+sudo apt-get -qq update &&
+sudo apt-get -qq remove emacs emacs23-bin-common emacs23-common 
emacs23-nox &&
+sudo apt-get -qq --fix-missing install install-info emacsen-common 
libjpeg62:i386 xaw3dg:i386 liblockfile1:i386 libasound2:i386 libgif4:i386 
libncurses5:i386 libpng12-0:i386 libtiff4:i386 libxpm4:i386 libxft2:i386 
libglib2.0-0:i386 libgtk2.0-0:i386 &&
+sudo apt-get -qq -f install &&
+sudo dpkg -i emacs22-common_22.2-0ubuntu9_all.deb 
emacs22-el_22.2-0ubuntu9_all.deb &&
+sudo dpkg -i --force-depends emacs22-bin-common_22.2-0ubuntu9_i386.deb 
&&
+sudo dpkg -i emacs22_22.2-0ubuntu9_i386.deb 
emacs22-gtk_22.2-0ubuntu9_i386.deb &&
+sudo update-alternatives --set emacs22 /usr/bin/emacs22-gtk;
+fi
   - if [ "$EMACS" = "emacs23" ]; then
 sudo apt-get update -qq &&
 sudo apt-get install -qq emacs23-gtk emacs23-el;
diff --git a/Makefile b/Makefile
index f11b04e..2602191 100644
--- a/Makefile
+++ b/Makefile
@@ -1,6 +1,6 @@
 EMACS=emacs
 CURL=curl --silent
-ERT_URL=http://git.savannah.gnu.org/cgit/emacs.git/plain/lisp/emacs-lisp/ert.el?h=emacs-24
+ERT_URL=http://git.savannah.gnu.org/cgit/emacs.git/plain/lisp/emacs-lisp/ert.el?h=emacs-24.3
 
 .PHONY: ert test test-batch
 

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 13/14: Fix a broken test, remove a duplicate one

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit 67a96dbbfe645b64291ed62eab6f1eb391a834e0
Author: Dmitry Gutov 
Date:   Tue Jan 14 15:20:59 2014 +0200

Fix a broken test, remove a duplicate one
---
 company-tests.el |   18 ++
 company.el   |   14 +++---
 2 files changed, 9 insertions(+), 23 deletions(-)

diff --git a/company-tests.el b/company-tests.el
index b111822..e9116b2 100644
--- a/company-tests.el
+++ b/company-tests.el
@@ -166,6 +166,7 @@
   (with-temp-buffer
 (company-mode)
 (let (company-frontends
+  company-end-of-buffer-workaround
   (company-backends
(list (lambda (command &optional arg)
(case command
@@ -177,7 +178,7 @@
 (company-complete))
   (should (string= "ab" (buffer-string)))
   (delete-char -2)
-  (insert "AB") ; hack, to keep it in one test
+  (insert "A") ; hack, to keep it in one test
   (company-complete-selection)
   (should (string= "abcd" (buffer-string))
 
@@ -210,21 +211,6 @@
  (candidates '("tea-cup" "teal-color")))
   (let (this-command)
 (company-complete))
-  (should (string= "tc" (buffer-string))
-
-(ert-deftest company-non-prefix-completion ()
-  (with-temp-buffer
-(insert "tc")
-(company-mode)
-(let (company-frontends
-  company-end-of-buffer-workaround
-  (company-backends
-   (list (lambda (command &optional arg)
-   (case command
- (prefix (buffer-substring (point-min) (point)))
- (candidates '("tea-cup" "teal-color")))
-  (let (this-command)
-(company-complete))
   (should (string= "tc" (buffer-string)))
   (company-complete-selection)
   (should (string= "tea-cup" (buffer-string))
diff --git a/company.el b/company.el
index 1015415..1a324c7 100644
--- a/company.el
+++ b/company.el
@@ -828,13 +828,13 @@ can retrieve meta-data for them."
   ;; Save in cache:
   (push (cons company-prefix company-candidates) company-candidates-cache)
   ;; Calculate common.
-  (let ((completion-ignore-case (company-call-backend 'ignore-case))
-;; We want to support non-prefix completion, so filtering is the
-;; responsibility of each respective backend, not ours.
-;; On the other hand, we don't want to replace non-prefix input in
-;; `company-complete-common'.
-(common (try-completion company-prefix company-candidates)))
-(setq company-common (company--safe-candidate common
+  (let ((completion-ignore-case (company-call-backend 'ignore-case)))
+;; We want to support non-prefix completion, so filtering is the
+;; responsibility of each respective backend, not ours.
+;; On the other hand, we don't want to replace non-prefix input in
+;; `company-complete-common'.
+(setq company-common (company--safe-candidate
+  (try-completion company-prefix 
company-candidates)
 
 (defun company--safe-candidate (str)
   (or (company-call-backend 'crop str)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 10/14: * packages/company/company-etags.el: Require `cl' for `case'. * packages/company/company-oddmuse.el: Avoid `eval-when'.

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit 17a64360a9ccb4619db677f2df693311866ad112
Author: Stefan Monnier 
Date:   Tue Jan 14 06:34:41 2014 +0200

* packages/company/company-etags.el: Require `cl' for `case'.
* packages/company/company-oddmuse.el: Avoid `eval-when'.
---
 company-etags.el   |3 ++-
 company-oddmuse.el |6 +++---
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/company-etags.el b/company-etags.el
index 956e294..f93c763 100644
--- a/company-etags.el
+++ b/company-etags.el
@@ -1,6 +1,6 @@
 ;;; company-etags.el --- company-mode completion back-end for etags
 
-;; Copyright (C) 2009-2011  Free Software Foundation, Inc.
+;; Copyright (C) 2009-2011, 2014  Free Software Foundation, Inc.
 
 ;; Author: Nikolaj Schumacher
 
@@ -25,6 +25,7 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
 (require 'company)
 (require 'etags)
 
diff --git a/company-oddmuse.el b/company-oddmuse.el
index 2415a74..358d5ea 100644
--- a/company-oddmuse.el
+++ b/company-oddmuse.el
@@ -1,6 +1,6 @@
 ;;; company-oddmuse.el --- company-mode completion back-end for oddmuse-mode
 
-;; Copyright (C) 2009-2011  Free Software Foundation, Inc.
+;; Copyright (C) 2009-2011, 2014  Free Software Foundation, Inc.
 
 ;; Author: Nikolaj Schumacher
 
@@ -27,8 +27,8 @@
 
 (require 'company)
 (eval-when-compile (require 'cl))
-(eval-when 'compile (require 'yaooddmuse nil t))
-(eval-when 'compile (require 'oddmuse nil t))
+(eval-when-compile (require 'yaooddmuse nil t))
+(eval-when-compile (require 'oddmuse nil t))
 
 (defvar company-oddmuse-link-regexp
   "\\(\\<[A-Z][[:alnum:]]*\\>\\)\\|\\[\\[\\([[:alnum:]]+\\>\\|\\)")

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] branch master updated (25219bd -> e6d8543)

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a change to branch master
in repository elpa.

  from  25219bd   Merge commit 'af601c4a8a087cc5a12a08e08af094c4e21d417c' 
from diff-hl
   new  a3feacc   Include emacs22 in the Travis build again
   new  b584759   Add option to wrap around selection in popup
   new  e56ef8b   company-elisp: enable in inferior-emacs-lisp-mode
   new  f3a632b   company--should-complete: Don't check if we're in 
minibuffer
   new  f4174bc   Fix #43
   new  2bf0ecf   Require cl before using cl
   new  b70540b   Merge pull request #44 from dcolascione/master
   new  fefcae5   Fix http://debbugs.gnu.org/16334
   new  8ecec35   company-capf: Perform sorting before prefix adjustment
   new  17a6436   * packages/company/company-etags.el: Require `cl' for 
`case'. * packages/company/company-oddmuse.el: Avoid `eval-when'.
   new  55caaa4   Replace company-elisp with company-capf
   new  bd82c7e   Close #45
   new  67a96db   Fix a broken test, remove a duplicate one
   new  e6d8543   Merge commit '67a96dbbfe645b64291ed62eab6f1eb391a834e0' 
from company

The 14 revisions listed above as "new" are entirely new to this
repository and will be described in separate emails.  The revisions
listed as "adds" were already present in the repository and have only
been added to this reference.


Summary of changes:
 packages/company/.travis.yml|   20 ++
 packages/company/Makefile   |2 +-
 packages/company/NEWS.md|8 
 packages/company/company-capf.el|   26 +++---
 packages/company/company-dabbrev.el |2 +-
 packages/company/company-elisp.el   |2 +-
 packages/company/company-ispell.el  |2 +-
 packages/company/company-oddmuse.el |2 +-
 packages/company/company-tests.el   |   60 +++
 packages/company/company.el |   67 ++
 10 files changed, 165 insertions(+), 26 deletions(-)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 04/14: company--should-complete: Don't check if we're in minibuffer

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit f3a632b1581591480d8b0bbfb02116fe44d428fd
Author: Dmitry Gutov 
Date:   Fri Dec 6 03:24:00 2013 +0200

company--should-complete: Don't check if we're in minibuffer

This check has been fairly useless since 25f2c535

#42
---
 company.el |6 ++
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/company.el b/company.el
index b139b26..bee150c 100644
--- a/company.el
+++ b/company.el
@@ -426,8 +426,7 @@ as if it was on this list."
 (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)
+ (const :tag "on" t)))
 
 (defvar company-end-of-buffer-workaround t
   "Work around a visualization bug when completing at the end of the buffer.
@@ -759,8 +758,7 @@ can retrieve meta-data for them."
 
 (defun company--should-complete ()
   (and (not (or buffer-read-only overriding-terminal-local-map
-overriding-local-map
-(minibufferp)))
+overriding-local-map))
;; Check if in the middle of entering a key combination.
(or (equal (this-command-keys-vector) [])
(not (keymapp (key-binding (this-command-keys-vector)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 03/14: company-elisp: enable in inferior-emacs-lisp-mode

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit e56ef8b9ec06a21d6319f046df862a9b6a5dc6b4
Author: Dmitry Gutov 
Date:   Thu Dec 5 02:08:09 2013 +0200

company-elisp: enable in inferior-emacs-lisp-mode

#42
---
 NEWS.md  |4 
 company-elisp.el |2 +-
 2 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 8c43c58..ff598f7 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,9 @@
 # History of user-visible changes
 
+## Next
+
+* `company-elisp` is enabled in `inferior-emacs-lisp-mode`.
+
 ## 2013-09-28 (0.6.12)
 
 * Default value of `company-begin-commands` changed to `(self-insert-command)`.
diff --git a/company-elisp.el b/company-elisp.el
index 5bfc27e..0ea4c69 100644
--- a/company-elisp.el
+++ b/company-elisp.el
@@ -197,7 +197,7 @@ first in the candidates list."
   (interactive (list 'interactive))
   (case command
 (interactive (company-begin-backend 'company-elisp))
-(prefix (and (eq (derived-mode-p 'emacs-lisp-mode) 'emacs-lisp-mode)
+(prefix (and (derived-mode-p 'emacs-lisp-mode 'inferior-emacs-lisp-mode)
  (company-elisp--prefix)))
 (candidates (company-elisp-candidates arg))
 (sorted company-elisp-show-locals-first)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 09/14: company-capf: Perform sorting before prefix adjustment

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit 8ecec3594931ae8e2329fec4b793ad4ba392e4ef
Author: Dmitry Gutov 
Date:   Mon Jan 6 07:53:07 2014 +0400

company-capf: Perform sorting before prefix adjustment
---
 company-capf.el |   15 ---
 1 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/company-capf.el b/company-capf.el
index ee2ac1e..6dcd87b 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -54,13 +54,14 @@ Requires Emacs 24.1 or newer."
 (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)
+   (when sortfun
+ (setq candidates (funcall sortfun candidates)))
+   (if (not (zerop (car boundaries)))
+   (let ((before (substring arg 0 (car boundaries
+ (mapcar (lambda (candidate)
+   (concat before candidate))
+ candidates))
+ candidates)
 (`sorted
  (let ((res (company--capf-data)))
(when res

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 06/14: Require cl before using cl

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit 2bf0ecfd29e78d276a18623de637cc7ec78d5bc5
Author: Daniel Colascione 
Date:   Mon Dec 23 05:25:18 2013 -0800

Require cl before using cl
---
 company-oddmuse.el |2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/company-oddmuse.el b/company-oddmuse.el
index b76c87e..2415a74 100644
--- a/company-oddmuse.el
+++ b/company-oddmuse.el
@@ -26,9 +26,9 @@
 ;;; Code:
 
 (require 'company)
+(eval-when-compile (require 'cl))
 (eval-when 'compile (require 'yaooddmuse nil t))
 (eval-when 'compile (require 'oddmuse nil t))
-(eval-when-compile (require 'cl))
 
 (defvar company-oddmuse-link-regexp
   "\\(\\<[A-Z][[:alnum:]]*\\>\\)\\|\\[\\[\\([[:alnum:]]+\\>\\|\\)")

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 12/14: Close #45

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit bd82c7e096ecf4c6f0a0545f442be4296c741db5
Author: Dmitry Gutov 
Date:   Tue Jan 14 09:41:34 2014 +0200

Close #45

* Replace prefix with candidate unless backend says to keep it.
* Add non-prefix completions support.
---
 NEWS.md|1 +
 company-capf.el|5 +++-
 company-dabbrev.el |2 +-
 company-ispell.el  |2 +-
 company-tests.el   |   67 
 company.el |   44 -
 6 files changed, 106 insertions(+), 15 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index fe9ddf7..beb2cfb 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,7 @@
 
 ## Next
 
+* Experimental support for non-prefix completion.
 * Starting with Emacs version 24.4, `company-capf` is included in
   `company-backends` and replaces `company-elisp`.
 * `company-capf` supports completion tables that return non-default boundaries.
diff --git a/company-capf.el b/company-capf.el
index 0d68562..21b9214 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -58,7 +58,10 @@ Requires Emacs 24.1 or newer."
   table pred))
 (sortfun (cdr (assq 'display-sort-function meta)))
 (boundaries (completion-boundaries arg table pred ""))
-(candidates (all-completions arg table pred)))
+(candidates (completion-all-completions arg table pred (length 
arg)))
+(last (last candidates 1)))
+   (when (numberp (cdr last))
+ (setcdr last nil))
(when sortfun
  (setq candidates (funcall sortfun candidates)))
(if (not (zerop (car boundaries)))
diff --git a/company-dabbrev.el b/company-dabbrev.el
index 1be9792..4b1a9d8 100644
--- a/company-dabbrev.el
+++ b/company-dabbrev.el
@@ -120,7 +120,7 @@ See also `company-dabbrev-time-limit'."
  (company-dabbrev--search (company-dabbrev--make-regexp arg)
   company-dabbrev-time-limit
   company-dabbrev-other-buffers)))
-(ignore-case t)
+(ignore-case 'keep-prefix)
 (duplicates t)))
 
 (provide 'company-dabbrev)
diff --git a/company-ispell.el b/company-ispell.el
index 9647f85..3e599f0 100644
--- a/company-ispell.el
+++ b/company-ispell.el
@@ -63,7 +63,7 @@ If nil, use `ispell-complete-word-dict'."
 (candidates (lookup-words arg (or company-ispell-dictionary
   ispell-complete-word-dict)))
 (sorted t)
-(ignore-case t)))
+(ignore-case 'keep-prefix)))
 
 (provide 'company-ispell)
 ;;; company-ispell.el ends here
diff --git a/company-tests.el b/company-tests.el
index 016e439..b111822 100644
--- a/company-tests.el
+++ b/company-tests.el
@@ -162,6 +162,73 @@
   (should (null company-candidates))
   (should (null (company-explicit-action-p))
 
+(ert-deftest company-ignore-case-replaces-prefix ()
+  (with-temp-buffer
+(company-mode)
+(let (company-frontends
+  (company-backends
+   (list (lambda (command &optional arg)
+   (case command
+ (prefix (buffer-substring (point-min) (point)))
+ (candidates '("abcd" "abef"))
+ (ignore-case t))
+  (insert "A")
+  (let (this-command)
+(company-complete))
+  (should (string= "ab" (buffer-string)))
+  (delete-char -2)
+  (insert "AB") ; hack, to keep it in one test
+  (company-complete-selection)
+  (should (string= "abcd" (buffer-string))
+
+(ert-deftest company-ignore-case-with-keep-prefix ()
+  (with-temp-buffer
+(insert "AB")
+(company-mode)
+(let (company-frontends
+  (company-backends
+   (list (lambda (command &optional arg)
+   (case command
+ (prefix (buffer-substring (point-min) (point)))
+ (candidates '("abcd" "abef"))
+ (ignore-case 'keep-prefix))
+  (let (this-command)
+(company-complete))
+  (company-complete-selection)
+  (should (string= "ABcd" (buffer-string))
+
+(ert-deftest company-non-prefix-completion ()
+  (with-temp-buffer
+(insert "tc")
+(company-mode)
+(let (company-frontends
+  company-end-of-buffer-workaround
+  (company-backends
+   (list (lambda (command &optional arg)
+   (case command
+ (prefix (buffer-substring (point-min) (point)))
+ (candidates '("tea-cup" "teal-color")))
+  (let (this-command)
+(company-complete))
+  (should (string= "tc" (buffer-string))
+
+(ert-deftest company-non-prefix-completion ()
+  (with-temp-buffer
+(insert "tc")
+(company-mode)
+(let (company-frontends
+  company-end-of-buffer-workarou

[ELPA-diffs] [elpa] 05/14: Fix #43

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit f4174bc6156a831a9a465c0f60da004e9997fa1a
Author: Dmitry Gutov 
Date:   Mon Dec 23 12:46:38 2013 +0200

Fix #43
---
 company-tests.el |7 +++
 company.el   |6 --
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/company-tests.el b/company-tests.el
index 870ad2b..016e439 100644
--- a/company-tests.el
+++ b/company-tests.el
@@ -198,6 +198,13 @@
 (should (string= (overlay-get ov 'company-after)
  " 123\nc45 c\nddd\n")))
 
+(ert-deftest company-create-lines-shows-numbers ()
+  (let ((company-show-numbers t)
+(company-candidates '("x" "y" "z"))
+(company-candidates-length 3))
+(should (equal '("x 1" "y 2" "z 3")
+   (company--create-lines 0 999)
+
 (ert-deftest company-column-with-composition ()
   (with-temp-buffer
 (insert "lambda ()")
diff --git a/company.el b/company.el
index bee150c..0d3bb38 100644
--- a/company.el
+++ b/company.el
@@ -1773,8 +1773,10 @@ Example: \(company-begin-with '\(\"foo\" \"foobar\" 
\"foobarbaz\"\)\)"
 
 (dotimes (_ len)
   (setq width (max (length (pop lines-copy)) width)))
-(setq width (min width (window-width)))
-
+(setq width (min (window-width)
+ (if company-show-numbers
+ (+ 2 width)
+   width)))
 (setq lines-copy lines)
 
 ;; number can make tooltip too long

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 02/14: Add option to wrap around selection in popup

[emacs-devel]

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 
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.

[ELPA-diffs] [elpa] 11/14: Replace company-elisp with company-capf

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit 55caaa4a05781354d6bb81005f7f25dad99d7933
Author: Dmitry Gutov 
Date:   Tue Jan 14 06:45:32 2014 +0200

Replace company-elisp with company-capf
---
 NEWS.md |2 ++
 company-capf.el |   11 ---
 company.el  |8 +++-
 3 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index ae1124c..fe9ddf7 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,8 @@
 
 ## Next
 
+* Starting with Emacs version 24.4, `company-capf` is included in
+  `company-backends` and replaces `company-elisp`.
 * `company-capf` supports completion tables that return non-default boundaries.
 * `company-elisp` is enabled in `inferior-emacs-lisp-mode`.
 
diff --git a/company-capf.el b/company-capf.el
index 6dcd87b..0d68562 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -25,10 +25,15 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (defun company--capf-data ()
-  (let ((data (run-hook-wrapped 'completion-at-point-functions
-;; Ignore misbehaving functions.
-#'completion--capf-wrapper 'optimist)))
+  ;; Ignore tags-completion-at-point-function because it subverts company-etags
+  ;; in the default value of company-backends, where the latter comes later.
+  (letf* (((default-value 'completion-at-point-functions) nil)
+  (data (run-hook-wrapped 'completion-at-point-functions
+  ;; Ignore misbehaving functions.
+  #'completion--capf-wrapper 'optimist)))
 (when (consp data) data)))
 
 (defun company-capf (command &optional arg &rest _args)
diff --git a/company.el b/company.el
index 0d3bb38..5f9d6e1 100644
--- a/company.el
+++ b/company.el
@@ -243,9 +243,15 @@ If this many lines are not available, prefer to display 
the tooltip above."
 (assq backend company-safe-backends))
 (return t))
 
-(defcustom company-backends '(company-elisp company-nxml company-css
+(defvar company--include-capf (version< "24.3.50" emacs-version))
+
+(defcustom company-backends `(,@(unless company--include-capf
+  (list 'company-elisp))
+  company-nxml company-css
   company-eclim company-semantic company-clang
   company-xcode company-ropemacs company-cmake
+  ,@(when company--include-capf
+  (list 'company-capf))
   (company-gtags company-etags company-dabbrev-code
company-keywords)
   company-oddmuse company-files company-dabbrev)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] branch master updated (e6d8543 -> 34f15b6)

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a change to branch master
in repository elpa.

  from  e6d8543   Merge commit '67a96dbbfe645b64291ed62eab6f1eb391a834e0' 
from company
   new  34f15b6   New package: ascii-art-to-unicode

The 1 revisions listed above as "new" are entirely new to this
repository and will be described in separate emails.  The revisions
listed as "adds" were already present in the repository and have only
been added to this reference.


Summary of changes:
 .../ascii-art-to-unicode/ascii-art-to-unicode.el   |  277 
 1 files changed, 277 insertions(+), 0 deletions(-)
 create mode 100644 packages/ascii-art-to-unicode/ascii-art-to-unicode.el

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 14/14: Merge commit '67a96dbbfe645b64291ed62eab6f1eb391a834e0' from company

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit e6d8543056c171b8f295ed35979ad925c9dda6be
Merge: 25219bd 67a96db
Author: Dmitry Gutov 
Date:   Tue Jan 14 15:39:37 2014 +0200

Merge commit '67a96dbbfe645b64291ed62eab6f1eb391a834e0' from company

Conflicts:
packages/company/company-elisp.el
packages/company/company-oddmuse.el

 packages/company/.travis.yml|   20 ++
 packages/company/Makefile   |2 +-
 packages/company/NEWS.md|8 
 packages/company/company-capf.el|   26 +++---
 packages/company/company-dabbrev.el |2 +-
 packages/company/company-elisp.el   |2 +-
 packages/company/company-ispell.el  |2 +-
 packages/company/company-oddmuse.el |2 +-
 packages/company/company-tests.el   |   60 +++
 packages/company/company.el |   67 ++
 10 files changed, 165 insertions(+), 26 deletions(-)


-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 01/01: New package: ascii-art-to-unicode

[emacs-devel]

This is an automated email from the git hooks/post-receive script.

root pushed a commit to branch master
in repository elpa.

commit 34f15b65699ed3bb7b5cf6f9f1c12fd99a937c8f
Author: Thien-Thi Nguyen 
Date:   Tue Jan 14 21:54:33 2014 +0100

New package: ascii-art-to-unicode

* packages/ascii-art-to-unicode/: New dir.
* packages/ascii-art-to-unicode/ascii-art-to-unicode.el: New file.
---
 .../ascii-art-to-unicode/ascii-art-to-unicode.el   |  277 
 1 files changed, 277 insertions(+), 0 deletions(-)

diff --git a/packages/ascii-art-to-unicode/ascii-art-to-unicode.el 
b/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
new file mode 100644
index 000..6c691a7
--- /dev/null
+++ b/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
@@ -0,0 +1,277 @@
+;;; ascii-art-to-unicode.el --- a small artist adjunct -*- lexical-binding: t 
-*-
+
+;; Copyright (C) 2014  Free Software Foundation, Inc.
+
+;; Author: Thien-Thi Nguyen 
+;; Version: 1.4
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see .
+
+;;; Commentary:
+
+;; The command `aa2u' converts simple ASCII art line drawings in
+;; the {active,accessible} region of the current buffer to Unicode.
+;;
+;; Example use case:
+;; - M-x artist-mode RET
+;; - C-c C-a r   ; artist-select-op-rectangle
+;; - (draw two rectangles)
+;;
+;;   +---+
+;;   |   |
+;;   |   +---+--+
+;;   |   |   |  |
+;;   |   |   |  |
+;;   |   |   |  |
+;;   +---+---+  |
+;;   |  |
+;;   |  |
+;;   |  |
+;;   +--+
+;;
+;; - C-c C-c ; artist-mode-off (optional)
+;; - C-x n n ; narrow-to-region
+;; - M-x aa2u RET
+;;
+;;   ┌───┐
+;;   │   │
+;;   │   ┌───┼──┐
+;;   │   │   │  │
+;;   │   │   │  │
+;;   │   │   │  │
+;;   └───┼───┘  │
+;;   │  │
+;;   │  │
+;;   │  │
+;;   └──┘
+;;
+;; TODO:
+;; - Add phase 0, to grok and lock label (as opposed to line) text.
+;; - Add interactive mode, to choose per-line light vs heavy.
+;; - Improve neighbor-determining heuristic.
+;; - Choose plus-replacement by composing "VERTICAL", "LEFT", etc.
+
+;;; News:
+
+;; - 1.4 | 2014-01-14
+;;   - move to ELPA (from )
+;;   - change copyright to FSF
+;;   - require 'cl-lib instead of 'cl
+;;   - use ‘cl-flet’ and ‘cl-labels’
+;;   - comment munging
+;; - add ‘lexical-binding: t’
+;; - remove huge list at EOF
+;; - add Author and News headers
+;;
+;; - 1.3 | 2013-09-21
+;;   - bug fixed: ‘?+’ neighbor valuation polarity flipped
+;;   - new support for BOX DRAWINGS LIGHT {UP,DOWN,LEFT,RIGHT} (singleton)
+;;
+;; - 1.2 | 2012-11-05
+;;   - refer to Unicode characters by name, not number
+;;
+;; - 1.1 | 2012-04-17
+;;   - TAB agnostic
+;;   - ‘aa2u’ operates on active region if ‘use-region-p’
+;;   - example use case also demonstrates transformation
+;;
+;; - 1.0 | 2012-04-07
+;;   - initial release
+
+;;; Code:
+
+(require 'cl-lib)
+(require 'pcase)
+
+;;;---
+;;; support
+
+(defun aa2u-ucs-bd-uniform-name (weight &rest components)
+  "Return a string naming UCS char w/ WEIGHT and COMPONENTS.
+The string begins with \"BOX DRAWINGS\"; followed by WEIGHT,
+a symbol from the set:
+
+  HEAVY
+  LIGHT
+
+followed by COMPONENTS, a list of one or two symbols from the set:
+
+  VERTICAL
+  HORIZONTAL
+  DOWN
+  UP
+  RIGHT
+  LEFT
+
+If of length two, the first element in COMPONENTS should be
+the \"Y-axis\" (VERTICAL, DOWN, UP).  In that case, the returned
+string includes \"AND\" between the elements of COMPONENTS.
+
+Lastly, all words are separated by space (U+20)."
+  (format "BOX DRAWINGS %s %s"
+  weight
+  (mapconcat 'symbol-name components
+ " AND ")))
+
+(defun aa2u-1c (stringifier &rest components)
+  "Apply STRINGIFIER to COMPONENTS; return the UCS char w/ this name.
+The char is a string (of length one), with two properties:
+
+  aa2u-stringifier
+  aa2u-components
+
+Their values are STRINGIFIER and COMPONENTS, respectively."
+  (let ((s (string (cdr (assoc-string (apply stringifier components)
+

[ELPA-diffs] [elpa] branch master updated (34f15b6 -> 2b96305)

[Dmitry Gutov]

This is an automated email from the git hooks/post-receive script.

dgutov pushed a change to branch master
in repository elpa.

  from  34f15b6   New package: ascii-art-to-unicode
   new  2b96305   * archive-contents.el (archive--simple-package-p): Quote 
the keywords list (Bug#16222).

The 1 revisions listed above as "new" are entirely new to this
repository and will be described in separate emails.  The revisions
listed as "adds" were already present in the repository and have only
been added to this reference.


Summary of changes:
 admin/archive-contents.el |2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 01/01: * archive-contents.el (archive--simple-package-p): Quote the keywords list (Bug#16222).

[Dmitry Gutov]

This is an automated email from the git hooks/post-receive script.

dgutov pushed a commit to branch master
in repository elpa.

commit 2b96305267f78341c4ed47c8e964ca535042e9cc
Author: Dmitry Gutov 
Date:   Wed Jan 15 06:21:50 2014 +0200

* archive-contents.el (archive--simple-package-p): Quote the
keywords list (Bug#16222).
---
 admin/archive-contents.el |2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 8019bf7..e17883e 100644
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -197,7 +197,7 @@ Otherwise, return nil."
 (list simple version description req
   ;; extra parameters
   (list (cons :url url)
-(cons :keywords keywords)))
+(cons :keywords (list 'quote keywords
  ((not (file-exists-p pkg-file))
   (error "Can find single file nor package desc file in %s" dir)
 

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 03/05: If there's just one candidate, set company-common to it

[Dmitry Gutov]

This is an automated email from the git hooks/post-receive script.

dgutov pushed a commit to branch master
in repository elpa.

commit da7ac3d9b11f02adc538244821dd8db66d0eba8e
Author: Dmitry Gutov 
Date:   Wed Jan 15 05:06:21 2014 +0200

If there's just one candidate, set company-common to it
---
 company.el |7 +--
 1 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/company.el b/company.el
index 5d1355e..ae2ec51 100644
--- a/company.el
+++ b/company.el
@@ -833,8 +833,11 @@ can retrieve meta-data for them."
 ;; responsibility of each respective backend, not ours.
 ;; On the other hand, we don't want to replace non-prefix input in
 ;; `company-complete-common'.
-(setq company-common (company--safe-candidate
-  (try-completion company-prefix 
company-candidates)
+(setq company-common
+  (if (cdr company-candidates)
+  (company--safe-candidate
+   (try-completion company-prefix company-candidates))
+(car company-candidates)
 
 (defun company--safe-candidate (str)
   (or (company-call-backend 'crop str)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 05/05: Merge commit '8b4d7da0d6aa1e24379fe5ace5bd2705352ea07e' from company

[Dmitry Gutov]

This is an automated email from the git hooks/post-receive script.

dgutov pushed a commit to branch master
in repository elpa.

commit 4cf8c95d95cfa21eb40331ea4c606783f247b196
Merge: 2b96305 8b4d7da0
Author: Dmitry Gutov 
Date:   Wed Jan 15 07:34:05 2014 +0200

Merge commit '8b4d7da0d6aa1e24379fe5ace5bd2705352ea07e' from company

 packages/company/NEWS.md |2 +-
 packages/company/company-capf.el |   25 ++---
 packages/company/company.el  |   71 +
 3 files changed, 60 insertions(+), 38 deletions(-)


-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] branch master updated (2b96305 -> 4cf8c95)

[Dmitry Gutov]

This is an automated email from the git hooks/post-receive script.

dgutov pushed a change to branch master
in repository elpa.

  from  2b96305   * archive-contents.el (archive--simple-package-p): Quote 
the keywords list (Bug#16222).
   new  debb87f   company-capf: Use base-size returned by 
completion-all-completions
   new  4b18b9a   company-capf: Highlight the "common" part
   new  da7ac3d   If there's just one candidate, set company-common to it
   new  8b4d7da0  Release 0.6.13
   new  4cf8c95   Merge commit '8b4d7da0d6aa1e24379fe5ace5bd2705352ea07e' 
from company

The 5 revisions listed above as "new" are entirely new to this
repository and will be described in separate emails.  The revisions
listed as "adds" were already present in the repository and have only
been added to this reference.


Summary of changes:
 packages/company/NEWS.md |2 +-
 packages/company/company-capf.el |   25 ++---
 packages/company/company.el  |   71 +
 3 files changed, 60 insertions(+), 38 deletions(-)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 01/05: company-capf: Use base-size returned by completion-all-completions

[Dmitry Gutov]

This is an automated email from the git hooks/post-receive script.

dgutov pushed a commit to branch master
in repository elpa.

commit debb87fa0cdbfacb67d9a31bedd78a3aa79e824b
Author: Dmitry Gutov 
Date:   Wed Jan 15 03:01:06 2014 +0200

company-capf: Use base-size returned by completion-all-completions

Thanks to Stefan for the tip
---
 company-capf.el |   10 +-
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/company-capf.el b/company-capf.el
index 21b9214..2fcfbfb 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -57,15 +57,15 @@ 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 (completion-all-completions arg table pred (length 
arg)))
-(last (last candidates 1)))
-   (when (numberp (cdr last))
+(last (last candidates))
+(base-size (and (numberp (cdr last)) (cdr last
+   (when base-size
  (setcdr last nil))
(when sortfun
  (setq candidates (funcall sortfun candidates)))
-   (if (not (zerop (car boundaries)))
-   (let ((before (substring arg 0 (car boundaries
+   (if (not (zerop (or base-size 0)))
+   (let ((before (substring arg 0 base-size)))
  (mapcar (lambda (candidate)
(concat before candidate))
  candidates))

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 02/05: company-capf: Highlight the "common" part

[Dmitry Gutov]

This is an automated email from the git hooks/post-receive script.

dgutov pushed a commit to branch master
in repository elpa.

commit 4b18b9a65008f74cb53fed88a1e337fecaa3317a
Author: Dmitry Gutov 
Date:   Wed Jan 15 04:55:50 2014 +0200

company-capf: Highlight the "common" part

As in "the part of the candidate up to the last matched character".
Now for partial completion, too.
---
 company-capf.el |   13 +++
 company.el  |   60 ++
 2 files changed, 46 insertions(+), 27 deletions(-)

diff --git a/company-capf.el b/company-capf.el
index 2fcfbfb..8575cd1 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -77,6 +77,19 @@ Requires Emacs 24.1 or newer."
   (buffer-substring (nth 1 res) (nth 2 res))
   (nth 3 res) (plist-get (nthcdr 4 res) :predicate
(cdr (assq 'display-sort-function meta))
+(`common-part
+ ;; Can't just use 0 when base-size (see above) is non-zero.
+ (let ((start (if (get-text-property 0 'face arg)
+  0
+(next-single-property-change 0 'face arg
+   (when start
+ ;; completions-common-part comes first, but we can't just look for 
this
+ ;; value because it can be in a list.
+ (or
+  (let ((value (get-text-property start 'face arg)))
+(text-property-not-all start (length arg)
+   'face value arg))
+  (length arg)
 (`duplicates nil) ;Don't bother.
 (`no-cache t) ;FIXME: Improve!
 (`meta
diff --git a/company.el b/company.el
index 1a324c7..5d1355e 100644
--- a/company.el
+++ b/company.el
@@ -1677,34 +1677,40 @@ Example: \(company-begin-with '\(\"foo\" \"foobar\" 
\"foobarbaz\"\)\)"
   (pop copy))
 (apply 'concat pieces)))
 
+(defun company--highlight-common (line properties)
+  ;; XXX: Subject to change.
+  (let ((common (or (company-call-backend 'common-part line)
+(length company-common
+(add-text-properties 0 common properties line)))
+
 (defun company-fill-propertize (line width selected)
-  (setq line (company-safe-substring line 0 width))
-  (add-text-properties 0 width '(face company-tooltip
- mouse-face company-tooltip-mouse)
-   line)
-  (add-text-properties 0 (length company-common)
-   '(face company-tooltip-common
- mouse-face company-tooltip-mouse)
-   line)
-  (when selected
-(if (and company-search-string
- (string-match (regexp-quote company-search-string) line
-   (length company-prefix)))
-(progn
-  (add-text-properties (match-beginning 0) (match-end 0)
-   '(face company-tooltip-selection)
-   line)
-  (when (< (match-beginning 0) (length company-common))
-(add-text-properties (match-beginning 0) (length company-common)
- '(face company-tooltip-common-selection)
- line)))
-  (add-text-properties 0 width '(face company-tooltip-selection
-  mouse-face company-tooltip-selection)
-   line)
-  (add-text-properties 0 (length company-common)
-   '(face company-tooltip-common-selection
- mouse-face company-tooltip-selection)
-   line)))
+  (let ((common (or (company-call-backend 'common-part line)
+(length company-common
+(setq line (company-safe-substring line 0 width))
+(add-text-properties 0 width '(face company-tooltip
+   mouse-face company-tooltip-mouse)
+ line)
+(add-text-properties 0 common '(face company-tooltip-common
+mouse-face company-tooltip-mouse)
+ line)
+(when selected
+  (if (and company-search-string
+   (string-match (regexp-quote company-search-string) line
+ (length company-prefix)))
+  (progn
+(add-text-properties (match-beginning 0) (match-end 0)
+ '(face company-tooltip-selection)
+ line)
+(when (< (match-beginning 0) common)
+  (add-text-properties (match-beginning 0) common
+   '(face company-tooltip-common-selection)
+   line)))
+(add-text-properties 0 width '(face company-tooltip-selection
+   mouse-face company-tooltip-selection)
+ line)
+(add-text-properties 0 common '(face company-tooltip-common-selection
+  

[ELPA-diffs] [elpa] 04/05: Release 0.6.13

[Dmitry Gutov]

This is an automated email from the git hooks/post-receive script.

dgutov pushed a commit to branch master
in repository elpa.

commit 8b4d7da0d6aa1e24379fe5ace5bd2705352ea07e
Author: Dmitry Gutov 
Date:   Wed Jan 15 05:45:16 2014 +0200

Release 0.6.13
---
 NEWS.md |2 +-
 company-capf.el |2 +-
 company.el  |4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index beb2cfb..314b1eb 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,6 +1,6 @@
 # History of user-visible changes
 
-## Next
+## 2014-01-14 (0.6.13)
 
 * Experimental support for non-prefix completion.
 * Starting with Emacs version 24.4, `company-capf` is included in
diff --git a/company-capf.el b/company-capf.el
index 8575cd1..018c6b7 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -1,6 +1,6 @@
 ;;; company-capf.el --- company-mode completion-at-point-functions back-end 
-*- lexical-binding: t -*-
 
-;; Copyright (C) 2013  Free Software Foundation, Inc.
+;; Copyright (C) 2013-2014  Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier 
 
diff --git a/company.el b/company.el
index ae2ec51..072e65b 100644
--- a/company.el
+++ b/company.el
@@ -1,10 +1,10 @@
 ;;; company.el --- Modular in-buffer completion framework  -*- 
lexical-binding: t -*-
 
-;; Copyright (C) 2009-2013  Free Software Foundation, Inc.
+;; Copyright (C) 2009-2014  Free Software Foundation, Inc.
 
 ;; Author: Nikolaj Schumacher
 ;; Maintainer: Dmitry Gutov 
-;; Version: 0.6.12
+;; Version: 0.6.13
 ;; Keywords: abbrev, convenience, matching
 ;; URL: http://company-mode.github.io/
 ;; Compatibility: GNU Emacs 22.x, GNU Emacs 23.x, GNU Emacs 24.x

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] 01/01: bump version number to see if it gets published

[Ivan Kanis]

This is an automated email from the git hooks/post-receive script.

ivankanis pushed a commit to branch master
in repository elpa.

commit 064a6b7809ec7bf471d7e53b0628ebe508d65e20
Author: Ivan Kanis 
Date:   Wed Jan 15 08:04:22 2014 +0100

bump version number to see if it gets published
---
 packages/wpuzzle/wpuzzle.el |   10 +-
 1 files changed, 9 insertions(+), 1 deletions(-)

diff --git a/packages/wpuzzle/wpuzzle.el b/packages/wpuzzle/wpuzzle.el
index 5a1d05e..41a54a9 100644
--- a/packages/wpuzzle/wpuzzle.el
+++ b/packages/wpuzzle/wpuzzle.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2014  Free Software Foundation, Inc.
 
 ;; Author: Ivan Kanis 
-;; Version: 1.0
+;; Version: 1.1
 
 ;; This file is part of GNU Emacs.
 
@@ -67,6 +67,14 @@
 
 ;; search for TODO within the file
 
+ VERSION
+
+;; version 1
+
+;; version 1.1
+
+;; bump version number to see if it gets published
+
 ;;; Code:
 
 (require 'thingatpt)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

[ELPA-diffs] [elpa] branch master updated (4cf8c95 -> 064a6b7)

[Ivan Kanis]

This is an automated email from the git hooks/post-receive script.

ivankanis pushed a change to branch master
in repository elpa.

  from  4cf8c95   Merge commit '8b4d7da0d6aa1e24379fe5ace5bd2705352ea07e' 
from company
   new  064a6b7   bump version number to see if it gets published

The 1 revisions listed above as "new" are entirely new to this
repository and will be described in separate emails.  The revisions
listed as "adds" were already present in the repository and have only
been added to this reference.


Summary of changes:
 packages/wpuzzle/wpuzzle.el |   10 +-
 1 files changed, 9 insertions(+), 1 deletions(-)

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.