Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!mit-eddie!amadeus.UUCP!mdb
From: mdb@amadeus.UUCP (Mark D. Baushke)
Newsgroups: comp.emacs
Subject: Re: Gold key -- correction to last message
Message-ID: <8710100211.AA13875@amadeus.silvlis.com>
Date: Fri, 9-Oct-87 22:11:09 EDT
Article-I.D.: amadeus.8710100211.AA13875
Posted: Fri Oct  9 22:11:09 1987
Date-Received: Mon, 12-Oct-87 00:57:26 EDT
Sender: daemon@eddie.MIT.EDU
Organization: Silvar-Lisco, 1080 Marsh Road, Menlo Park, CA 94025-1053
Lines: 25

Oops. Correction to last message.

The my-load-path variable is outside of the (let ...)
expression for both (setq load-path ...) statements. The lisp code
should read:

(if (not (let ((found nil)
	       (t-list load-path)
	       (my-load-path (expand-file-name "~/emacs-lisp")))
	   (while (and (not found)
		       t-list)
	     (if (equal (car t-list) my-load-path)
		 (setq found t-list))
	     (setq t-list (cdr t-list)))
	   found))
    (setq load-path (cons (expand-file-name "~/emacs-lisp") load-path)))

or if you don't care that you might already have "~/emacs-lisp" in your
load path, just adding the next line is good enough

	(setq load-path (cons (expand-file-name "~/emacs-lisp") load-path))


Mark Baushke
UUCP: ...!sun!silvlis!mdb