 
 (defun ar/init-for-osx ()
   "Perform initializations for Mac OS X."
-  (when (ar/osxp)
+  (when (ar/osx-p)
     ;; On Mac, this is effectively fn-M-backspace.
     (bind-key "M-(" #'kill-word)
     ;; Keep menu bar under graphical OS X for fullscreen.

;; (set-face-foreground 'highlight nil)

;;  From http://doc.rix.si/org/fsem.html
(defun ar/gnulinuxp ()
  "Return t if the system is a GNU/Linux machine, otherwise nil."
  (string-equal system-type "gnu/linux"))

(defun ar/osxp ()
  "Return t if the system is a Mac OS X machine, otherwise nil."
  (string-equal system-type "darwin"))



(defun ar/init-for-linux ()
  "Perform initializations for Linux."
  (when (ar/gnu-linux-p)
    (setq exec-path (append exec-path '("~/local/bin")))))
(ar/init-for-linux)

