Tags: patch

Hi, to reproduce this issue please save the following elisp to proc.el:

        (defvar p-stopped nil)

        (defun my-sentinel (proc str)
          (when (string-match "^\\(?:finished\n\\|exited abnormally\\|killed\n\\)"
                              str)
            (setq p-stopped t)))

        (defun wait-for-process-end (proc)
          (while (not p-stopped)
            (message "process status is: %s" (process-status proc))
            (accept-process-output proc 0.1 nil t)))

        (defun f ()
          (with-temp-buffer
          (inotify-add-watch "foo.txt" t #'ignore)
          (let ((proc (start-process "p" (current-buffer) "bash" "-c" "touch foo.txt")))
            (setq p-stopped nil)
            (set-process-sentinel proc 'my-sentinel)
            (wait-for-process-end proc))))

Please also create a file 'foo.txt'

        $ touch foo.txt

Now, invoke the following command

        $ emacs -Q --script proc.el --eval "(f)"

This command will never exit, and print "process status is: exit" forever.

The expected behavior is that, because process "p" is exited, its sentinel should be called, so 'wait-for-process-end' will complete and Emacs will exit.

After some investigation, I found that 'wait_reading_process_output' in process.c never calls the sentinel for the process because the pselect invocation in this code (src/process.c) always returns nonzero:

        if ((thread_select (pselect, max_desc + 1,
                              &Atemp,
                              (num_pending_connects > 0 ? &Ctemp : NULL),
                              NULL, &timeout, NULL)
                   <= 0))
                {
                  /* It's okay for us to do this and then continue with
                   the loop, since timeout has already been zeroed out.  */
                  clear_waiting_for_input ();
                  got_some_output = status_notify (NULL, wait_proc);
                  if (do_display) redisplay_preserve_echo_area (13);
                }

This pselect invocation always returns nonzero because the inotify fd for "foo.txt" is included in the pselect readfds and is readable. However, the inotify fd is never handled within 'wait_reading_process_output'.

If I understand this code correctly, the intent here is to prioritize handling ready fds before calling 'status_notify', which invokes sentinels. However, it seems inotify fds are not handled in 'wait_reading_process_output', so there is no reason to care about inotify fds here. I believe the correct fix is to filter for process fds in this pselect call. To accomplish this, the included patch filters for process fds in 'compute_input_wait_mask'. It appears to me that all usage of 'compute_input_wait_mask' only cares about process fds, so I believe this is a safe change.


In GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version
 3.24.38, cairo version 1.17.8) of 2023-12-23 built on ostrich
Repository revision: 5c3ff1494b69bf45b99125f2423174222badfa43
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12101011
System Description: Arch Linux

Configured using:
 'configure --prefix=/usr --sysconfdir=/etc --libexecdir=/usr/lib
 --localstatedir=/var --mandir=/usr/share/man --with-gameuser=:games
 --with-modules --without-m17n-flt --without-gconf
 --with-native-compilation=yes --with-xinput2 --with-x-toolkit=gtk3
 --without-xaw3d --with-sound=no --with-tree-sitter --without-gpm
 --without-compress-install
 '--program-transform-name=s/\([ec]tags\)/\1.emacs/'
 'CFLAGS=-march=x86-64 -mtune=generic -O2 -pipe -fno-plt -fexceptions
 -Wp,-D_FORTIFY_SOURCE=2 -Wformat -Werror=format-security
 -fstack-clash-protection -fcf-protection'
 LDFLAGS=-Wl,-O1,--sort-common,--as-needed,-z,relro,-z,now'