Liliana Marie Prikler <liliana.prik...@gmail.com> writes:
> * `guix shell emacs emacs-transient --with-input=emacs-minimal=emacs` will
> load the native-compiled emacs
Hm there may be a bug somewhere (hopefully not in my testing).
I created a profile using:
#+begin_src sh
./pre-inst-env guix package
--profile=${HOME}/.guix-extra-profiles/test-67292/test-67292 -i bash
coreutils-minimal nss-certs emacs emacs-org emacs-magit emacs-transient
--with-input=emacs-minimal=emacs
#+end_src
And then loaded it via:
#+begin_src sh
guix shell --pure -CPWN -E '.*GTK.*|.*XDG.*|.*DISPLAY.*|TERM|INSIDE_EMACS' -p
${HOME}/.guix-extra-profiles/test-67292/test-67292
#+end_src
After invoking "emacs -nw -q" in the above profile, I evaluated the
below code:
#+begin_src emacs-lisp
(eval-and-compile
(require 'help-fns)
(defmacro utils/report-compilation-status (fun &optional feature)
"Report on the compilation status of function FUN.
Optionally load FEATURE before reporting on compilation status."
`(progn
(eval-when-compile
(when ',feature
(require ',feature)))
(let ((descstr (substring-no-properties
(with-output-to-string
(help-fns-function-description-header ',fun)))))
(cons ',fun
(cond
((string-search " native-compiled" descstr)
'native-compiled)
;; ((string-search " autoloaded" descstr) descstr)
((string-search " byte-compiled" descstr) 'byte-compiled)
(t descstr))))))
(defun utils/report-compilation-status/apply (fun &optional feature)
"Invoke `utils/report-compilation-status' with FUN and FEATURE."
(eval `(utils/report-compilation-status ,fun ,feature))))
#+end_src
Then, evaluating the below:
#+begin_src emacs-lisp
(utils/report-compilation-status/apply 'org-agenda 'org-agenda)
#+end_src
Results in '(org-agenda . byte-compiled).
Note, that doing the above without the submitted patch applied results
in '(org-agenda . native-compiled).
--
Suhail
