From 4ff241fe3eebae4633ab3844a946716298b377e5 Mon Sep 17 00:00:00 2001 From: lxsameer Date: Tue, 24 May 2011 20:02:45 +0430 Subject: [PATCH] some change for reloading plugins --- src/kuso-ide.el | 19 ++++++++++--------- src/plugins/django-mode.el | 2 +- 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/src/kuso-ide.el b/src/kuso-ide.el index 4c1ef1d..8c39538 100644 --- a/src/kuso-ide.el +++ b/src/kuso-ide.el @@ -56,18 +56,19 @@ store their code templates." (defun load-dir (path) "Load entire directory" (let (load-elc load-el filelist tmp) - (setq load-elc (concat path "*.elc")) - (setq load-el (concat path "*.el")) - (setq filelist (file-expand-wildcards load-elc)) - (setq tmp (file-expand-wildcards load-el)) - (setq filelist (append filelist tmp)) - (log (format "%s libraries found" filelist)) - ;; TODO: delete unkown filetypes from filelist - (setq filelist (mapcar 'strip-el-ext filelist)) - (mapcar 'load filelist) + (setq load-elc (concat path "*.elc")) + (setq load-el (concat path "*.el")) + (setq filelist (file-expand-wildcards load-elc)) + (setq tmp (file-expand-wildcards load-el)) + (setq filelist (append filelist tmp)) + (log (format "%s libraries found" filelist)) + ;; TODO: delete unkown filetypes from filelist + (setq filelist (mapcar 'strip-el-ext filelist)) + (mapcar 'load filelist) ) ) + (defun init-kuso () "Inittialize Kuso IDE environment" (log "initializing Kuso . . .") (let (cur-path-list) diff --git a/src/plugins/django-mode.el b/src/plugins/django-mode.el index ed19b47..cadeccf 100644 --- a/src/plugins/django-mode.el +++ b/src/plugins/django-mode.el @@ -214,4 +214,4 @@ GNUEmacs." ) ) ) -(provide 'django-mode) \ No newline at end of file +(provide 'django-mode)