   :if (display-graphic-p)
   :after company
   :init
-  (setq company-quickhelp-delay 0.5)
+  (setq company-quickhelp-delay 0.4)
   (setq company-quickhelp-use-propertized-text t)
   :config
   (company-quickhelp-mode 1))

;; Copyright (C) 2015-2021  Dan Harms (dharms)
;; Author: Dan Harms <danielrharms@gmail.com>
;; Created: Friday, February 27, 2015
;; Modified Time-stamp: <2021-02-02 15:31:58 dharms>
;; Modified by: Dan Harms
;; Keywords:


  (define-key company-active-map "\C-p" #'company-select-previous)
  (define-key company-active-map "\M-n" nil)
  (define-key company-active-map "\M-p" nil)
  (define-key company-active-map "\M-." #'company-show-location)
  ;; cycle back and forth with TAB and S-TAB
  (define-key company-active-map [tab] #'company-complete-common-or-cycle)
  (define-key company-active-map (kbd "TAB") #'company-complete-common-or-cycle)
