# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1217275324 0
# Node ID a656c149eacebe5a071c58ccb147bbd528f149b3
# Parent  dccdef827de254d9a50cd091ec913560615ab416
(next-error): Do a redisplay to prevent incorrect
recentering (workaround for bug#197).

diff -r dccdef827de2 -r a656c149eace lisp/simple.el
--- a/lisp/simple.el	Mon Jul 28 20:01:45 2008 +0000
+++ b/lisp/simple.el	Mon Jul 28 20:02:04 2008 +0000
@@ -306,7 +306,10 @@
     ;; 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."