X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/8f2c03248b5517d82588a05f357805cbb0f384ed..8cc284ee4eea8f8a1d870f91585f7a1827b40129:/company-abbrev.el diff --git a/company-abbrev.el b/company-abbrev.el index a454aaa90..24ec3b775 100644 --- a/company-abbrev.el +++ b/company-abbrev.el @@ -1,6 +1,6 @@ -;;; company-abbrev.el --- company-mode completion back-end for abbrev +;;; company-abbrev.el --- company-mode completion backend for abbrev -;; Copyright (C) 2009-2011 Free Software Foundation, Inc. +;; Copyright (C) 2009-2011, 2015 Free Software Foundation, Inc. ;; Author: Nikolaj Schumacher @@ -35,7 +35,7 @@ ;;;###autoload (defun company-abbrev (command &optional arg &rest ignored) - "`company-mode' completion back-end for abbrev." + "`company-mode' completion backend for abbrev." (interactive (list 'interactive)) (cl-case command (interactive (company-begin-backend 'company-abbrev @@ -44,8 +44,7 @@ (candidates (nconc (delete "" (all-completions arg global-abbrev-table)) (delete "" (all-completions arg local-abbrev-table)))) - (meta (abbrev-expansion arg)) - (require-match t))) + (meta (abbrev-expansion arg)))) (provide 'company-abbrev) ;;; company-abbrev.el ends here