Re: dolist require help

[Lachlan Deck]

Answering my own question:

use intern instead of make-symbol.

On 30/09/2011, at 9:10 AM, Lachlan Deck wrote:

> Hi there,
> 
> I'm trying to auto-require some custom provided stuff -- a list of files 
> containing various settings -- and can't quite make it work.
> 
> Any ideas what I'm doing wrong?
> 
> (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)
> 
> (require 'my-package-autoloads)
> (require 'my-el-get-autoloads)
> 
> ;; this doesn't work (strack trace below)                                     
>                                                                               
>                                                                               
>          
> (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)))))
> 
> ;; this does work
> (require 'my-ecb-settings)
> <..>
> 
> Lachlan Deck
> lachlan.deck@gmail.com
> 
> 
> 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(#<buffer  *load*<3>> 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")
> <...>