Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; dumb path to fix emacs nightly build
- ;;
- ;; (defun loaddefs-generate (dirs output-file &optional excluded-files
- ;; extra-data include-package-version
- ;; generate-full)
- ;; "..."
- (let* ((files-re (let ((tmp nil))
- (dolist (suf (get-load-suffixes))
- ;; We don't use module-file-suffix below because
- ;; we don't want to depend on whether Emacs was
- ;; built with or without modules support, nor
- ;; what is the suffix for the underlying OS.
- (unless (string-match "\\.\\(elc\\|so\\|dll\\|dylib\\)" suf)
- (push suf tmp)))
- (concat "\\`[^=.].*" (regexp-opt tmp t) "\\'")))
- (files (apply #'nconc
- (mapcar (lambda (d)
- ;; NOTE: the directory path is missing "emacs-git/"
- ;; so I just wrapped (expand-file-name d)
- ;; with (string-replace ...)
- ;; to inject it in the path, stupid hack but
- ;; this allows the build to finish.
- (directory-files (string-replace "src/lisp" "src/emacs-git/lisp" (expand-file-name d))
- t files-re))
- (ensure-list dirs))))
- ;;; ...
Advertisement
Add Comment
Please, Sign In to add comment