(declare-function semantic-tag-start "semantic/tag")
(declare-function semantic-tag-buffer "semantic/tag")
(declare-function semantic-active-p "semantic")
+(declare-function semantic-format-tag-prototype "semantic/format")
(defgroup company-semantic nil
"Completion backend using Semantic."
(save-excursion
(let ((pos (point)))
(goto-char (- (point) prefix-length))
- (while (looking-back "->\\|\\.")
+ (while (looking-back "->\\|\\." (- (point) 2))
(goto-char (match-beginning 0))
(skip-syntax-backward "w_"))
(- pos (point)))))
(not (company-in-string-or-comment))
(or (company-semantic--grab) 'stop)))
(candidates (if (and (equal arg "")
- (not (looking-back "->\\|\\.")))
+ (not (looking-back "->\\|\\." (- (point) 2))))
(company-semantic-completions-raw arg)
(company-semantic-completions arg)))
(meta (funcall company-semantic-metadata-function
require-match)))
callback)))
+(declare-function find-library-name "find-func")
+(declare-function lm-version "lisp-mnt")
+
(defun company-version (&optional show-version)
"Get the Company version as string.