bug#67292: emacs / emacs-transient collisions and bundling

[Suhail Singh <suhailsingh247@gmail.com>]

Liliana Marie Prikler <liliana.prikler@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