Fix display of man pages after killing the 'man' process
* lisp/man.el (Man-bgproc-filter, Man-bgproc-sentinel): Use 'buffer-live-p' instead of just testing the buffer's name. (Bug#42160)
This commit is contained in:
parent
19064761ad
commit
eaad6eac00
1 changed files with 2 additions and 2 deletions
|
@ -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))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue