Mercurial > hg > xemacs-beta
view nt/installer/Wise/files.py @ 4683:0cc9d22c3732
Be more reliable about loading cl-macs at byte-compile time, cl.el.
lisp/ChangeLog addition:
2009-08-27 Aidan Kehoe <kehoea@parhasard.net>
* cl.el (bytecomp-load-hook): New.
* bytecomp.el (bytecomp-load-hook): Use id.
Merge Dave Love's 2000-02-02 GNU (GPLv2) change, forcing the
byte-compiler to be more consistent about loading cl-macs at
compile time.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Thu, 27 Aug 2009 15:18:51 +0100 |
parents | 74fd4e045ea6 |
children |
line wrap: on
line source
import os import dirs def listdir_recursive(basedir): ret = [] for f in os.listdir(basedir): if os.path.isfile(basedir+"\\"+f): ret.append(f) elif os.path.isdir(basedir+"\\"+f): for f1 in listdir_recursive(basedir+"\\"+f): ret.append(f+"\\"+f1) return ret install = [] for f in os.listdir(dirs.source+"\\lib-src"): if f == "DOC" or f[-4:]==".exe": install.append((f,dirs.source+"\\lib-src",dirs.bin_dst)) for f in ['runemacs.exe', 'xemacs.exe']: install.append((f,dirs.source+"\\src",dirs.bin_dst)) for f in listdir_recursive(dirs.source+"\\lisp"): install.append((f,dirs.source+"\\lisp",dirs.lisp_dst)) for f in listdir_recursive(dirs.source+"\\etc"): install.append((f,dirs.source+"\\etc",dirs.etc_dst)) for f in os.listdir(dirs.source+"\\info"): install.append((f,dirs.source+"\\info",dirs.info_dst))