[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#64394: [PATCH] Fix `async-shell-command-display-buffer' display
From: |
Juri Linkov |
Subject: |
bug#64394: [PATCH] Fix `async-shell-command-display-buffer' display |
Date: |
Sun, 02 Jul 2023 21:03:58 +0300 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/30.0.50 (x86_64-pc-linux-gnu) |
>>> I'm probably missing something, but how can display-buffer fail to
>>> support any action function, such as display-buffer-no-window?
>>>
>>> Martin, what am I missing here?
>
> We may have to ask Juri, he conceived the "allow-no-window" concept.
I don't remember the details why we decided to design it that way.
But now I don't see why not enable allow-no-window by default,
i.e. why not to make it opt-out instead of opt-in.
>> Technically it seems that you can add `(allow-no-window . t)' to
>> `display-buffer-alist' to always force the buffer never to appear, but
>> that doesn't seem at all like its intended use.
>
> Maybe "force" is too strong here. You can "force" it by adding an
> 'allow-no-window' entry to the alist _and_ a 'display-buffer-no-window'
> action in a position that precedes any other display buffer action.
Indeed, it's possible to add 'allow-no-window' in customization:
(setq display-buffer-alist
'(("\\*Async Shell Command\\*"
display-buffer-no-window
(allow-no-window . t))))
(setq async-shell-command-display-buffer nil)
> I suppose (Juri will correct me) that this snippet in 'shell-command'
>
> (if async-shell-command-display-buffer
> ;; Display buffer immediately.
> (display-buffer buffer '(nil (allow-no-window . t))) <<<<<
> ;; Defer displaying buffer until first process output.
> ;; Use disposable named advice so that the buffer is
> ;; displayed at most once per process lifetime.
> (let ((nonce (make-symbol "nonce")))
> (add-function :before (process-filter proc)
> (lambda (proc _string)
> (let ((buf (process-buffer proc)))
> (when (buffer-live-p buf)
> (remove-function (process-filter proc)
> nonce)
> (display-buffer buf)))) <<<<<
> `((name . ,nonce)))))))
>
> adding an 'allow-no-window' entry if and only if
> 'async-shell-command-display-buffer' is non-nil is responsible for the
> behavior Eliza sees. I have no idea whether adding such an entry in the
> second case could cause problems. We could give
> 'async-shell-command-display-buffer' a third value, say 'allow-no-window
> and, if a user has set it to that value, have 'shell-command' add an
> 'allow-no-window' entry in the second case too.
I think it's a plain bug that the first call of 'display-buffer'
sets 'allow-no-window' to t, but the second call doesn't.
These two 'display-buffer' calls were intended to do the same thing.
Only the second call is delayed until input arrives.