   (define-key objc-mode-map [f6] 'recompile)
   (define-key objc-mode-map [f7] 'ar/xc:build)
   (define-key objc-mode-map [f8] 'ar/xc:run))
-(add-hook 'objc-mode-hook 'ar/objc-mode-hook)
-
-(defun ar/java-mode-hook ()
+(add-hook 'objc-mode-hook 'ar/objc-mode-hook-function)
+
+(defun ar/java-mode-hook-function ()
   "Called when entering java-mode"
   ;; 100-column limit for java.
   (set-fill-column 100)
   ;; 2-char indent for java.
   (setq c-basic-offset 2))
-(add-hook 'java-mode-hook 'ar/java-mode-hook)
-
-(defun ar/prog-mode-hook ()
+(add-hook 'java-mode-hook 'ar/java-mode-hook-function)
+
+(defun ar/prog-mode-hook-function ()
   "Called when entering all programming modes."
   (add-hook 'after-change-functions
             'ar/after-prog-mode-text-change

  ;; Saving point to register enables jumping back to last change at any time.
  (ar/save-point))

(defun ar/objc-mode-hook ()
  "Called when entering objc-mode"
  (set (make-local-variable 'company-backends)
       ;; List with multiple back-ends for mutual inclusion.

        ("\\.m$" (".h"))
        ("\\.mm$" (".h"))
        ))
(add-hook 'c-mode-common-hook (lambda()
                                (local-set-key (kbd "C-c o") 'ff-find-other-file)))

(use-package dummy-h-mode
  :ensure dummy-h-mode)
(add-to-list 'auto-mode-alist '("\\.h\\'" . dummy-h-mode))
