GNU bug report logs - #36163
27.0.50; `list-processes' assumes `thread-name' cannot return nil

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Pip Cet <pipcet <at> gmail.com>
Subject: bug#36163: closed (27.0.50; `list-processes' assumes
 `thread-name' cannot return nil)
Date: Tue, 11 Jun 2019 15:27:03 +0000

[Message part 1 (text/plain, inline)]

Your bug report

#36163: 27.0.50; `list-processes' assumes `thread-name' cannot return nil

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 36163 <at> debbugs.gnu.org.

-- 
36163: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=36163
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Paul Eggert <eggert <at> cs.ucla.edu>
To: Pip Cet <pipcet <at> gmail.com>
Cc: 36163-done <at> debbugs.gnu.org
Subject: 27.0.50; `list-processes' assumes `thread-name' cannot return nil
Date: Tue, 11 Jun 2019 08:26:23 -0700

Thanks, I installed that patch.

[Message part 3 (message/rfc822, inline)]

From: Pip Cet <pipcet <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 27.0.50; `list-processes' assumes `thread-name' cannot return nil
Date: Tue, 11 Jun 2019 07:03:41 +0000

[Message part 4 (text/plain, inline)]

In emacs -Q, run:

(make-thread (lambda ()
           (make-process :name "name" :command (list "/bin/sh" "-c"
"while true; do sleep 1; done"))
           (while t
         (thread-yield))))

Then use M-x list-processes. This results in an error as (thread-name
thread) returns nil for the thread, since the optional name argument to
make-thread hasn't been specified.

The attached patch fixes things.

diff --git a/lisp/simple.el b/lisp/simple.el
index 6bc3bc5304..cf537265bd 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4102,7 +4102,8 @@ list-processes--refresh
                       (null (process-thread p))
                       (not (fboundp 'thread-name))) "--")
                     ((eq (process-thread p) main-thread) "Main")
-                    ((thread-name (process-thread p)))))
+                    ((thread-name (process-thread p)))
+                    (t "--")))
                  (cmd
                   (if (memq type '(network serial))
                       (let ((contact (process-contact p t)))

[emacs-patch.diff (text/x-patch, attachment)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.