From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lachlan Deck Newsgroups: gmane.emacs.help Subject: Re: dolist require help Date: Fri, 30 Sep 2011 09:33:19 +1000 Message-ID: <4DAB2718-69FB-4675-84A8-062125CB9715@gmail.com> References: <3516DA17-6376-4850-988D-12917DDDE518@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 (Apple Message framework v1244.3) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1317339218 7580 80.91.229.12 (29 Sep 2011 23:33:38 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 29 Sep 2011 23:33: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 Fri Sep 30 01:33:33 2011 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1R9Q6f-0005ES-AZ for geh-help-gnu-emacs@m.gmane.org; Fri, 30 Sep 2011 01:33:33 +0200 Original-Received: from localhost ([::1]:48173 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R9Q6e-0005EF-PK for geh-help-gnu-emacs@m.gmane.org; Thu, 29 Sep 2011 19:33:32 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:51551) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R9Q6Z-0005Du-R2 for help-gnu-emacs@gnu.org; Thu, 29 Sep 2011 19:33:28 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1R9Q6Y-0006Ho-BX for help-gnu-emacs@gnu.org; Thu, 29 Sep 2011 19:33:27 -0400 Original-Received: from mail-yi0-f41.google.com ([209.85.218.41]:34196) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R9Q6Y-0006Hj-66 for help-gnu-emacs@gnu.org; Thu, 29 Sep 2011 19:33:26 -0400 Original-Received: by yia25 with SMTP id 25so1245639yia.0 for ; Thu, 29 Sep 2011 16:33:25 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=content-type:mime-version:subject:from:in-reply-to:date :content-transfer-encoding:message-id:references:to:x-mailer; bh=0AN3kAM3WhjZJfrCx0wF2EmfktoCNtJ9hRzl2MvUU3k=; b=IB/UZuqR0qgHlPTS+bGZwsiOJkuGuZ4K3v/jPioNuhTZfqZrkmv/S43aul/ZAJdZef BmHJrOKL+yUJnvrMeJpPizGMdhU29vH+84T9alOghh67y7ZAk71PtLvt4B7pEYJHoZy8 YbwBp09vi3my4j0y7n1NyeXQX3AppuGOmSXnY= Original-Received: by 10.236.170.167 with SMTP id p27mr18511525yhl.0.1317339205416; Thu, 29 Sep 2011 16:33:25 -0700 (PDT) Original-Received: from [10.38.35.196] (cpmon.mq.edu.au. [137.111.13.200]) by mx.google.com with ESMTPS id l75sm2576498yhj.24.2011.09.29.16.33.23 (version=TLSv1/SSLv3 cipher=OTHER); Thu, 29 Sep 2011 16:33:24 -0700 (PDT) In-Reply-To: <3516DA17-6376-4850-988D-12917DDDE518@gmail.com> X-Mailer: Apple Mail (2.1244.3) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 209.85.218.41 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:82380 Archived-At: Answering my own question: use intern instead of make-symbol. On 30/09/2011, at 9:10 AM, Lachlan Deck wrote: > Hi there, >=20 > I'm trying to auto-require some custom provided stuff -- a list of = files containing various settings -- and can't quite make it work. >=20 > Any ideas what I'm doing wrong? >=20 > (defvar my-el-dir (file-name-directory load-file-name)) > (defvar my-custom-dir (concat my-el-dir "custom/")) > (add-to-list 'load-path my-custom-dir) >=20 > (require 'my-package-autoloads) > (require 'my-el-get-autoloads) >=20 > ;; this doesn't work (strack trace below) = = = =20 > (dolist (setting-file (file-expand-wildcards (concat my-custom-dir = "*-settings.el"))) > (progn (print (concat "---> loading " (file-name-sans-extension = (file-name-nondirectory setting-file))))) > (require (make-symbol (file-name-sans-extension = (file-name-nondirectory setting-file))))) >=20 > ;; this does work > (require 'my-ecb-settings) > <..> >=20 > Lachlan Deck > lachlan.deck@gmail.com >=20 >=20 > Debugger entered--Lisp error: (error "Required feature = `my-ecb-settings' was not provided") > require(my-ecb-settings) > (while --cl-dolist-temp-- (setq setting-file (car = --cl-dolist-temp--)) (progn (print (concat "---> loading " = (file-name-sans-extension (file-name-nondirectory setting-file))))) = (require (make-symbol ($ > (let ((--cl-dolist-temp-- (file-expand-wildcards (concat = my-custom-dir "*-settings.el"))) setting-file) (while --cl-dolist-temp-- = (setq setting-file (car --cl-dolist-temp--)) (progn (print (concat "--$ > (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- = (file-expand-wildcards (concat my-custom-dir "*-settings.el"))) = setting-file) (while --cl-dolist-temp-- (setq setting-file (car = --cl-dolist-te$ > (cl-block-wrapper (catch (quote --cl-block-nil--) (let = ((--cl-dolist-temp-- (file-expand-wildcards (concat my-custom-dir = "*-settings.el"))) setting-file) (while --cl-dolist-temp-- (setq = setting-file ($ > (block nil (let ((--cl-dolist-temp-- (file-expand-wildcards (concat = my-custom-dir "*-settings.el"))) setting-file) (while --cl-dolist-temp-- = (setq setting-file (car --cl-dolist-temp--)) (progn (print $ > (dolist (setting-file (file-expand-wildcards (concat my-custom-dir = "*-settings.el"))) (progn (print (concat "---> loading " = (file-name-sans-extension (file-name-nondirectory setting-file))))) = (require$ > eval-buffer(#> nil = "/Users/ldeck/.emacs.d/ldeck/my.el" nil t) ; Reading at buffer position = 562 > load-with-code-conversion("/Users/ldeck/.emacs.d/ldeck/my.el" = "/Users/ldeck/.emacs.d/ldeck/my.el" nil nil) > load("my.el") > <...>