     (yas-exit-all-snippets)))
 
 (defun ar/new-objc-file ()
-  "Create and yas-expand Objective-C interface header/implementation files."
+  "Create and `yas-expand' Objective-C interface header/implementation files."
   (interactive)
   (let ((interface-name (read-from-minibuffer "Interface name: ")))
     (ar/new-file-with-snippet interface-name

(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.

;; Move buffer file.
;; From: https://sites.google.com/site/steveyegge2/my-dot-emacs-file
(defun ar/move-buffer-file (dir)
  "Move both current buffer and file it's visiting to DIR." (interactive "DNew directory: ")
  (let* ((name (buffer-name))
         (filename (buffer-file-name))
         (dir (if (string-match dir "\\(?:/\\|\\\\)$")
