diff options
| author | Martin Edström <meedstrom@runbox.eu> | 2026-01-22 20:53:14 +0100 |
|---|---|---|
| committer | Martin Edström <meedstrom@runbox.eu> | 2026-01-22 20:53:14 +0100 |
| commit | 688ac4c1115525163308c8e1fd3328d938bd9098 (patch) | |
| tree | 1555f32dd386165f762915a1fdf9d248be90212a | |
| parent | 04a4ec75c463a999c009cb87bc8bfd800818a3b1 (diff) | |
Simplify
| -rw-r--r-- | el-job-ng.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/el-job-ng.el b/el-job-ng.el index ec422b9..27c0265 100644 --- a/el-job-ng.el +++ b/el-job-ng.el @@ -219,6 +219,10 @@ ID can also be passed to these helpers: when (and (numberp id) (not (el-job-ng-busy-p id))) do (remhash id el-job-ng--jobs)) + (setq inject-vars (append (el-job-ng-vars '(temporary-file-directory + load-path + native-comp-eln-load-path)) + inject-vars)) (setq id (or id (abs (random)))) (let ((job (or (gethash id el-job-ng--jobs) (puthash id (el-job-ng--make-job :id id) el-job-ng--jobs)))) @@ -236,14 +240,7 @@ ID can also be passed to these helpers: ;; https://github.com/jwiegley/emacs-async/issues/165 (coding-system-for-write 'utf-8-emacs-unix) (coding-system-for-read 'utf-8-emacs-unix) - (vars (prin1-to-string - (append (list (cons 'temporary-file-directory temporary-file-directory) - (cons 'load-path load-path)) - (and (boundp 'native-comp-eln-load-path) - (list - (cons 'native-comp-eln-load-path native-comp-eln-load-path))) - ;; NOTE: These go last so they can override the above. - inject-vars))) + (vars (prin1-to-string inject-vars)) (libs (prin1-to-string require)) (forms (prin1-to-string eval)) (func (prin1-to-string funcall-per-input)) |