diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2020-07-25 10:15:07 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-07-25 10:15:07 +0300 |
| commit | eaad6eac0018c2f3b35af7c522f9d02618918a3a (patch) | |
| tree | 72f954ca12b84a36d8fab1d2060f64baaa638fdd | |
| parent | 19064761ad2b17b13bdf3c8bd35e9ff58fe2e4fc (diff) | |
| download | emacs-eaad6eac0018c2f3b35af7c522f9d02618918a3a.tar.gz | |
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)
| -rw-r--r-- | lisp/man.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/man.el b/lisp/man.el index 8a36f3ac25d..3121334c6f9 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -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)) |