bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#59559: 28.1; `minibuffer-with-setup-hook' with :append


From: Michael Heerdegen
Subject: bug#59559: 28.1; `minibuffer-with-setup-hook' with :append
Date: Tue, 10 Jan 2023 18:37:50 +0100
User-agent: Gnus/5.13 (Gnus v5.13)

Drew Adams <drew.adams@oracle.com> writes:

> Note that the macroexpansion is different in different
> Emacs releases.  But none of them look right to me.  They
> essentially produce some variant of (funcall (:append FUN)).

In master I get

#+begin_src emacs-lisp
(macroexpand-1
  '(minibuffer-with-setup-hook (:append test1) (test2)))
==>
 (let
    ((#2=#:fun test1)
     (#1=#:setup-hook
      (make-symbol "minibuffer-setup")))
  (fset #1#
        (lambda nil
          (remove-hook 'minibuffer-setup-hook #1#)
          (funcall #2#)))
  (unwind-protect
      (progn
        (add-hook 'minibuffer-setup-hook #1# t)
        (test2))
    (remove-hook 'minibuffer-setup-hook #1#)))
#+end_src

At the first look that does not look wrong.

Michael.





reply via email to

[Prev in Thread] Current Thread [Next in Thread]