44 |
(with-current-buffer |
(with-current-buffer |
45 |
(find-file-noselect (expand-file-name "esh-groups.el" directory)) |
(find-file-noselect (expand-file-name "esh-groups.el" directory)) |
46 |
(erase-buffer) |
(erase-buffer) |
47 |
(insert ";;; do not modify this file; it is auto-generated\n\n") |
(insert ";;; do not modify this file; it is auto-generated -*- no-byte-compile: t -*-\n\n") |
48 |
(let ((files (directory-files (or directory |
(let ((files (directory-files (or directory |
49 |
(car command-line-args-left)) |
(car command-line-args-left)) |
50 |
nil "\\`em-.*\\.el\\'"))) |
nil "\\`em-.*\\.el\\'"))) |