Guest User

emacs nightly build patch for loaddefs-generate 11-2025

a guest
Nov 11th, 2025
264
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 2.93 KB | Source Code | 0 0
  1. ;; dumb path to fix emacs nightly build
  2. ;;
  3. ;; (defun loaddefs-generate (dirs output-file &optional excluded-files
  4. ;;                               extra-data include-package-version
  5. ;;                               generate-full)
  6. ;; "..."
  7.  
  8.   (let* ((files-re (let ((tmp nil))
  9.                      (dolist (suf (get-load-suffixes))
  10.                        ;; We don't use module-file-suffix below because                                                                                                                                                                    
  11.                        ;; we don't want to depend on whether Emacs was                                                                                                                                                                      
  12.                        ;; built with or without modules support, nor                                                                                                                                                                        
  13.                        ;; what is the suffix for the underlying OS.                                                                                                                                                                        
  14.                        (unless (string-match "\\.\\(elc\\|so\\|dll\\|dylib\\)" suf)
  15.                          (push suf tmp)))
  16.                      (concat "\\`[^=.].*" (regexp-opt tmp t) "\\'")))
  17.          (files (apply #'nconc
  18.                        (mapcar (lambda (d)
  19.                                  ;; NOTE: the directory path is missing "emacs-git/"                                                                                                                                                        
  20.                                  ;; so I just wrapped (expand-file-name d)                                                                                                                                                                  
  21.                                  ;; with (string-replace ...)                                                                                                                                                                              
  22.                                  ;; to inject it in the path, stupid hack but                                                                                                                                                              
  23.                                  ;; this allows the build to finish.                                                                                                                                                                        
  24.                                  (directory-files (string-replace "src/lisp" "src/emacs-git/lisp" (expand-file-name d))
  25.                                                   t files-re))
  26.                                (ensure-list dirs))))
  27. ;;; ...
Advertisement
Add Comment
Please, Sign In to add comment