From 2f9e82278e047db15bc487bbd07356f808c10b7a Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 28 Jul 2008 20:02:04 +0000 Subject: [PATCH] (next-error): Do a redisplay to prevent incorrect recentering (workaround for bug#197). --- lisp/simple.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index c6acebbb83d..75d23fe1c17 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -306,7 +306,10 @@ See variables `compilation-parse-errors-function' and ;; we know here that next-error-function is a valid symbol we can funcall (with-current-buffer next-error-last-buffer (funcall next-error-function (prefix-numeric-value arg) reset) - (run-hooks 'next-error-hook)))) + (run-hooks 'next-error-hook))) + ;; This is a workaround for a redisplay bug (bug#197). The proper + ;; fix is in the trunk: see the 2008-07-28 change to xdisp.c by cyd. + (redisplay)) (defun next-error-internal () "Visit the source code corresponding to the `next-error' message at point." -- 2.39.5