From 7b108c386bfb7f9bda08be9a6d973695c0ec4b85 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar.batsov@gmail.com>
Date: Thu, 20 Oct 2011 00:54:17 +0300
Subject: [PATCH] better system-type handling
---
init.el | 2 +-
modules/prelude-common-lisp.el | 2 +-
modules/prelude-editor.el | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/init.el b/init.el
index a6e0c0a..ff3c0ad 100644
--- a/init.el
+++ b/init.el
@@ -39,7 +39,7 @@
;; On OS X Emacs doesn't use the shell PATH if it's not started from
;; the shell. If you're using homebrew modifying the PATH is essential.
-(if (string= system-type "darwin")
+(if (eq system-type 'darwin)
(push "/usr/local/bin" exec-path))
(defvar prelude-dir (file-name-directory load-file-name)
diff --git a/modules/prelude-common-lisp.el b/modules/prelude-common-lisp.el
index 96047d3..a80f83e 100644
--- a/modules/prelude-common-lisp.el
+++ b/modules/prelude-common-lisp.el
@@ -78,7 +78,7 @@ Common Lisp."
(sbcl ("sbcl" "--noinform") :coding-system utf-8-unix)))
;; select the default value from slime-lisp-implementations
-(if (string= system-type "darwin")
+(if (eq system-type 'darwin)
;; default to Clozure CL on OS X
(setq slime-default-lisp 'ccl)
;; default to SBCL on Linux and Windows
diff --git a/modules/prelude-editor.el b/modules/prelude-editor.el
index 17a94b8..6935fb9 100644
--- a/modules/prelude-editor.el
+++ b/modules/prelude-editor.el
@@ -39,7 +39,7 @@
;; Emacs users obviously have little need for Command and Option keys,
;; but they do need Meta and Super
-(when (string= system-type "darwin")
+(when (eq system-type 'darwin)
(setq mac-command-modifier 'super)
(setq mac-option-modifier 'meta))