[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

dolist require help

From: Lachlan Deck
Subject: dolist require help
Date: Fri, 30 Sep 2011 09:10:45 +1000

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 
  (progn (print (concat "---> loading " (file-name-sans-extension 
(file-name-nondirectory setting-file)))))
  (require (make-symbol (file-name-sans-extension (file-name-nondirectory 

;; this does work
(require 'my-ecb-settings)

Lachlan Deck

Debugger entered--Lisp error: (error "Required feature `my-ecb-settings' was 
not provided")
  (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
"/Users/ldeck/.emacs.d/ldeck/my.el" nil nil)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]