3 (eval-when-compile (require 'cl))
5 (defun company-grab-dabbrev-prefix ()
7 (when (looking-at "\\>")
9 (dabbrev--reset-global-variables)
10 (dabbrev--goto-start-of-abbrev)
11 (buffer-substring-no-properties (point) end)))))
13 (defun company-dabbrev (command &optional arg &rest ignored)
15 ('prefix (company-grab-dabbrev-prefix))
16 ('candidates (let ((dabbrev-check-other-buffers))
17 (dabbrev--reset-global-variables)
18 (dabbrev--find-all-expansions arg t)))
21 (provide 'company-dabbrev)
22 ;;; company-dabbrev.el ends here