code.delx.au - gnu-emacs-elpa/blob - company-dabbrev.el

   1 (require 'company)
   2 (require 'dabbrev)
   3 (eval-when-compile (require 'cl))
   4
   5 (defun company-grab-dabbrev-prefix ()
   6   (save-excursion
   7     (when (looking-at "\\>")
   8       (let ((end (point)))
   9         (dabbrev--reset-global-variables)
  10         (dabbrev--goto-start-of-abbrev)
  11         (buffer-substring-no-properties (point) end)))))
  12
  13 (defun company-dabbrev (command &optional arg &rest ignored)
  14   (case command
  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)))
  19     ('ignore-case t)))
  20
  21 (provide 'company-dabbrev)
  22 ;;; company-dabbrev.el ends here