]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix display of man pages after killing the 'man' process
authorEli Zaretskii <eliz@gnu.org>
Sat, 25 Jul 2020 07:15:07 +0000 (10:15 +0300)
committerEli Zaretskii <eliz@gnu.org>
Sat, 25 Jul 2020 07:15:07 +0000 (10:15 +0300)
* lisp/man.el (Man-bgproc-filter, Man-bgproc-sentinel): Use
'buffer-live-p' instead of just testing the buffer's name.
(Bug#42160)

lisp/man.el

index 8a36f3ac25d810c033e690a0df9e6676f6fc48d1..3121334c6f94a0c2245728c07aaec63e2faca622 100644 (file)
@@ -1396,7 +1396,7 @@ synchronously, PROCESS is the name of the buffer where the manpage
 command is run.  Second argument STRING is the entire string of output."
   (save-excursion
     (let ((Man-buffer (process-buffer process)))
-      (if (null (buffer-name Man-buffer)) ;; deleted buffer
+      (if (not (buffer-live-p Man-buffer)) ;; deleted buffer
          (set-process-buffer process nil)
 
        (with-current-buffer Man-buffer
@@ -1430,7 +1430,7 @@ manpage command."
        (delete-buff nil)
        message)
 
-    (if (null (buffer-name Man-buffer)) ;; deleted buffer
+    (if (not (buffer-live-p Man-buffer)) ;; deleted buffer
        (or (stringp process)
            (set-process-buffer process nil))