app-emacs/package-lint/files/package-lint-0.22-load-data-directory.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

--- a/package-lint.el
+++ b/package-lint.el
@@ -113,11 +113,9 @@ optional minimum version containing the feature.")
 (defun package-lint--load-data (file)
   "Load sexp data from FILE."
   (with-temp-buffer
-    (insert-file-contents
-     (expand-file-name file
-                       (if load-file-name
-                           (file-name-directory load-file-name)
-                         default-directory)))
+    (let ((ef (expand-file-name file "@SITEETC@")))
+      (insert-file-contents
+       (if (file-exists-p ef) ef file)))
     (read (current-buffer))))
 
 (defconst package-lint-symbol-info