Path: utzoo!attcan!uunet!lll-winken!spl1!laidbak!att!osu-cis!tut.cis.ohio-state.edu!bloom-beacon!bu-cs!bucsb!jbw
From: jbw@bucsb.UUCP (Joe Wells)
Newsgroups: comp.emacs
Subject: Re: How do I abort processing of .emacs?
Summary: inews garbage
Message-ID: <2316@bucsb.UUCP>
Date: 17 Jan 89 22:20:49 GMT
References: <103@garnet.UUCP> <2824@xyzzy.UUCP>
Reply-To: jbw@bucsf.bu.edu (Joe Wells)
Followup-To: comp.emacs
Distribution: na
Organization: Boston Univ Comp. Sci.
Lines: 28

In article <2824@xyzzy.UUCP> biesack@dg-rtp.UUCP () writes:
>In article <103@garnet.UUCP> randy@garnet.UUCP (Randy Orrison) writes:
>> (if (equal (getenv "HOME") "/")
>>     ( skip-the-rest-of-.emacs ))
>> 
>> How do I do the skip?  (Or, is there a better way to do what I want?)

Actually, there is a way to do what you want.  However it's really ugly.

(defun eat-up-input ()
  "Will read and discard all characters in the current stdio input
stream.  This of course, should only be called when such a stream
exists, ie., inside of a load."
  (condition-case ()
      (while (read nil))
    (end-of-file nil)))

This has the problem that it is really slow, and the only reason that
I wanted to use it was to speed up loading my .emacs file undercertain
circumstances, e.g., a slow VAX.

So, you could do this:

(if (equal (getenv "HOME") "/") (eat-up-input))

--
Joe Wells		INTERNET: jbw%bucsf.bu.edu@bu-it.bu.edu
UUCP: ...!harvard!bu-cs!bucsf!jbw	      IP: [128.197.2.9]