From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: weber Newsgroups: gmane.emacs.help Subject: Re: One .emacs for three operating system Date: Tue, 14 Aug 2007 15:09:25 -0700 Organization: http://groups.google.com Message-ID: <1187129365.743668.304350@q75g2000hsh.googlegroups.com> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" X-Trace: sea.gmane.org 1187131238 17992 80.91.229.12 (14 Aug 2007 22:40:38 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 14 Aug 2007 22:40:38 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Aug 15 00:40:37 2007 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IL53y-00012z-Pb for geh-help-gnu-emacs@m.gmane.org; Wed, 15 Aug 2007 00:40:35 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IL53y-0000Na-6r for geh-help-gnu-emacs@m.gmane.org; Tue, 14 Aug 2007 18:40:34 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!postnews.google.com!q75g2000hsh.googlegroups.com!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 63 Original-NNTP-Posting-Host: 189.6.204.109 Original-X-Trace: posting.google.com 1187129365 29475 127.0.0.1 (14 Aug 2007 22:09:25 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Tue, 14 Aug 2007 22:09:25 +0000 (UTC) In-Reply-To: User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6,gzip(gfe),gzip(gfe) X-HTTP-Via: 1.1 fw.datacom-telematica.com.br:3128 (squid/2.5.STABLE6) Complaints-To: groups-abuse@google.com Injection-Info: q75g2000hsh.googlegroups.com; posting-host=189.6.204.109; posting-account=ps2QrAMAAAA6_jCuRt2JEIpn5Otqf_w0 Original-Xref: shelby.stanford.edu gnu.emacs.help:150972 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:46543 Archived-At: On 14 ago, 18:45, Eric Lilja wrote: > Hello, I run emacs under windows xp, fedora 7 and solaris (unknown > version). I want to use the same .emacs for all three operating systems. > On Windows and fedora I have 22.1 or later, on Solaris I have 21.4 > because the admins don't like to upgrade software at all, it seems. > > Anyway, I have a few things I need to do differently on Solaris so I've > been trying to determine if I'm running Solaris by checking the value of > $HOME (crude, I know, I'd like to hear of a better way). Since I don't > know lisp this is not trivial for me. > > First I did (in scratch): > > (getenv "HOME")C-j > Prints expected string. > > Then I tried to do a comparison > > (if (eq (getenv "HOME") "/home/on/solaris") > (message "Duh") > )C-j > > but I get the output Nil from that. > > So I thought that maybe it doens't like the nested getenv call for some > reason, so I tried. > (setq u (getenv "HOME"))C-j > Ok, prints expected result. > But then I noticed something that's odd to me who doesn't know lisp, if I do > (print u)C-j > it prints the home directory twice...so I started to wondering if u > contains the string once or twice... When I tried use the variable u in > the if statement instead of the nested getenv call the result was Nil > once again. > > anyway, as you can see I'm really confused, I just want to add some > if/else-statements to my emacs. > > if running-under-solaris is true > do this > else ; assume we are running under winxp or fedora7 > do that > > - Eric Nop, the error is on the "eq" function. In this case you probably want to use string-eq for comparison. I use this: (if (string-equal (getenv "HOME") "/your/path/") (my-sun-config) (my-pc-config)) (defun my-sun-config () (color-theme-arjen)) (defun my-pc-config () (color-theme-emacs-21)) HTH, weber