 (setq magit-status-buffer-switch-function 'switch-to-buffer)
 
 (defun ar/sort-lines-ignore-case ()
+  "Sort region (case-insensitive)."
   (interactive)
   (let ((sort-fold-case t))
     (call-interactively 'sort-lines)))

;;  Now, define my version in terms of `orig-yes-or-no-p'.
(defun yes-or-no-p (prompt)
  "Ask user a yes-or-no question.  Return t if answer is yes, nil if no.
This is a wrapper around `orig-yes-or-no'."
  (if (string-match
;;  This message is created in lisp/files.el, and there are four
;;  variations.  I'm intentionally matching two of them.

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