From 6c1c6ff0daf2b7dadba59795f294077e4b9e4ffe Mon Sep 17 00:00:00 2001 From: Shanmu Thiagaraja Date: Fri, 2 Aug 2013 20:41:39 +0100 Subject: [PATCH] Fixed username (in windows-nt) in the final message after loading prelude. --- init.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/init.el b/init.el index 8a4439c..b87a03c 100644 --- a/init.el +++ b/init.el @@ -32,10 +32,11 @@ ;; Boston, MA 02110-1301, USA. ;;; Code: +(defvar current-user + (getenv + (if (equal system-type 'windows-nt) "USERNAME" "USER"))) -(message "Prelude is powering up... Be patient, Master %s!" - (getenv - (if (equal system-type 'windows-nt) "USERNAME" "USER"))) +(message "Prelude is powering up... Be patient, Master %s!" current-user) (defvar prelude-dir (file-name-directory load-file-name) "The root dir of the Emacs Prelude distribution.") @@ -102,7 +103,7 @@ by Prelude.") (message "Loading personal configuration files in %s..." prelude-personal-dir) (mapc 'load (directory-files prelude-personal-dir 't "^[^#].*el$"))) -(message "Prelude is ready to do thy bidding, Master %s!" (getenv "USER")) +(message "Prelude is ready to do thy bidding, Master %s!" current-user) (prelude-eval-after-init ;; greet the use with some useful tip