[Emacs-diffs] master 072b4c6: * lisp/simple.el (next-error-no-select): Use save-selected-window.

[Juri Linkov]

branch: master
commit 072b4c679dfd5528e74849cad18246730a991933
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * lisp/simple.el (next-error-no-select): Use save-selected-window.
    
    Let-bind display alist of display-buffer-overriding-action to
    `(inhibit-same-window . t)'.  (Bug#32607)
---
 lisp/simple.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 905477a..ab4960d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -383,13 +383,11 @@ backwards, if negative).
 Finds and highlights the source line like \\[next-error], but does not
 select the source buffer."
   (interactive "p")
-  (let ((next-error-highlight next-error-highlight-no-select))
-    (next-error n))
-  (let ((display-buffer-overriding-action '(display-buffer-reuse-window)))
-    ;; Override user customization such as display-buffer-same-window
-    ;; and use display-buffer-reuse-window to ensure next-error-last-buffer
-    ;; is displayed somewhere, not necessarily in the same window (bug#32607).
-    (pop-to-buffer next-error-last-buffer)))
+  (save-selected-window
+    (let ((next-error-highlight next-error-highlight-no-select)
+          (display-buffer-overriding-action
+           '(nil (inhibit-same-window . t))))
+      (next-error n))))
 
 (defun previous-error-no-select (&optional n)
   "Move point to the previous error in the `next-error' buffer and highlight 
match.