   (setq scheme-buffer "*scheme*")
   (pop-to-buffer-same-window "*scheme*"))
 
-(when (equal system-type 'gnu/linux)
-  (progn
-    (require 'pulse)
-    (setq pulse-flag nil)))
+(setq pulse-delay .06)
+;; (when (equal system-type 'gnu/linux)
+;;   (progn
+;;     (require 'pulse)
+;;     (setq pulse-flag nil)))
 
 (defun my-c-mode-common-hook ()
   (setq-local fill-column 90)
+  (add-to-list 'company-backends 'company-rtags)
   (setq rtags-show-containing-function t)
   ;; (setq-local eldoc-documentation-function #'rtags-eldoc)
   ;; (eldoc-mode 1)


(global-set-key (kbd "M-\\") 'shrink-whitespace)

(require 'expand-region)
(global-set-key (kbd "C-=") 'er/expand-region)

(global-set-key (kbd "C-c r") 'vr/replace)

(add-to-list 'package-pinned-packages '(expand-region . "melpa-stable") t)

(if (file-exists-p "~/.local/share/emacs/site-lisp/rtags")
    (add-to-list 'load-path "~/.local/share/emacs/site-lisp/rtags"))

(unless package-archive-contents
  (package-refresh-contents))
