diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2026-03-22 16:33:50 +0100 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2026-08-28 16:58:31 +0200 |
| commit | 14d2567db3f06e3a1e74273f8620f8bc5f586349 (patch) | |
| tree | 3229b15dc34bf74fe1127ae4e0e07e53edb76b21 | |
| parent | 877c05421ba1108ff4206b11f7adceaba30e9b83 (diff) | |
gnu: emacs: Add lexical binding cookies.
* gnu/packages/emacs.scm (emacs-minimal)[#:phases]<install-c-source>
<install-site-start>: Add “;; -*- lexical-binding: t; -*-” at the top of the
generated files.
* gnu/packages/aux-files/emacs/comp-integrity.el: Likewise.
| -rw-r--r-- | gnu/packages/aux-files/emacs/comp-integrity.el | 1 | ||||
| -rw-r--r-- | gnu/packages/emacs.scm | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/gnu/packages/aux-files/emacs/comp-integrity.el b/gnu/packages/aux-files/emacs/comp-integrity.el index a53b9dcc5ff..1aa82384e05 100644 --- a/gnu/packages/aux-files/emacs/comp-integrity.el +++ b/gnu/packages/aux-files/emacs/comp-integrity.el | |||
| @@ -1,3 +1,4 @@ | |||
| 1 | ;; -*- lexical-binding: t; -*- | ||
| 1 | (require 'ert) | 2 | (require 'ert) |
| 2 | 3 | ||
| 3 | (eval-when-compile | 4 | (eval-when-compile |
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index de36f342a17..686c998ffaa 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm | |||
| @@ -389,6 +389,7 @@ | |||
| 389 | (lambda () | 389 | (lambda () |
| 390 | (display | 390 | (display |
| 391 | (string-append | 391 | (string-append |
| 392 | ";; -*- lexical-binding: t; -*-\n" | ||
| 392 | "(setq find-function-C-source-directory \"" dest "\")\n\n" | 393 | "(setq find-function-C-source-directory \"" dest "\")\n\n" |
| 393 | "(provide 'guix-emacs-c-source)"))))))) | 394 | "(provide 'guix-emacs-c-source)"))))))) |
| 394 | (add-after 'install 'install-site-start | 395 | (add-after 'install 'install-site-start |
| @@ -415,6 +416,7 @@ | |||
| 415 | (lambda () | 416 | (lambda () |
| 416 | (display | 417 | (display |
| 417 | (string-append | 418 | (string-append |
| 419 | ";; -*- lexical-binding: t; -*-\n" | ||
| 418 | "(when (require 'guix-emacs nil t)\n" | 420 | "(when (require 'guix-emacs nil t)\n" |
| 419 | " (guix-emacs-autoload-packages 'no-reload)\n" | 421 | " (guix-emacs-autoload-packages 'no-reload)\n" |
| 420 | " (advice-add 'package-load-all-descriptors" | 422 | " (advice-add 'package-load-all-descriptors" |
