;;; company-nxml.el --- company-mode completion back-end for nxml-mode
-;; Copyright (C) 2009-2011, 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2011, 2013, 2016 Free Software Foundation, Inc.
;; Author: Nikolaj Schumacher
(defun company-nxml (command &optional arg &rest ignored)
"`company-mode' completion back-end for `nxml-mode'."
(interactive (list 'interactive))
+ (if (fboundp 'rng-completion-at-point)
+ ;; In recent Emacsen, nXML provides a good CAPF completion, so we can
+ ;; disable our own implementation.
+ nil
(cl-case command
(interactive (company-begin-backend 'company-nxml))
(prefix (or (company-nxml-tag 'prefix)
((company-nxml-attribute-value 'prefix)
(sort (company-nxml-attribute-value 'candidates arg)
'string<))))
- (sorted t)))
+ (sorted t))))
(provide 'company-nxml)
;;; company-nxml.el ends here
;;; company.el --- Modular text completion framework -*- lexical-binding: t -*-
-;; Copyright (C) 2009-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2016 Free Software Foundation, Inc.
;; Author: Nikolaj Schumacher
;; Maintainer: Dmitry Gutov <dgutov@yandex.ru>
(defcustom company-backends `(,@(unless (version< "24.3.50" emacs-version)
(list 'company-elisp))
company-bbdb
+ ;; FIXME: We could use a version-test to exclude
+ ;; company-nxml, but we don't know yet if that
+ ;; version will be called 25.2 or 26.1.
company-nxml company-css
company-eclim company-semantic company-clang
company-xcode company-ropemacs company-cmake