From 7b108c386bfb7f9bda08be9a6d973695c0ec4b85 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov 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))