From fb27907c07cf124773c1ae7add4a26be8ce02bbd Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 5 Sep 2023 18:58:02 +0200 Subject: [PATCH] ; Fix error in 'tex-recenter-output-buffer' * lisp/textmodes/tex-mode.el (tex-recenter-output-buffer): Check that 'display-buffer' returned a window, rather than nil, before selecting it. --- lisp/textmodes/tex-mode.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 41c4a6a1373..a26e7b9c83a 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -2673,17 +2673,17 @@ tex-recenter-output-buffer The last line of the buffer is displayed on line LINE of the window, or centered if LINE is nil." (interactive "P") - (let ((tex-shell (get-buffer "*tex-shell*")) - (window)) + (let ((tex-shell (get-buffer "*tex-shell*"))) (if (null tex-shell) (message "No TeX output buffer") - (setq window (display-buffer tex-shell display-tex-shell-buffer-action)) - (with-selected-window window - (bury-buffer tex-shell) - (goto-char (point-max)) - (recenter (if linenum - (prefix-numeric-value linenum) - (/ (window-height) 2))))))) + (when-let ((window + (display-buffer tex-shell display-tex-shell-buffer-action))) + (with-selected-window window + (bury-buffer tex-shell) + (goto-char (point-max)) + (recenter (if linenum + (prefix-numeric-value linenum) + (/ (window-height) 2)))))))) (defcustom tex-print-file-extension ".dvi" "The TeX-compiled file extension for viewing and printing. -- 2.42.0